Zellbereich in einem VBA-Makro über die Maus oder die Tastatur auswählen

23. März 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Zellbereich in einem VBA-Makro über die Maus oder Tastatur auswählen und als Variablenergebnis zurückgeben

Zellbereich über ein Eingabefenster auswählenZellbereich über ein Eingabefenster auswählen

Zellbereich über ein Eingabefenster auswählen

In vielen Makro werden Zellbereiche verarbeitet. Suchen Sie eine komfortable Möglichkeit, aus einem Makro heraus den Anwender einen Bereich auswählen zu lassen? Dann können Sie das Kommando INPUTBOX verwenden.

Die folgende Abbildung zeigt, welches Eingabefenster Sie mit diesem Befehl in Ihre Makros einbinden können:

Zellbereich über ein Eingabefenster auswählen

Nach der Anzeige des Fensters können Sie mit der Maus oder Tastatur einen Bereich in einer Tabelle auswählen. Im Eingabefeld setzt Excel automatisch den passenden Bezug ein. Das folgende Makro zeigt, wie Sie solche Fenster einbinden:

Sub MarkiereBereich()
On Error Resume Next
Dim Bereich As Range
Set Bereich = Application.InputBox("Bitte markieren Sie einen Bereich", _
 "Bereich wählen", , , , , , 8)
MsgBox "Sie haben den folgenden Bereich ausgewählt: " & _
 Bereich.AddressLocal(False, False)
On Error GoTo 0
End Sub

Nach dem Start des Makros blendet Excel zuerst das Fenster ein. Wenn Sie einen Zellbereich ausgewählt haben, zeigt Excel den zuvor gewählten Bereich in einem Mitteilungsfenster an:

Informationen über den gewählten Bereich darstellen

In Ihren Makros setzen Sie anstelle des Mitteilungsfensters den Programmcode ein, mit dem Sie die Zellen im zuvor markierten Zellbereich verarbeiten möchten. Da der Befehl INPUTBOX ein Objekt vom Typ RANHGE zurückliefert, können Sie den gewählten Zellbereich sofort verarbeiten, beispielsweise in einer FOR-EACH-Schleife.

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro direkt aus Excel zu starten, setzen Sie die Tastenkombination ALT F8 ein.

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"