13.10.2022, 14:24
Hallo
im Excel-Blatt habe ich so programmiert, dass ich per Enter vom Feld (auch wenn leer ist) zu bestimmten Feld springen kann. Allerdings ich kann nicht das Sprung nicht unterbrechen, wenn ich nebenbei mal ein anderen Feld anklicken will, um dort etwas zu notieren, also ich muss mich erst zwangsläufig komplett bis zum Ende durchspringen lassen.
Wie kann ich entsprechend so programmieren, damit ich das Sprung unterbrechen kann? Siehe Code-Skript unten.
Im Voraus vielen Dank!
Herzliche Grüße
Martin
im Excel-Blatt habe ich so programmiert, dass ich per Enter vom Feld (auch wenn leer ist) zu bestimmten Feld springen kann. Allerdings ich kann nicht das Sprung nicht unterbrechen, wenn ich nebenbei mal ein anderen Feld anklicken will, um dort etwas zu notieren, also ich muss mich erst zwangsläufig komplett bis zum Ende durchspringen lassen.
Wie kann ich entsprechend so programmieren, damit ich das Sprung unterbrechen kann? Siehe Code-Skript unten.
Im Voraus vielen Dank!
Herzliche Grüße
Martin
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static strA As String
Select Case strA
Case "$U$2"
Range("F3").Activate
Case "$F$3"
Range("C6").Activate
Case "$C$6"
Range("C7").Activate
Case "$C$7"
Range("C8").Activate
Case "$C$8"
Range("N6").Activate
Case "$N$6"
Range("N7").Activate
Case "$N$7"
Range("S6").Activate
Case "$S$6"
Range("S7").Activate
Case "$S$7"
Range("D11").Activate
Case "$D$11"
Range("D12").Activate
Case "$D$12"
Range("D13").Activate
Case "$D$13"
Range("D15").Activate
Case "$D$15"
Range("D16").Activate
Case "$D$16"
Range("D17").Activate
Case "$D$17"
Range("D18").Activate
Case "$D$18"
Range("D19").Activate
End Select
strA = ActiveCell.Address
End Sub