Guten Tag,
ich habe gesucht ob es ein solches Thema hier schon gibt, jedoch nichts gefunden. Das bedeutet meiner Meinung nach aber nicht automatisch das es nicht schon existiert, es kann gut sein das es schwer zu finden ist.
Zum Thema:
ich möchte eine Listbox mit verschiedenen Einträgen füllen. Es soll der Inhalt von 10 Zellen hinzugefügt werden, jedoch mit der Prüfung für jede einzelne Zelle ob in der Spalte daneben eine 1 steht.
Code:
Private Sub CommandButton1_Click()
ListBox1.Clear
For i = 1 To 10
If Cells(i, 1) = 1 Then
ListBox1.AddItem Cells(i, 2)
End If
Next i
End Sub
Dies funktioniert soweit.
Jetzt mein Problem, ich möchte wenn man in der Listbox einen Eintrag anklickt mit der Information aus welcher Zelle dieser Eintrag kommt weiter arbeiten, dazu wollte ich den Index des jeweiligen Eintrags auf (i-1) setzen (wenn ich dies nicht manuell tue, zählt er die Zellen die nicht übernommen werden nicht mit und ab dem Zeitpunkt wenn ein Wert nicht eingefügt wird passt der Index nicht mehr):
ListBox1.AddItem Cells(i, 2), (i-1)
dies funktioniert jedoch nicht richtig, es geht nur bis zu dem Punkt an dem keine "1" in der Zelle steht und gibt dann einen Laufzeitfehler (ungültiges Argument) aus.
ich habe auch schon versucht eine weitere Variable mit einzuführen die in der Schleife hochgezählt wird, aber es kommt der gleiche Fehler.
Für Hilfe wäre ich sehr dankbar |