Office: Datum in die erste leere Zelle in der Spalte per Button-Klick

Hallo,
ich habe ein Problem mit einer Tabelle. Es ist eigentlich nicht meine, ich soll sie etwas nachbessern.
In die Tabelle wurde einfach mittels "Steuerelement-Toolbox" eine Befehlsschaltfläche hinzugefügt.
Hinter dem Button steht der Code:

Private Sub CommandButton1_Click()
ActiveCell.Value = Now
End Sub

Wenn man den Button anklickt, soll das Datum in die erste Leere Zelle in der Spalte B geschrieben werden. Dumm ist dabei, dass man zuerst selber die Zelle auswählen muss. Sonst wird das Datum in eine andere, gerade aktive Zelle geschrieben.
Ich will es so machen, dass wenn man den Button anklickt, wird das Datum, unabhängig davon, welche Zelle gerade aktiv ist in die erste leere Zelle in der Spalte B geschrieben.
Funktion für das Finden der ersten freien Zelle in der Spalte habe ich auch. Wenn ich sie woanders teste, wird immer die erste leere Zelle in der Spalte selektiert. Ich kann aber die Funktionen nicht miteinander so verbinden, dass sie als Code hinter dem Button stehen, und machen was ich will *wink.gif*

Habe letztendlich sowas ausprobiert:

Private Sub CommandButton1_Click()
'leere Zelle selektieren
Dim LCell
On Error Resume Next
LCell = Range("B1").End(xlDown).Offset(1, 0).Select

'Datum einfügen
ActiveCell.Value = Now

End Sub

Das haut aber nicht hin. Das Datum wird immer in die gleiche Zelle geschrieben, also der Teil mit dem selektieren der leeren Zelle funktioniert da nicht.
Kann mir bitte jemand helfen, wie der Code aussehen soll?

Danke und Gruß
Saurid

:)

 

Range("B1").End(xlDown).Offset(1, 0) = Now
Severus

 

Hallo Saurid,

Wenn in Spalte B kein Wert oder nur ein Wert in Zeile 1 vorhanden ist, verweist
Code:

auf die letzte Zeile der Spalte B
Der Offset(1,0) würde dann auf die nachfolgende, nicht existierende Zeile verweisen - daher ein Fehler, weswegen die Select-Methode nicht ausgeführt wird.

Sollen in Spalte B nur die Datumswerte stehen, besser von unten nach oben suchen:
Code:

Grüße
EarlFred

 

Hi,
danke für schnelle Antwort. Es schaut also so aus:

Private Sub CommandButton1_Click()
Range("B1").End(xlDown).Offset(1, 0) = Now
End Sub

Es funktioniert leider nicht. Nur das erste Mal nach dem Öffnen der Mappe und Klicken des Buttons. Die erste freie Zelle ist in der Zeile ist die Zelle 3.
Das Datum springt rein, und das war's.
Wenn ich das zweite Mal den Button anklicke, ändert sich nichts.

Das gleiche hate ich mit meinem Code...
Hast Du es ausprobiert, ob das bei Dir geht?

Gruß
S.

 

Hallo Saurid,

dann vermute ich, dass die Zelle B1 leer ist, B2 nicht.

Wäre die Methode "von unten nach oben" denkbar?

Grüße
EarlFred

 

Hallo
Code:

gruss hary

 

Danke!

Darauf bin ich nicht gekommen. die Zelle war leer. Ich habe da jetzt eine Zahl gesetzt und weiß formatiert *mrcool
Darüber ist sowieso ein Bild, die Zelle wird nicht gebraucht.

Nochmal danke für Eure hilfe.

Nette Grüße
Saurid

 

Moin, Saurid,

löse Dich von dem, was Dir der Makro-Rekorder vorgibt (auch von ActiveCell, wenn´s geht). Und statt Now (Tabelklenfunktion Jetzt()) gibt´s fürs Datum die Funktion Date. Hier wird nur geschrieben, wenn die leere Zelle ab Zeile 3 auftaucht - Prüfung der letzten Zelle auf Inhalt fehlt:

Code:

 

Danke für den Code, ist sehr gut.
Wieder was neues dazu gelernt.*Smilie

Gruß
Saurid

 

Das geht übrigens auch ganz ohne VBA:

Strg.: Aktuelles Datum
SHIFTStrg.: Aktuelle Uhrzeit

Kann man auch hintereinander in die gleiche Zelle schreiben.