Excel ab 97: Wertbereich ermitteln


Ein Makro findet automatisch die letzte belegte Zelle in einer Spalte oder Zeile.

Sie benötigen eine Funktion, um die letzte Zelle in einer Spalte zu ermitteln, die Werte enthält. Mit Hilfe eines VBA-Makros findet Excel diese Zelle automatisch. Der Sinn: Der Bereich, in dem Bearbeitungen stattfinden, lässt sich auf diese Weise analysieren und dynamisch anpassen.

Um diese Prüfung für die Spalte A durchzuführen, setzen Sie folgendes VBA-Makro ein:

Sub CheckLastCell()
Dim meld, wert
meld = "Letzte belegte Zelle:" + (Chr(13))
wert = Range("A65536").End(xlUp).Address
MsgBox meld + wert
End Sub

Wenn Sie dieses Makro aufrufen, zeigt ein Hinweisdialog die Koordinate der letzten belegten Zelle in Spalte A an.

Möchten Sie die Überprüfung für eine andere Spalte durchführen, passen Sie im VBA-Editor das Range-Argument entsprechend an. Für die Spalte F verwenden Sie beispielsweise das Befehlselement

Range("F65536").

Soll das Makro die letzte belegte Zelle in einer Zeile ermitteln, modifizieren Sie den Range-Befehl. Die folgende Anweisung findet den letzten Wert in Zeile 2:

wert = Range("IV2").End(xlToLeft).Address

 Auf folgende Weise legen Sie das Makro an: Öffnen Sie den Visual Basic Editor mit [Strg+F11]. Falls nötig, machen Sie das Modul-Fenster mit dem Befehl Ansicht/Code sichtbar. Tippen Sie hier das Makro-Listing ein. Anschließend klicken Sie auf Speichern. Mit dem Befehl Datei/Schließen und zurück zu Microsoft Excel wechseln Sie zur Arbeitsmappe.

Sie starten die Überprüfung, indem Sie den Dialog Makro mit der Tastenkombination [Alt+F8] öffnen. Wählen Sie das Makro aus und klicken auf Ausführen.
  

  Zurück zur Liste
Erschienen in: PC Magazin, Ausgabe 01/2001