Der erste Code geht ganz wunderbar. Mit dem zweiten Code wollte ich erreichen, dass wenn in der Spalte C die Zellen jeweils mit einem X gefüllt sind, daß beim Oeffnen der Userform mit der Listbox auch die Häckchen in der Listbox angeklickt sind.
Kriege es mit dem zweiten Code einfach nicht hin. Kann mir Jemand dabei helfen?
Private Sub ListBox1_change()
Dim i As Long
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i - 1) Then
Worksheets("IstTable").Cells(i, 3).Value = "X"
Else
Worksheets("IstTable").Cells(i, 3).Value = ""
End If
Next
End Sub
Private Sub Userform_Initialize()
Dim a As Long
For a = 1 To ListBox1.ListCount
If Worksheets("IstTable").Cells(a, 3).Value = "X" Then
ListBox1.Selected = True
Else
ListBox1.Selected = False
End If
Next
End Sub
Danke für Eure Hilfe
Gruß
Leon