Zelleninhalte über Listbox ändern
17.05.2017 17:47:34
Rüdi
ich habe ein Problem mit der Synchronisation zwischen Listbox Einträgen und der Quelltabelle. Ich dachte die perfekte Lösung im Forum gefunden zu haben. "Code unten" Aber leider, funktioniert die Lösung bei mir nicht ganz. Konkret geht es um eine Listbox, welche ich über TextBoxen fülle. Über einen Button, in diesem Fall "CommandButton3", kann ich die Werte von den TextBoxen auf die ListBox übertragen. Es schien am Anfang zu funktionieren, doch nun verändert es mir jedes mal die Überschriften. Ich klicke eine Reihe in der Listbox an, schreibe Werte in die TextBox und drücke auf den Button. Jedoch passiert hier zunächst gar nichts. Nach einem weiteren Klick auf den Button, steht der Textboxinhalt auf einmal in der Überschrift der Listbox. Und zwar genau in der mit der TextBox verlinkten Spalte.
Zudem funktioniert bei mir der initialize Befehl nicht. Die Rowsource und die Columnheads funzt bei mir erst, wenn ich es mit einem Klick auf einen Button ausführe. Ich dachte der initialize Befehl wird bei Ausführung der Userform automatisch ausgeführt. Bin ich da falscher Ansicht?
Private Sub CommandButton3_Click()
With Range("Tabelle1!A2:C100")
Me.Tag = "1"
.Cells(ListBox1.ListIndex + 1, 1).Value = ComboBox1
.Cells(ListBox1.ListIndex + 1, 2).Value = ComboBox2
.Cells(ListBox1.ListIndex + 1, 3).Value = CDbl(TextBox1.Value)
Me.Tag = ""
End With
End Sub
Private Sub userform_initialize()
With ListBox1
.RowSource = "Tabelle1!A2:C100"
.ColumnHeads = True
End With
End Sub
Private Sub ListBox1_Click()
If Me.Tag = "1" Then Exit Sub
'klick = ListBox1.ListIndex
With ListBox1
UserForm1.ComboBox1 = .List(.ListIndex, 0)
UserForm1.ComboBox2 = .List(.ListIndex, 1)
UserForm1.TextBox1 = .List(.ListIndex, 2)
End With
End Sub
Vielen Dank im Voraus
Rüdi