|
Hallo
offensichtlich hast du ion deinem Tabellenblatt eine "intelligente" Tabelle
das ist dann ein sogenanntes Listobject
da wird die freie Zeile anders ermittelt
Private Sub ButtonEinfügen_Click()
Dim lngZeile As Long
With Worksheets("Tabelle1").ListObjects("Tabelle1").DataBodyRange
lngZeile.Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(lngZeile, 3) = TextBoxGrund.Text
'...und so weiter
End With
End Sub
beachte nun aber den Punkt vor .Cells
den Tabellenblattnamen musst du entsprechend anpassen
aber bei deinem Code wird noch mehr nicht passen...
warum willst du den Inhalt vor 5 Textboxen in eine Spalte (3) einfügen?
MfG Tom
|