Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fixes Datum in Spalte A

Forumthread: Fixes Datum in Spalte A

Fixes Datum in Spalte A
11.08.2021 13:52:54
Marco
Hallo zusammen
Ich möchte dass in Spalte A das Datum eingefügt wird vom Tag an dem die Werte von Spalte B bis T eingefügt wurden. Wenn ich also Heute Daten in B1 bis T50 einfüge müsste dort das Datum von Heute sein. Morgen füge ich in B51-T120 erneut Daten ein hier müsste dann in den Zellen A51-A12 das Datum vom aktuellen Tag haben und die Zelle A1-A50 das Datum von gestern. Es kommen jeden Tag neue daten hinzu. Aktuell ist es so dass wenn ich jede Zeile nacheinander befülle das Datum erhalte, sobald ich jedoch mehrere Zeilen einfügen möchte bekomme ich eine Fehlermeldung. Kann mir jemand helfen wie ich dies Lösen muss, so dass beim einfügen einer Kopierten Tabelle alle neuen Zeilen mit dem Datum in der Spalte A ergänzt werden?
Ich habe einen Code im Arbeitsblatt der mir einfach nur Zeile für Zeile das Datum einfügt.
https://www.herber.de/bbs/user/147550.xlsx
mfg
Marco
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fixes Datum in Spalte A
11.08.2021 14:17:20
Rudi
Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
If Not Intersect(Target, Range("B:T")) Is Nothing Then
Application.EnableEvents = False
If Application.CountA(Target) Then
For Each r In Target.Rows
If IsEmpty(Cells(r.Row, 1)) Then Cells(r.Row, 1) = Date
Next
End If
End If
Application.EnableEvents = True
End Sub
Gruß
Rudi
Anzeige
AW: Fixes Datum in Spalte A
12.08.2021 14:34:32
Marco
Hallo Rudi
Danke dir für die Hilfe, funktioniert super.
Gruss Marco
;
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige