In einer Tabelle möchte ich mit der Maus einen Bereich markieren. Dann soll ein VBA-Makro den Inhalt dieses Bereiches auslesen und weiterverwenden können. Wie kann ich den markierten Bereich abfragen?

Die Markierung können Sie mit der InputBox-Funktion in VBA auswerten. Öffnen Sie den VBA-Editor mit “Extras | Makro | Visual Basic-Editor”. Geben Sie folgende Anweisungen ein:

Sub Mausbereich()
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:= \"Bereich mit der Maus markieren\", Type:=8)
MsgBox(WorksheetFunction.Sum(Bereich))
EndSub

Nach dem Markieren speichert VBA die Felder in “Bereich” – damit können Sie weiterarbeiten. Das Ermitteln des markierten Bereiches übernimmt die Funktion “InputBox” des Objektes “Application”. Wichtig ist das Argument “Type:=8″: Es legt fest, dass der Rückgabewert ein Zellbezug ist.

Ähnliche Beiträge:

Gilt für: VBA, Excel 97, Excel 2000, Excel XP