X schreiben nach Listbox Multiselect
16.02.2009 23:34:00
Leon
Noch eine kleine Frage:
Listbox ist durch Hilfe von Franz und Sepp absolut Fehlerfrei.
Jetzt stellt sich noch für Euch ein sicherlich kleines Problem. Der erste Eintrag (Columnhaed) ist A5
Durch den unteren Code wird mir anstatt auf C5 auf C1 das X geschrieben.
Komme einfach nicht drauf.
Private Sub ListBox1_Change()
Dim i As Long
For i = 1 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Worksheets("Drucktabelle").Cells(i, 3).Value = "X"
Else
Worksheets("Drucktabelle").Cells(i, 3).Value = ""
End If
Next
End Sub
Würde gerne Hilfe annehmen.
Gruß
Leon
Anzeige