Markierung verschieben

[rtwl21]

ich suche schon seit Tagen und finde die Lösung nicht.

ich möchte gerne einen irgendeinen variable Bereich markieren, dann ein makro starten, um in allen Zeilen welche aktuell markiert sind die Markierung zu den Spalten P bis AK zu verschieben.

Beispiel:
ich markiere B4:B9 - > der Bereich P4:AK9 soll markiert werden.

[HKindler]

Hi,

Code:

Intersect(Selection.EntireRow, Range("P:AK")).Select

[rtwl21]

Wow, Vielen Dank für die schnelle Antwort und die Lösung. 
"Intersect" hab ich noch nie gesehen.