Select case
Albert
ich möchte bei der Eingabe in bestimmte Felder weiterspringen. Das gelingt mir auch so weit, nur bei Case 4: habe ich einen fixen Bezugspunkt den ich abfrage, das heißt, wenn in der Zelle O8 der Wert 1 steht, soll zwei Spalten weitergesprungen werden, wenn nicht, soll drei Spalten weitergesprungen werden.
Diese Anweisung soll in jeder Zeile der Tabelle funktionieren, ich schaffe die Abfrage nur mit einer Relativadresse zB: ~f~ If Cells(Target.Row + 2, 9) = "Betrag S" Then ... ~f ~
Wie muss nun die Anweisung bei Case 4: lauten?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A, B, c, d, e, f, g, h, i, j, k, l, m, n, o, p As Long
On Error GoTo c:
Select Case Target.Column
Case 2: Target.Offset(0, 1).Select
Case 3: Target.Offset(0, 1).Select
Case 4:
If Cells(Target.Offset.Address(8, 15)) = 1 Then
i = 0
j = 2
Else
i = 0
j = 3
End If
Target.Offset(i, j).Select
Vielen Dank, Albert