Habe mal wieder einen Knopf in der Leitung und komme einfach nicht drauf.
Habe ein Tabelle "Land". In Spalte B stehen alle Länder, in Spalte D die entsprechende Währung. Spalte D ist allerdings nicht vollständig.
Nun lade ich alle Länder und Währungen in je eine Combobox (in Userform). Problem ist, dass jede Währung nur einmal geladen werden soll (z.B. EUR). Hier mein Ansatz:
For i = 2 To Sheets("Land").Range("A65536").End(xlUp).Row
Land.AddItem Sheets("Land").Cells(i, 2)
If Sheets("Land").Cells(i, 4) <> "" Then
WaehrungVorhanden = False
For ii = 0 To Waehrung.ListCount
If Waehrung.ListIndex(ii) = Sheets("Land").Cells(i, 4) Then
WaehrungVorhanden = True
Exit For
End If
Next ii
If WaehrungVorhanden = False Then Waehrung.AddItem Sheets("Land").Cells(i, 4)
End If
Next i
Der Vergleich funktioniert nicht...
Waehrung.ListIndex(ii) = Sheets("Land").Cells(i, 4)
Run-time error '13': Type mismatch
Ist sicher etwas ganz banales, aber ich komm nicht drauf.
Danke im Voraus und Gruss
Chris