erste leere zelle in spalte D
05.10.2005 09:54:40
tina
zu allererst, der hinweis VBA-gut, habe ich genommen, weil VBA-gehtso nicht zur auswahl stand. :)
ich habe hier einen code, der die nächste leere reihe findet. ab spalte A:
Sub reihe_weiter()
Static intSchonGespeichert% 'initialiesiert mit 0
Dim lngZeile As Long
With Worksheets("februar") 'Tabellennamen anpassen
'nur einen Speichervorgang je Öffnung merken
lngZeile = .Cells(Rows.Count, 6).End(xlUp).Row + intSchonGespeichert + 1
.Cells(lngZeile, 1).Value = Format(Now, "DD.MM.YYYY") 'Datum Spalte A
.Cells(lngZeile, 2).Value = Format(Now, "HH:MM:SS") 'Uhrzeit Spalte B
.Cells(lngZeile, 3).Value = Environ("Username") 'Benutzer Spalte C
End With
intSchonGespeichert = intSchonGespeichert + 1
End Sub
der code funzt sehr gut.
nun brauche ich noch den code, der schaut wo in spalte D die nächste leere zelle ist und dann den code ausführt.
natürlich angepasst cells(IngZeile, 4).Value dadada, bis Ingzeile, 6.
hatte die idee in der zeile:
lngZeile = .Cells(Rows.Count, 6).End(xlUp).Row + intSchonGespeichert + 1
irgendwo .Cells(Columns.Count, 4) einzusetzen, klappt aber nicht.
hoffe ihr könnt mir weiterhelfen.
lieben dank
gruss tina
Anzeige