Excel - Letzten eingetragenen Zellwert in eine andere definierte Zelle schreiben (VB)

Hallo zusammen,

folgender Quellcode kopiert den letzten eingetragenen Zellwert in Spalte A nach P1.

Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Range("P1") = Target.Value  
ErrorHandler:
Application.EnableEvents = True
End If
End Sub

Wie müsste der Code abgeändert werden, damit nur die Spalten A-N, Zeilen 5-7, Zeilen 13-35, Zeilen 38-10 und Zeilen 108-110 ausgewertet werden?
Des Weiteren wäre wünschenswert, dass z.B. der letzte Zelleintrag in G21 die Zelle P1 mit G21 in zweiter Zeile füttert, in erster Zeile steht ja dann der eingetragene Zellwert.

Würde mir jemand helfen?

Vielen Dank und eine gute Nacht.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 566686

Url: https://administrator.de/contentid/566686

Ausgedruckt am: 28.11.2024 um 04:11 Uhr

1 Kommentar

Rückmeldung:

So funktioniert mein Vorhaben:

Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:M")) Is Nothing Then  
On Error GoTo ErrorHandler
Application.EnableEvents = False
Range("P1") = Target.Value & "€" & vbCrLf & "Zelle: " & Target.AddressLocal  
ErrorHandler:
Application.EnableEvents = True
End If
End Sub