Gruppe
Dialog
Problem
Über eine interaktive InputBox soll ein Bereich ausgewählt und zurückgegeben werden.
StandardModule: Modul1
Sub SelectCell()
Dim rng As Range
Set rng = Application.InputBox("Bitte einen Bereich auswählen:", Type:=8)
rng.Select
MsgBox "Bedanke mich für die Auswahl von " & rng.Address & "!"
End Sub