Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComboBox laden ohne doppelte Werte

ComboBox laden ohne doppelte Werte
09.04.2003 13:55:15
ChrisL
Hallo zusammen

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • 09.04.2003 15:26:00
    ChrisL
Anzeige
gelöst
09.04.2003 15:26:00
ChrisL

Inzwischen habe im mir einen Hamburger reingestopft und siehe da... hatte einen Gedankenblitz... wie vermutet ganz einfach.

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 = 2 To i - 1
If Sheets("Land").Cells(ii, 4) = 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


Ginge sicher noch eleganter, aber tuts für mich.


Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige