Auf meiner UserForm habe ich einen Funktionsbutton mit folgender Funktion
Private Sub CommandButton1_Click()
Dim i As Integer
Dim letztezeile As Integer
letztezeile = (Worksheets("Tabelle2").Cells(Rows.Count, 4).End(xlUp).Row) + 1
If UserForm2.TextBox1.Text = "" Then MsgBox "bitte Lieferanten wählen": Exit Sub
For i = 4 To letztezeile
If Worksheets("Tabelle1").Cells(i, 4) = UserForm2.TextBox1.Text Then: letztezeile = i: _
Exit For
Next i
ListBox1.Tag = 1
Worksheets("Tabelle2").Cells(letztezeile, 4) = TextBox1
Worksheets("Tabelle2").Cells(letztezeile, 5) = TextBox2
ListBox1.Tag = ""
Unload UserForm2
End Sub
Hier wird der Datensatz aus der Textbox ab d4 und e4 in immer einer nächsten freien Zeile der genannten Spalten entladen.Das funktioniert sehr gut, trotzdem hätte ich gern eine Änderung.
Da ich selbst nicht weiß wie ich es umsetzen soll, stelle ich Euch die Frage.
Ich möchte ab d4 in immer der aktiven Zelle der Spalten d und e den Inhalt der Textboxen übergeben.
Wer kann mir bei der Umsetzung helfen?
Gruß Lisa