Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1792to1796
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1792to1796
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeitstempel

VBA Zeitstempel
17.11.2020 17:02:32
Alexander
Hallo zusammen,
ich möchte in einer Excel Tabelle bei der Eingabe von Inhalten in Spalte E und W, dass ein Zeitstempel in den danebenliegenden Spalten erstellt wird. Durch Herumsuchen in diesem und anderen Foren bin ich auf folgenden Code gestoßen. Leider bekomme ich so auch bei der Eingabe in jede andere Zelle einen Zeitstempel in der nebenliegenden Zelle ausgewiesen. Ich habe leider garkeine Erfahrung mit Codes :( Kann mir jemand helfen? Es soll wirklich nur bei Eingabe in Spalte E und W ein Zeitstempel in den Spalten D und V erstellt werden.
Vielen Dank im Voraus!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Row  1 Then Exit Sub
Set RaBereich = Range(("E1230:E2000"), ("W1230:W2000"))
Application.EnableEvents = False
If Not Intersect(Target, RaBereich) Is Nothing Then
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy_hh:mm:ss")
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeitstempel
17.11.2020 17:27:51
ChrisL
Hi Alexander
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Target.Column  5 And Target.Column  23 Then Exit Sub
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy_hh:mm:ss")
End Sub
cu
Chris
AW: VBA Zeitstempel
17.11.2020 17:38:24
Alexander
Vielen Dank an alle. Die Lösung von Chris ist genau was ich gesucht habe.
Bleibt gesund und nochmal lieben Dank!
Alex
AW: VBA Zeitstempel
17.11.2020 18:24:26
ChrisL
Hi Alex
Danke für die Rückmeldung. Freut mich, aber nimm besser den Code von Nepumuk, weil dieser berücksichtigt auch wenn ganze Bereiche kopiert werden.
cu
Chris
Anzeige
AW: VBA Zeitstempel
17.11.2020 18:35:34
Luschi
Hallo Chris,
mein Vorschlag ist doch auch nicht von schlechten Eltern. Hier wird eine Textkette an Range(...) übergeben, die man auch vorher zusammenstückeln kann, während bei Nepumuk's Vorschlag der UNION-Funktion die Parameter angeflanscht werden müssen.
Gruß von Luschi
aus klein-Paris
stimmt...
17.11.2020 18:41:10
ChrisL
Hi Luschi
... wollte nicht werten. Unbewusst habe ich Alex als Copy/Paste-Kandidat eingestuft und die Lösung von Nepumuk war schon fertig, was aber kein Grund sein sollte.
cu
Chris
AW: VBA Zeitstempel
17.11.2020 17:28:38
Luschi
Hallo Alexander ,
das ist ein gern gemachter Fehler; schreibe statt:
Set RaBereich = Range(("E1230:E2000"), ("W1230:W2000"))
dies hier:
Set RaBereich = Range("E1230:E2000, W1230:W2000")
Überprüfen kannst Du das mit diesem Mini-Code: 

Sub test1()
Dim RaBereich As Range
Set RaBereich = Range(("E1230:E2000"), ("W1230:W2000"))
Debug.Print RaBereich.Address(0, 0)
Set RaBereich = Range("E1230:E2000, W1230:W2000")
Debug.Print RaBereich.Address(0, 0)
Set RaBereich = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: VBA Zeitstempel
18.11.2020 11:45:32
Herbert_Grom
Servus Luschi,
"das ist ein gern gemachter Fehler": Wie recht du hast, das passiert mir auch zur rechten Zeit. Es ist aber auch blöd, dass man das einmal so und einmal so schreiben soll! Aber es hilft nix, da muss man halt "aufpassen"!
Servus
AW: VBA Zeitstempel
17.11.2020 17:28:41
Nepumuk
Hallo Alexander,
teste mal:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim objCell As Range, objRange As Range
    Set objRange = Intersect(Target, Union(Range("E1230:E2000"), Range("W1230:W2000")))
    If Not objRange Is Nothing Then
        Application.EnableEvents = False
        For Each objCell In objRange
            objCell.Offset(0, -1) = Format(Now, "dd.mm.yyyy_hh:mm:ss")
        Next
        Application.EnableEvents = True
        Set objRange = Nothing
    End If
End Sub

Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige