Hallo liebe Community,
ich komme nicht weiter, vielleicht könnt Ihr mir weiterhelfen - ein Hilfestellung wäre echt klasse.
in Spalte I der Tabelle 1 habe ich in 2100 Zeilen 20 Länder in unterschiedlicher Anzahl (z.B. 350 mal "Deutschland")
.In der For - Schleife sollen alle Doppler ausgeschlossen werden -> vgl mit Inhalt Array Bestimmungsland
und raus bei gefunden(Boolean) = true.
Es sollten am Ende 20 Länder in der Listbox erscheinen und die Anzahl auch angegeben werden in dem Label.
So die Theorie, allerdings sagt VBA mir etwas anderes: Es erscheint nur ein Land in der Combo-Box und gezählt werden ca. 1.800 Länder
Was stimmt denn nicht mit der Formel?
Die Datei kann ich ja leider nicht mitliefern, da xlsm Format und nicht erlaubt....
Dim Bestimmungsland() As String
Dim land As Integer
Dim i As Integer, znr As Integer
Dim gefunden As Boolean
znr = 2 'Die Größe des Arrays anpassen
ReDim Preserve Bestimmungsland(land)Bestimmungsland(land) = Range("I" & znr)
'Selection einmaliger Landbezeichnung
While Range("I" & znr) <> "" gefunden = False
For i = 0 To UBound(Bestimmungsland)
If Bestimmungsland(i) = Range("I" & znr) Then
gefunden = True
Exit For
End If
Next
If gefunden = False Then
land = land + 1
End If
znr = znr + 1
Wend
land = land - i 'Größe des Arrays ausgeben lassen
lbl_Bestimmungsland.Caption = "wählen Sie aus: " & land & " Ländern."
'Kombo_Box füllen
cmb_Bestimmungsland.List = Bestimmungsland
End Sub
VGJogg70
ich komme nicht weiter, vielleicht könnt Ihr mir weiterhelfen - ein Hilfestellung wäre echt klasse.
in Spalte I der Tabelle 1 habe ich in 2100 Zeilen 20 Länder in unterschiedlicher Anzahl (z.B. 350 mal "Deutschland")
.In der For - Schleife sollen alle Doppler ausgeschlossen werden -> vgl mit Inhalt Array Bestimmungsland
und raus bei gefunden(Boolean) = true.
Es sollten am Ende 20 Länder in der Listbox erscheinen und die Anzahl auch angegeben werden in dem Label.
So die Theorie, allerdings sagt VBA mir etwas anderes: Es erscheint nur ein Land in der Combo-Box und gezählt werden ca. 1.800 Länder
Was stimmt denn nicht mit der Formel?
Die Datei kann ich ja leider nicht mitliefern, da xlsm Format und nicht erlaubt....
Dim Bestimmungsland() As String
Dim land As Integer
Dim i As Integer, znr As Integer
Dim gefunden As Boolean
znr = 2 'Die Größe des Arrays anpassen
ReDim Preserve Bestimmungsland(land)Bestimmungsland(land) = Range("I" & znr)
'Selection einmaliger Landbezeichnung
While Range("I" & znr) <> "" gefunden = False
For i = 0 To UBound(Bestimmungsland)
If Bestimmungsland(i) = Range("I" & znr) Then
gefunden = True
Exit For
End If
Next
If gefunden = False Then
land = land + 1
End If
znr = znr + 1
Wend
land = land - i 'Größe des Arrays ausgeben lassen
lbl_Bestimmungsland.Caption = "wählen Sie aus: " & land & " Ländern."
'Kombo_Box füllen
cmb_Bestimmungsland.List = Bestimmungsland
End Sub
VGJogg70