froschkoenig-lr
Goto Top

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. face-smile

Content-Key: 566686

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

Ausgedruckt am: 29.03.2024 um 05:03 Uhr

Mitglied: Froschkoenig-LR
Froschkoenig-LR 23.04.2020 um 10:56:02 Uhr
Goto Top
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

Eine Frage noch.
Wie kann ich erst ab Zeile 5 beginnen?
Der Spaltenbereich A:M beginnt ja ab Zeile 1.

Danke.