VBA Excel: Listbox Option Click Funktioniert nicht. Wieso und gibt es Sonderoptionen im Bereich x -> Listbox1 Click(x)?

... komplette Frage anzeigen

1 Antwort

am besten lädst du die ganze excel-file auf http://workupload.com/ hoch

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von MPCKhome
07.03.2016, 16:15

kann ich leider nicht, dort sind empfindliche Daten enthalten.
Ich kann aber Teile des Codes hier reinladen

Private Sub UserForm_Initialize()
For x = 3 To 100

With Me.ListBox1
.AddItem Worksheets(2).Range("A" & x)
End With
Next x 'Hier definiere ich die Listbox For k = 3 To 100
If Worksheets(2).Range("J" & k) = "1" Then
Me!ListBox1.Selected(k - 3) = True
End If
Next k Ich fragt der die Listbox ab. Aber bei k=3 springt er gleich runter zu: Private Sub ListBox1_Change()

For y = 3 To 100
If Me!ListBox1.Selected(y - 3) = True Then
Worksheets(2).Range("J" & y) = "1"
End If
Next y

For y = 3 To 100
If Me!ListBox1.Selected(y - 3) = False Then
Worksheets(2).Range("J" & y) = ""
End If
Next y

End Sub
0

Was möchtest Du wissen?