Herbers Excel-Forum - das Archiv

Zeilen bis letzte belegte Zeile markieren

Bild

Betrifft: Zeilen bis letzte belegte Zeile markieren
von: Tini

Geschrieben am: 20.04.2005 13:40:51
Hallo!
Ich möchte alle Zeilen bis zur letzten belegten markieren. Ich weiß wie ich die letzte Zeile (in der in Spalte A etwas steht) finden kann.
endup = Range("A65536").End(xlUp).Row
Aber wie baue ich das jetzt hier ein?
Rows(4:???????????).Select
Über so:
Rows(4:endup).Select
funktioniert es nämlich nicht.

Bitte um dringende Hilfe. Vielen Dank im Voraus.
Gruß Tini
Bild

Betrifft: AW: Zeilen bis letzte belegte Zeile markieren
von: R@iner
Geschrieben am: 20.04.2005 14:10:54
Hi,
meinst Du so:
Sub markieren()
Dim endup As Integer
endup = Range("A65536").End(xlUp).Row
Range(Cells(4, 1), Cells(endup, 256)).Select
End Sub

Gruß Rainer
Bild

Betrifft: AW: Zeilen bis letzte belegte Zeile markieren
von: Mac4
Geschrieben am: 20.04.2005 14:12:32
Hi Tini,
Sub test()
Dim endup As Long
endup = Range("A65536").End(xlUp).Row
Rows("4:" & endup).Select
End Sub

Marc
Bild

Betrifft: AW: Zeilen bis letzte belegte Zeile markieren
von: Werner Oertli
Geschrieben am: 20.04.2005 14:18:05
Hallo Tini
Range("A4").CurrentRegion.Select
Gruss Werner
Bild

Betrifft: AW: Zeilen bis letzte belegte Zeile markieren
von: Tini
Geschrieben am: 20.04.2005 14:49:47
Vielen lieben Dank für die vielen schnellen Beiträge. Hat funktioniert.
Gruß Tini
 Bild
Excel-Beispiele zum Thema "Zeilen bis letzte belegte Zeile markieren"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren