Nach enter in die jeweilige Zeile zurückspringen
18.02.2025 19:12:24
Jürgen Rempe
Ich möchte gerne nachdem in der Zeile ein Wert über einen Barcodescanner wieder in die Zeile zurückspringen.
Zum Beispiel gebe ich einen wert in A2 ein und nach Enter soll wieder die Zeile A2 aktiv sein.
Die Zeile wird in ein zweites Blatt kopiert wo ich die Daten vom Scanner auslese.
Das Kopieren habe ich so gelöst, jetzt fehlt mir nur noch der Sprung in die alte Zeile A2.
Es funktioniert zwar, es kommt aber immer die Meldung " Die Zelle oder das Diagramm ist auf einem schreibgeschützten Bereich " die muss ich dann immer mit Enter bestätigen und das soll wegfallen.
Private Sub Worksheet_Change(ByVal Target As Range)
'Code in das entsprechende Tabellenblatt!
If Not Intersect(Target, Range("A2:A" & Cells(Rows.Count, "H").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
If Target > 0 Then
Range(Cells(Target.Row, "A"), Cells(Target.Row, "H")).Copy _
Destination:=Sheets("Berechnung").Range("A" & Sheets("Berechnung").Cells(Rows.Count, "A").End(xlUp).Row + 1)
If Target.Address = "$A$2" Then Range("A2").Select
End If
End If
End SubWäre Super wenn jemand eine Lösung hat.
Danke und Gruß
Jürgen Rempe
Anzeige