Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Hilfe ActiveCell

VBA Hilfe ActiveCell
16.02.2015 16:41:31
Alex
Hallo,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Hilfe ActiveCell
16.02.2015 17:35:59
Alex
Habe es selbst lösen könne :)
Private Sub CommandButton21_Click()
Dim zeit As String
zeit = Right(Now(), 19)
ActiveCell.Offset(columnOffset:=-1, rowoffset:=1).Activate
ActiveCell.FormulaR1C1 = zeit
Selection.NumberFormat = "dd.mm.yyyy hh:mm:ss"
Dim Zeile As Long
Zeile = ActiveCell.Row
With ActiveSheet
Do
Zeile = Zeile
Loop Until Rows(Zeile).Hidden = False
Cells(Zeile, 2).Select
End With
End Sub

Private Sub Zeitstempel_eintragen_Click()
End Sub

AW: VBA Hilfe ActiveCell
17.02.2015 15:16:20
Alex
Ich brauche doch noch eure Hilfe :/
Das Makro funktioniert, jedoch sobald ich in Spalte B (Zelle in Spalte B wird durch das Makro angewählt) einen Text eingebe, funktioniert das Makro nicht mehr. Das Problem scheint mir die Cursor Anwahl der Zelle zu sein. Markiere ich die gleiche Zelle funktioniert das Makro wieder.

Anzeige
AW: VBA Hilfe ActiveCell
18.02.2015 11:04:52
Alex
Immer noch offen :/

135 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige