Sub juhu()
 
Dim Var As String
Dim Stadtname As String
 
Var = ""
 
Stadtname = "Leipzig"
Var = StadtnameEnthalten(Stadtname, Var)
 
Stadtname = "München"
Var = StadtnameEnthalten(Stadtname, Var)
 
Stadtname = "Berlin"
Var = StadtnameEnthalten(Stadtname, Var)
 
Stadtname = "Hamburg"
Var = StadtnameEnthalten(Stadtname, Var)
 
Var = StadtnameEnthalten(Stadtname, Var)
Stadtname = "München"
 
Var = Left(Var, Len(Var) - 1)
 
Dim arr() As String
arr = Split(Var, ",")
 
End Sub
 
Private Function StadtnameEnthalten(ByVal Stadtname As String, ByVal Var As _
  String) As String
If InStr(1, Var, Stadtname) <= 0 Then
StadtnameEnthalten = Var & Stadtname & ","
Else
StadtnameEnthalten = Var
End If
End Function

EALA FREYA FRESENA

Dim arr() As String
 
Sub StadtnamenAuswerten()
 
ReDim Preserve arr(0)
 
Dim Stadtname As String
Dim i As Integer
i = 0
 
Stadtname = "Leipzig"
StadtnameHinzufuegen (Stadtname)
 
Stadtname = "München"
StadtnameHinzufuegen (Stadtname)
 
Stadtname = "Berlin"
StadtnameHinzufuegen (Stadtname)
 
Stadtname = "Hamburg"
StadtnameHinzufuegen (Stadtname)
 
Stadtname = "München"
StadtnameHinzufuegen (Stadtname)
 
Stadtname = "Leipzig"
StadtnameHinzufuegen (Stadtname)
 
For i = 0 To UBound(arr()) - 1
MsgBox (arr(i))
Next
 
End Sub
 
Private Sub StadtnameHinzufuegen(ByVal Stadtname As String)
If Not StadtnameEnthaltenArr(Stadtname) Then
ReDim Preserve arr(UBound(arr()) + 1)
arr(UBound(arr()) - 1) = Stadtname
End If
End Sub
 
Private Function StadtnameEnthaltenArr(ByVal Stadtname As String) As Boolean
Dim i As Integer
Dim gefunden As Boolean
 
For i = 0 To UBound(arr()) - 1
If arr(i) = Stadtname Then
StadtnameEnthaltenArr = True
Exit For
End If
Next i
End Function

EALA FREYA FRESENA

Beitrag wurde zuletzt am 01.11.17 um 16:56:16 editiert.

Private oCol as Collection
 
Dim i As Long
Dim r As Excel.Range
 
Set oCol = New Collection
 
ActiveSheet.Columns(1).Select
 
On Error Resume Next
 
For Each r IN Application.Selection
  i = i + 1
  If i > 2 Then
     IF i > ActiveSheet.UsedRange.Rows.Count Then Exit For
        oCol.Add r.Value, r.Value
     End If
  End If
Next
 
On Error Goto 0