X felder nach rechts

Hallo experten…
Ich hab grade ein kleines VBA Problem…
Und zwar möchte ich bei einem klick auf einen Button ein Makro starten. Dieses Makro soll dann x Zellen nach Rechts gehen und dort weiterarbeiten…

Am allerliebsten wäre es mir, wenn dazu die aktuelle Position ermittelt und dann berechnet werden könnte, wohin er springen muss.
Sprich dass ausgelesen wird „ich bin gerade in A3“ und soll um den Zelleninhalt von A1 nach rechts springen. In A3 steht gerade 4 also springe ich auf E4.

Wie würde das gehen und wie würde es aussehen, wenn ich statt horizontal vertikal bewegen müsste?

Am ende sollte das ganze wieder auf das Feld zurückspringen, wo der „cursor“ war, unabhängig davon, wo das gewesen ist…

Vielen Dank für alle Hinweise :smile:
Munich

Und zwar möchte ich bei einem klick auf einen Button ein Makro
starten. Dieses Makro soll dann x Zellen nach Rechts gehen und
dort weiterarbeiten…
Sprich dass ausgelesen wird „ich bin gerade in A3“ und soll um
den Zelleninhalt von A1 nach rechts springen. In A3 steht
gerade 4 also springe ich auf E4.
Wie würde das gehen und wie würde es aussehen, wenn ich statt
horizontal vertikal bewegen müsste?
Am ende sollte das ganze wieder auf das Feld zurückspringen,
wo der „cursor“ war, unabhängig davon, wo das gewesen ist…

Hi Munich,

Dim PosAlt As String
Sub tt()
PosAlt = ActiveCell.Address
Select Case Range("A2")
 Case "h"
 Range(PosAlt).Offset(0, Range("A1")).Select
 Case "v"
 Range(PosAlt).Offset(Range("A1"), 0).Select
 Case Else
 MsgBox "in A2 muss ein v oder ein h stehen"
 Exit Sub
End Select
'
MsgBox "weiterarbeiten?"
'
Range(PosAlt).Select
End Sub

Hruß
Reinhard

wow nice…
Super. Danke! *