Hallo atgis,
ich habe jetzt erst verstanden was Du meinst.
Es muss zuerst die letzte Zeile bestimmt werden und dann die neuen Werte an die neue Stelle geschrieben werden.
Code:
Function letzteZeile() As long
Dim i As integer, letzteMin As long, letzteMax AS long
For I = 1 To 256
letzteMin = Cells(65536, i), End(xlUp).Row
if letzeMax < letzteMin then
letzteMax = LetzteMin
endif
next i
letzteZeile = letzteMax
end function
Code:
private sub Commandbutton1_click()
Cells (letzteZeile+1, 1).Value = Date
Cells (letzteZeile+1, 2).Value = TextBox1
… usw.
end sub
Geschrieben und nicht ausprobiert.
Bis bald Chemiker