Hallo Dutschi,
Ausgangspunkt ist A1:
Private Sub CommandButton2_Click()
Dim Von, Nach, N
Von = Array("A1", "B5", "B2") 'wenn der Cursor hier steht
Nach = Array("B5", "B2", "A5") 'hüpft er nach dort
For N = 0 To UBound(Von)
If Von(N) = ActiveCell.Address(0, 0) Then
Range(Nach(N)).Select
Exit Sub
End If
Next N
ActiveCell.Offset(0, 1).Select 'legt fest wohin Tab normalerweise hüpft
End Sub
Selbst in Verwendung, aber natürlich nicht Marke Eigenbau (von irgendwo rauskopiert!).
schöne Grüße
Paul1