Zitat von
Chemiker:
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
Funktioniert nicht...
Ich möchte einfach, dass nach jedem Klick auf dem "
setzen" Button
i um
1 erhöht wird und somit der neue Eintrag eine Zeile weiter unten eingetragen wird...
Code:
Sheets("Tabelle1").Cells(i, 1).Value = Date
Sheets("tabelle1").Cells(i, 2).Value = TextBox1
Sheets("tabelle1").Cells(i, 3).Value = TextBox2
Sheets("tabelle1").Cells(i, 4).Value = Time$
Sheets("tabelle1").Cells(i, 5).Value = TextBox3
http://s5.directupload.net/images/080705/bbc9dlbg.jpg
http://s4.directupload.net/images/080705/v2vh7xsg.jpg
http://s4.directupload.net/images/080705/ix4uoz3q.jpg