Ich versuche gerade mit einer kleinen Userform mit 2 Textboxen eine bestehende Formatierte Tabelle zu befüllen.
Es soll einfach der Inhalt aus der ersten TextBox in die erste freie zelle in der Spalte B (heisst in dem List Object SKU)
Und der Inhalt der zweiten Textbox soll in die Spalte K
mit meinem bisherigen Code wir immer erst unterhalb der formatierten Tabelle angefangen zu schreiben.
kann mir jemand helfen? damit direkt in die Tabelle geschrieben wird.
Code:
Private Sub CB_OK_Click()
Dim wks As Worksheet
Dim lngZeile As Long
Set wks = ThisWorkbook.Worksheets("Manuell")
lngZeile = Cells(Rows.Count, 2).End(xlUp).Row + 1
wks.Cells(lngZeile, 2).Value = TextBox1.Value
wks.Cells(lngZeile, 11).Value = TextBox2.Value
End Sub
Beste Grüße
Pascal