Bereich markieren

[Frankster]

Hallo!

Ich versuche gerade folgendes Problem zu lösen

Es soll ein Bereich markiert werden deren Zellen nicht leer sind.
Auch wenn dazwischen leere Zellen vorhanden sind, soll er den Bereich bis zur letzen Zelle markieren die noch einen Inhalt hat.

Die Spaltenanzahl ist bekannt. Die geht immer von A3 bis F3
Nur die Zeilenanzahl variiert.

ActiveSheet.Range("A3", ActiveSheet.Range("A65536").End(xlUp)).Select

Dieser Code funktionert super für eine Spalte.

Mfg
Frankster

 

[Jacka]

Hi!

Probier es mal hiermit:

lastrow = ActiveSheet.UsedRange.Rows.Count

Damit erhältst du die letzte benutze Zeile.
Dann noch selektieren:

Range("A3:F" & lastrow).Select

Viele Grüße,
Jacka

 

[Frankster]

Hallo!

Danke.
Das Problem mit COUNT ist, dass er nur den Bereich nimmt, vom 1. Zeilen Eintrag bis zum letzen Zeilen Eintrag

Bsp.:
Bei A3 ist der erste Eintrag
In F10 ist der letzte Eintrag
COUNT = 8
Daher würde er nur von A3:F8 markieren, was ja nicht mein Ziel ist

Daher habe ich deine Zeile verändert:

lastrow = ActiveSheet.UsedRange.Rows.Address
Range(lastrow).Select

Und so funktionert das jetzt eigentlich ganz gut

Mfg
Frankster

 

[Jacka]

Stimmt!
So gehts auch!