Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1820to1824
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
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum vba bei Änderung

Datum vba bei Änderung
29.03.2021 19:30:59
Kevin
Abend an euch alle!
Für viele dürfte es leicht sein, aber ich konnte per google nicht finden wie man folgendes Problem löst:
Bei einer Änderung im Bereich B1-X1 soll in Zelle A1 das Datum vermerkt werden. Weiterhin soll das selbe gelten in Reihe 2. Also bei einer Änderung im Bereich B2:X2 soll das Datum in Zelle A2 vermerkt werden.
Die ganze Thematik soll auf den Bereich B2: X 500 angewendet werden und dabei soll immer in der selben Reihe in in der eine Änderung durchgeführt wird in Spalte A der selben Reihe das Datum festgehalten werden.
Hoffe das war verständlich. Danke schonmal im Voraus und Gruß an alle.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum vba bei Änderung
29.03.2021 20:17:49
Nepumuk
Hallo Kevin,
Rechtsklick auf den Tabellenreiter - Code anzeigen. Folgende Prozedur einfügen:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objRange As Range, objCell As Range
    Set objRange = Intersect(Target, Range("B2:X500"))
    If Not objRange Is Nothing Then
        Application.EnableEvents = False
        For Each objCell In objRange
            Cells(objCell.Row, 1).Value = Date
        Next
        Application.EnableEvents = True
        Set objRange = Nothing
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Datum vba bei Änderung
29.03.2021 20:30:46
Kevin
Volltreffer Nepumuk. Vielen Dank.
Kannst du mir vlt. erklären warum es leider nicht funzt, wenn ich folgenden code verwende ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Dim Z
Application.EnableEvents = False
Set Bereich = Range("D13:FA500")
If InStr(Target.Address, ":") = 0 Then  ' überprüfen ob mehr als eine Zelle markiert
Cancel = True
If Intersect(Target, Bereich) Is Nothing Then GoTo Ende
' Abbruch, wenn Aktion nicht im Zielbereich
If Target.Value = "" Then Target.Value = "T": GoTo weiter
If Target.Value  "" Then Target.ClearContents: GoTo weiter
weiter:
Else
For Each Z In Selection
Dim S As String
S = Z.Address
If Intersect(Z, Bereich) Is Nothing Then
Else
Cancel = True
Z.Value = "T"
End If
Next Z
End If
Ende:
Application.EnableEvents = True
End Sub

Mit dem Code lasse ich in dem Bereich per Doppelklick ein "T" eintragen. Wenn ich das mache ändert sich das Datum leider nicht.

Anzeige
AW: Datum vba bei Änderung
29.03.2021 20:43:04
Nepumuk
Hallo Kevin,
das genügt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("D13:FA500")) Is Nothing Then
        If IsEmpty(Target.Value) Then
            Target.Value = "T"
        Else
            Target.Value = Empty
        End If
        Cancel = True
    End If
End Sub

Eine Abfrage ob mehrere Zellen ausgewählt sind erübrigt sich beim Doppelklick, du kannst nur in eine Zelle Doppelklicken. Das Datum wurde nicht eingetragen weil du die Events abgeschaltet hast.
Gruß
Nepumuk

Anzeige
AW: Datum vba bei Änderung
29.03.2021 20:50:49
Kevin
Ok nun ist alles wie gewünscht. Vielen Dank nochmal. Dein Fachwissen hätte ich gerne :p

304 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Datum automatisch einstellen
Timmy

Liebe Excler,
wie kann ich in meinem Worksheet das Datum automatisch einstellen lassen, sodass es sich von selbst aktualisiert sobald ich das Sheet oeffne, oder beginne zu erarbeiten?
Vielen Dank und liebe Gruesse
Timmy
16.02.2009 16:05:00
Thread-ID: 1051200
3 Beiträge
Automatisches Datum in der Zelle
Schindlbeck62

Hallo Excel Speziallisten,
ich habe eine Liste für die Terminverfolgung erstellt, jetzt möchte ich, wenn die Aufgabe erledigt ist. das ich z. B. in die Zelle D4 ja schreibe sich in die Zelle D5 das Heutige Datum automatisch einträgt aber nicht mehr aktualisiert wenn ich es an an...
27.03.2009 11:04:10
Thread-ID: 1064527
9 Beiträge
Anzeige
Automatisches Aktualisieren beim Öffnen
svenja

Hallo,
habe in einer Exceldatei Daten aus einer Access-Datenbank verknüpft. Die Daten sollen beim Öffnen der Excel-Datei automatisch aktualisiert werden. Habe das entsprechende Häkchen bei "Datenbereichseigenschaften" gesetzt. Es handelt sich hier um eine Excel-Datei mit insgesamt 13 Tabell...
23.07.2009 01:40:16
Thread-ID: 1090320
2 Beiträge
Datum nicht Aktualisieren
René

Hallo
Ich hätte da mal ein Frage
Gibt es eine möglichkeit wenn man in die Zelle (A2) etwas hineinschreibt in die Zelle (B2) das aktuelle Datum mit Uhrzeit steht?
Ich hätte die Formel: =wenn(A2="";"";jetzt())
Das Problem dabei ist, dass sich das Datum dabei immer Aktualisiert. Gi...
25.07.2009 18:19:57
Thread-ID: 1091274
2 Beiträge
Beim Speichern Pivot aktualisieren
andreas

Hallo zusammen,
da ich leider keine Ahnung habe von VBA:
kann mir jemand bei einem Code aushelfen, der, wenn gespeichert wird, automatisch alle Pivottabellen in der Datei aktualisiert?
Vielen lieben Dank vorab
Andreas
14.10.2009 19:24:13
Thread-ID: 1109670
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Makro automatisch bei Zellenänderung ausführen
Michael

Hallo,
für eine Tabelle nutze ich folgendes Makro: Sub einfärben() For Each Cell In Range("H5:AH16") If Cell = "SE" Then Cell.Interior.ColorIndex = 3 Cell.Font.ColorIndex = 3 End If If Cell = "TW" Then Cell.Interior.ColorIndex = 4 Cell.Font.ColorIndex = 4 End If If Cell = "BS" Then Cell.In...
16.03.2010 10:59:21
Thread-ID: 1146150
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
2
8
7
1
1
1
2
14
9
2
1
9
4
7
2
3
2
1
9
6
6
5
1