ich komme gerade nicht weiter: Aus Userform2, Listbox1 (2 Spalten) wird die markierte Listboxzeile an Textbox1 und 2 übergeben. Mittels Button soll nun in die Quelltabelle für Listbox1 die Änderung geschrieben werden. Funktioniert für Spalte A, aber nicht für Spalte B. Der Code läuft ohne Fehlermeldung durch. Kann mir jemand sagen, wo hier der Fehler liegt?
'Beim Öffnen der Userform Listbox aus dem ausgeblendeten Sheet "Kataloge" befüllen
Private Sub UserForm_Initialize()
Dim Loletzte As Long
Loletzte = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row + 1
With ListBox1
.ColumnCount = 2
.ColumnWidths = "2cm;4cm"
.ColumnHeads = True
ListBox1.RowSource = "Katalog!A2:B" & Loletzte
End With
End Sub
'Klick in Listbox übernimmt Werte in Textboxen
Private Sub ListBox1_Click()
UserForm2.TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
UserForm2.TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
End Sub
'Klick auf Ändern Button
Private Sub CommandButton5_Click()
Dim zZeile As Long
zZeile = UserForm2.ListBox1.ListIndex + 2
Tabelle2.Cells(zZeile, 1).Value = TextBox1.Value
Tabelle2.Cells(zZeile, 2).Value = TextBox2.Value
End Sub
'Button hinzufügen - Werte aus Textfeldern in Tabelle übernehmen
Private Sub CommandButton4_Click()
Dim Loletzte As Long
Loletzte = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row + 1
With Tabelle2
.Cells(Loletzte, 1) = Me.TextBox1.Value
.Cells(Loletzte, 2) = Me.TextBox2.Value
End With
End Sub
Danke!
Vic