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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktualisierungsdatum

Forumthread: Aktualisierungsdatum

Aktualisierungsdatum
09.10.2014 11:20:27
Jochen
Hallo Excel-Freunde,
ich brauche mal wieder eure Hilfe.
Wenn ich in einer Tabelle Daten in einer Zeile ändere möchte dass das Änderungsdatum in der gleichen Zeile eingetragen wird.
Beispiel:
Zeile B2 - Q2 Ergebnis in R2 das Änderungsdatum
Zeile B4 - Q4 Ergebnis in R4 das Änderungsdatum
Zeile B8 - Q8 Ergebnis in R8 das Änderungsdatum
usw.
Ich hoffe dass mir irgendjemand in der großen Excel-Familie helfen kann.
Danke im Voraus
Jochen

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Aktualisierungsdatum
09.10.2014 11:36:15
Matthias
Hallo Jochen
Code gehört ins entsprechende Tabellenblatt
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:Q8")) Is Nothing And Target.Count = 1 Then
Select Case Target.Row
Case Is = 2, 4, 8
Cells(Target.Row, "R") = Date
End Select
End If
End Sub
Gruß Matthias

Anzeige
AW: Aktualisierungsdatum
09.10.2014 12:26:20
Jochen
Hallo Matthias,
habe mich mal wieder falsch ausgedrückt, Entschultigung.
Es sollen natürlich alle Zeilen berücksichtigt werden. Der Bereich ist von B2 - Q1001.
Das Änderungsdatum
Gruß
Jochen

AW: Aktualisierungsdatum
09.10.2014 13:02:35
Matthias
Hallo
Dann reicht das so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:Q1001")) Is Nothing And Target.Count = 1 Then
Cells(Target.Row, "R") = Date
End If
End Sub
Gruß Matthias

Anzeige
AW: Aktualisierungsdatum
09.10.2014 13:19:06
Jochen
Danke Matthias, so ist genau wie ich es haben wollte.

AW: Aktualisierungsdatum
11.10.2014 09:04:40
simonek
Hallo zusammen der code ist interessant.
Das heißt, wenn jemand was in der Zeile was ändert, wird das Datum in R aktualisiert.oder?
Wie bekomme ich den private sub in die schaltfläche rein? Denn ich sehe den Code beim Makro zuteilen nicht:-(
LG simone
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