Gefüllte Zellen markieren mit und ohne Lücken in Excel VBA

In diesem Tutorial zeige ich Euch mehrere Möglichkeiten Zellen mit Daten zu markieren. Ich zeige ich 3 Varianten. Einmal wie man alle benutzte Zellen in der Tabelle markieren kann. Im anderen Beispiel geht es um zusammenhängende Bereiche ohne Lücken. Und zum Schluss noch eine Version wo alle Zellen markiert werden auch wenn Lücken vorhanden sind.

Das Startvideo der VBA Tutorial Serie auf YouTube findet Ihr hier

Die Playlist meiner VBA Tutorial Serie auf YouTube findet Ihr hier

Achtung:

Benutzt zum Üben eine separate Tabelle für Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.

Video zu diesem Tutorial:

Beispielscript: Benutzte Zellen markieren in Excel VBA

Im nachfolgenden Script werden alle Zellen markiert die in der Excel Tabelle bisher benutzt wurden. Der Vorteil hierbei ist, dass man sich nicht auf eine bestimmte Zeile oder Spalte beziehen muss um dort die letzte gefüllte Zeile oder Spalte auslesen zu müssen. Der ausgewählte Bereich ist der größte von denen die ich hier auf der Seite präsentiere. Benutzt wird hier UsedRange. Hiermit lässt sich über UsedRange.Rows.Count die letzte (unterste) Zeile oder mit UsedRange.Columns.Count die letzte (rechteste) Spalte ausgeben. Über ActiveSheet greife ich auf das aktive Tabellenblatt zu.

Es erfolgt in allen 3 Scripten eine Ausgabe der Zeilennummer in E7 und der Spaltennummer in E9.
Die Variablen ZeilenEnde und SpaltenEnde kann man dann natürlich auch für den weiteren Programmcode nutzen.

Option Explicit

Sub gesamtenBenutztenBereichMarkieren()
    
    Dim ZeilenEnde As Integer
    Dim SpaltenEnde As Integer

    ActiveSheet.UsedRange.Select
    
    ZeilenEnde = ActiveSheet.UsedRange.Rows.Count
    SpaltenEnde = ActiveSheet.UsedRange.Columns.Count
        
    Range("E7").Value = ZeilenEnde
    Range("E9").Value = SpaltenEnde
        
End Sub

Beispielscript: Gefüllte Zellen ohne Lücken markieren in Excel VBA

In diesem Beispiel benutze ich Cells um von einer Anfangsposition aus zu starten. In diesem Fall Cells(1,1) das bedeutet dass wir in Zelle A1 beginnen.
Cells(ZeilenNummer, SpaltenNummer)
Von A1 aus benutzen wir eine Möglichkeit wie mit STRG + Pfeil nach unten. Mit End(xlDown) springen wir zur untersten Zeile die mit Daten gefüllt ist. Aber nur in einem durchgängig beschriebenen Zell – Bereich ohne Lücken. Vor jeder Lücke oder besser gesagt leeren Zelle wird gestoppt.
Das gleiche betrifft auch die Spalte. Ebenfalls von A1 aus also Cells(1,1) gehen wir mit End(xlToRight) (STRG + Pfeil nach rechts) an die letzte Spalte die Daten enthält. Auch hier wird vor der ersten leeren Zelle gestoppt.

In dem Beispiel werden keine Zellen markiert die in der ausgewählten Startzeile oder Spalte Lücken enthält. Nur zusammenhängende Bereiche werden markiert.

Option Explicit

Sub letzteZeileSpalteOhneLuecke()
  
    Dim ZeilenEnde As Integer
    Dim SpaltenEnde As Integer

    ZeilenEnde = Cells(1, 1).End(xlDown).Row
    SpaltenEnde = Cells(1, 1).End(xlToRight).Column
    
    Range("E7").Value = ZeilenEnde
    Range("E9").Value = SpaltenEnde
    
    Range("A1", Cells(ZeilenEnde, SpaltenEnde)).Select
    
End Sub

Beispielscript: Gefüllte Zellen mit Lücken markieren in Excel VBA

Das letzte Beispielscript ist im Grunde genauso aufgebaut wie das letzte. Allerdings gehen wir hier nicht mit Cells(1,1) von Zelle A1 aus sondern vom Ende. Mit Rows.Count erhalten wir die letzte Zelle die in der Tabelle überhaupt vorhanden ist. Von dort aus gehen wir dann mit End(xlUp) genau wie mit STRG + Pfeiltaste nach oben, zur ersten Zelle die Daten enthält. Dabei spielt es keine Rolle ob darüber Lücken (leere Zellen) vorhanden sind.
Das gleiche mit der Spalte. Mit Collumns.Count erhalten wir die letzte Spalte die in der Tabelle vorhanden ist. Von hieraus gehen wir dann mit End(xlToLeft) zur ersten beschriebenen Zelle. Also zu der Zelle die am weitesten rechts ist und gefüllt ist.

Wichtig ist aber natürlich dass sich das immer auf die Zeile oder Spalte bezieht die Ihr als Ausgangsbasis benutzt habt. In diesem Fall ist es Spalte 1 und Zeile 1. Ihr müsst also schauen wo Eure Daten sind die Ihr benötigt und die entsprechende Zeile oder Spalte nutzen.

Option Explicit

Sub letzteZeileSpalteMitLuecke()
   
    Dim ZeilenEnde As Integer
    Dim SpaltenEnde As Integer

    ZeilenEnde = Cells(Rows.Count, 1).End(xlUp).Row
    SpaltenEnde = Cells(1, Columns.Count).End(xlToLeft).Column
    
    Range("E7").Value = ZeilenEnde
    Range("E9").Value = SpaltenEnde
    
    Range("A1", Cells(ZeilenEnde, SpaltenEnde)).Select
    
End Sub

Gefüllte Zellen markieren mit und ohne Lücken in Excel VBA