ich versuchte mit aufzeichen folgendes Makro:
2 Zellen nach rechts.
dann wird folgendes aufgezeichnet: Range("H20").Select
Das Makro soll aber, ab der x-gewählten Position 2 Zellen nach rechts gehen.
Lieben Dank für eine Hilfe.
Manu
Sub SelRe2()
Selection.Offset(0,2).Select
End Sub
(vorausgesetzt, du gerätst dabei nicht hinter die letzte Spalte des Blattes!)
Sub CopSelRe2() ' gesamte Markierung
Selection.Offset(0, 2).Copy Selection
End Sub
Sub CopActRe2() ' nur aktive Zelle
ActiveCell.Offset(0, 2).Copy ActiveCell
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfortden Wert oder die Formel von dort (2 Zellen nach rechts) in die aktive Zelle kopieren
Wert und Formel ist aber ein Unterschied.Sub GetValue_I()
MsgBox ActiveCell.Offset(, 2)
End Sub
oder:
Sub GetValue_II()
MsgBox Cells(ActiveCell.Row, ActiveCell.Column +2)
End Sub
Gruß