wenn in A1:A9 Änderungen aktuelles Datum in B1:B9

Forumthread: wenn in A1:A9 Änderungen aktuelles Datum in B1:B9
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: wenn in A1:A9 Änderungen aktuelles Datum in B1:B9

10.08.2025 13:03:47

Robert Pilz

Hallo liebe Exel Gemeinde;

habe mal wieder ein Problem. Bräuchte dabei Eure Hilfe.
in den Zellen A1 bis A9 stehen Werte welche des Öfteren geändert werden in einer Einzelnen Zelle. Wenn in der Zelle A1 der Wert geändert wird soll in B1 das aktuelle Datum angezeigt werden. Das gleiche wenn z.B. in A5 geändert in B5 das Datum. usw.

Nun habe ich ein Makro gebastelt mit meinen bescheidenen Kenntnissen

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then

Range("B1").Value = Date End

If

End Sub

wo es mir in der Zeile

Range("B1").Value = Date End

einen Fehler raushaut.

Da habe ich noch gar nicht mit mehreren Zellen probiert.

Vielleicht könnt Ihr mir helfen und einen Weg aufzeigen

Für Eure Mühe danke ich schon mal im voraus.

MFG Robert

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: wenn in A1:A9 Änderungen aktuelles Datum in B1:B9

10.08.2025 13:10:18

RPP63
AW: wenn in A1:A9 Änderungen aktuelles Datum in B1:B9

10.08.2025 15:30:24

Robert Pilz

AW: wenn in A1:A9 Änderungen aktuelles Datum in B1:B9

10.08.2025 13:10:18

RPP63

Moin!
Das End gehört natürlich vor If und nicht nach Date.
Gleich mal aufgebohrt:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A9")) Is Nothing Then

  If Target.CountLarge = 1 Then Target.Offset(0, 1) = Date

End If

End Sub

Gruß Ralf

AW: wenn in A1:A9 Änderungen aktuelles Datum in B1:B9

10.08.2025 15:30:24

Robert Pilz

Hallo Ralf;

das funktioniert Top.

Ich danke Dir von ganzen Herzen.

MfG Robert

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