VBA Hilfe ActiveCell
16.02.2015 16:41:31
Alex
ich habe bisher folgenden Code
Private Sub CommandButton21_Click()
Dim zeit As String
zeit = Right(Now(), 19)
ActiveCell.FormulaR1C1 = zeit
Selection.NumberFormat = "dd.mm.yyyy hh:mm:ss"
Dim Zeile As Long
Zeile = ActiveCell.Row
With ActiveSheet
Do
Zeile = Zeile + 1
Loop Until Rows(Zeile).Hidden = False
Cells(Zeile, 1).Select
End With
End Sub
Private Sub Zeitstempel_eintragen_Click()
End Sub
Ich möchte jetzt noch folgendes einbauen:
Nachdem der Zeitstempel eingetragen wird, soll der Zellbezug eine Spalte nach rechts wandern. Wenn ich das Makro wieder ausführe, soll die Uhrzeit aber wieder in die erste Spalte geschrieben werden (den vorherigen Eintrag nicht überschreiben). Hintergrund ist, dass vereinzelt ein Stichwort händisch zum Zeitstempel geschrieben wird.
Gruß
Alex