Mehrere Zellen markieren im Makro

Hallo miteinander!

Ich möchte in einem Makro (und ich arbeite mit dem Makrorecorder) mehrere zellen markieren - und zwar alle, die über der aktuellen zelle sind…

Leider ermittelt Excel beim Erstellen immer die Anzahl, aber die soll ja unterschiedlich sein…
Dies kommt in VBA heraus:
ActiveCell.Offset(-16, 0).Range(„A1:A17“).Select

ich habe schon auf relative Bezüge bei der Aufzeichnung gestellt.

Wer kann mir helfen?

Gruß
Volker

Hallo Volker,

Ich möchte in einem Makro (und ich arbeite mit dem
Makrorecorder) mehrere zellen markieren - und zwar alle, die
über der aktuellen zelle sind…

Ich hoffe mal, ich habe Dich richtig verstanden. Du willst von der aktuellen Zelle aus alle darüberliegenden markieren? Bis zur
obersten Zeile? Dann hilft Dir dieses Makro.

Sub markieren()
zeile = ActiveCell.Row 'Aktuelle zeile ermittel'
spalte = ActiveCell.Column 'Aktuelle Spalte ermitteln'
Range(Cells(1, spalte), Cells(zeile, spalte)).Select 'Markieren'
Cells(zeile, spalte).Activate 'Startzelle wieder aktiv setzen'
End Sub

Bye Micha

Ich hoffe mal, ich habe Dich richtig verstanden. Du willst von
der aktuellen Zelle aus alle darüberliegenden markieren? Bis
zur
obersten Zeile? Dann hilft Dir dieses Makro.

Hey - sieht gut aus - Danke!