Hallo Günther,
so sollte es klappen:
Dim rg As Range
Set rg = Application.InputBox("Bitte Bereich in der Tabelle wählen...", Type:=8)
MsgBox rg.Address
Gruß von Luschi
aus klein-Paris
AW: Dialog zur Bereichsauswahl
08.12.2011 16:15:53
dan
Hallo Guenther,
versuch es mit dem 'RefEdit'. Es ist nicht eingeblender bei default aber man kann es leicht einblenden:
ToolBox == Controls Tab == Additional Controls == RefEdit.ctrl auswaehlen.
Gruss dan, cz.
Oder das geht auch:
Set rng = Application.InputBox("Select cell(s)",type:=8)
AW: Dialog zur Bereichsauswahl
08.12.2011 17:21:44
guentherh
Danke Euch beiden,
vor allem die Application.Inputbox gefällt mir, die hatte ich noch gar nicht gesehen.
Beste Grüße,
Günther