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

Beiträge aus den Excel-Beispielen zum Thema "Zeilen bis letzte belegte Zeile markieren"