Immer den aktuell verwendeten Bereich einer Excel-Tabelle ansprechen

09. Juli 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie Tabelleninhalte in Ihren Excel-Makros optimal verarbeiten

Wenn Sie per Makro Zellen in Ihren Tabellen verarbeiten möchten, sollten Sie sich auf die Zellen beschränken, die auch wirklich Inhalte aufweisen. Das ist einfacher und viel schneller, als alle Zellen in allen Spalten und Zeilen zu durchsuchen.

Excel bietet Ihnen zu diesem Zweck die Eigenschaft UsedRange an. Sie verweist auf alle benutzten Zellen einer Tabelle und liefert ein Range-Objekt. Um beispielsweise die Anzahl der Zellen in einer Tabelle zu zählen, die eine Formel enthalten, verwenden Sie das folgende Makro:

Sub FormelnZaehlen()

Dim Zelle As Range

Dim Zaehler As Double

Zaehler = 0

For Each Zelle In ActiveSheet.UsedRange.Cells

If Zelle.HasFormula Then Zaehler = Zaehler + 1

Next Zelle

MsgBox ("Es sind" & Str$(Zaehler) & " Zellen mit Formeln in der aktiven Tabelle.")

End Sub

Das Makro setzt die Eigenschaft UsedRange.Cells ein, die einen Bezug auf alle Zellen möglich macht, die in der Tabelle in Verwendung sind. Wenn eine Zelle eine Formel enthält, wir die Variable "Zaehler" um 1 hochgezählt. Anschließend erfolgt eine Ausgabe des Ergebnisses in einem Mitteilungsfenster:

rtemagicc_20080709-1bmp.jpg

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"