Ich möchte 7 Zeilen unterhalb der selektierten Zelle markieren. Also z.B der Curser steht in B3, dann möchte ich die Zeilen 4-10 markiert haben.
Dank schon einmal für Eure Mühe
Gruss Klaus
Sub markieren()
z = ActiveCell.Row
sp = ActiveCell.Column
ActiveSheet.Range(Cells(z + 1, sp), Cells(z + 8, sp)).Select
End Sub
Sub markieren()
z = ActiveCell.Row
sp = ActiveCell.Column
ActiveSheet.Range(Cells(z + 1, sp), Cells(z + 8, 256)).Select
End Sub