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.