Zwischen bestimmten Zellen springen
jens
ich habe ein Blatt in dem immer in die Spalten N, P und S etwas eingetragen werden soll. Von Spalte S aus geht es dann in die nächste Zeile.
Ich habe ein Makro gefunden/gebastelt:
Sub Huepfe()
Dim Von, Nach, N
ActiveCell.Select
Von = Array("N4", "P4", "S4", "A4") 'wenn der Cursor hier steht
Nach = Array("P4", "S4", "N5", "B1") '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
Wenn ich das jetzt aber für Zeile 4 bis 35 machen soll dann wird die Von/Nach Zeile ja endlos lang.
Kann man das etwas eleganter machen?
Vielen Dank für Eure Hilfe
Gruß Jens