Per Maus markierten Bereich auswerten

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.