Zellensprung
07.02.2017 11:45:55
Sylvio
habe diesen Code für Zellensprung klappt soweit auch.
Aber auch nur wenn ich in die markierte Zelle was eintrage.
Was müsste man ändern damit das auch funktioniert wenn in Spalte 4 oder 6
kein wert steht?
Danke,
Sylvio
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, i%
arr = Array(1, 3, 4, 6)
For i = 0 To UBound(arr)
If Target.Column = arr(i) Then
If Target.Column = arr(UBound(arr)) Then
Cells(Target.Row + 1, arr(0)).Select
Else
Cells(Target.Row, arr(i + 1)).Select
End If
End If
Next
End Sub