Textbox aus Userform in aktive Zelle entladen
lisa
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
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
Anzeige