Bereich selektieren über InputBox?

Hallo zusammen,
Pls, need your help !!!
Ich habe eine Prozedur geschrieben die eine InpuBox aktiviert wenn eine Zelle außerhalb eines bestimmten Daatenbereiches markiert ist. Nun möchte den Datenbereich markiren können indem ich den Courser in der Inputbox in das Eingabefeld setze und dann den Datenbereich im Tabellenblatt markiere.
Hat jemand einen Ansatz für dieses Problem für mich ???
Gruß und Dank im voraus
Struwe

Hallo,

mit einer InputBox geht es nicht. Du musst ein Formular kreieren, dort ziehstDu ein RefEdit-Control daruf.

Mit dem geht das, was Du vorhast.

Gruß

Micha

Moin, Struwe,

unter XL2000 konnte man in der InputBox den Type 8 (Zellbezug, z. B. ein Range-Objekt) abfragen...

cu
jinx

Hallo,

er wollte aber den Bereich über Maus selektieren und das geht nun mal nur über Userform und Refedit. Inputbox ist ja ein manueller Voergang.

Gruß

Micha

Moin, Michael,

nach folgendem Code von Bernd Held kann ich den Bereich per Box oder per Maus markieren:

Sub BereicheMarkieren()
Dim Bereich As Range
'
On Error Resume Next
Set Bereich = _
 Application.InputBox(prompt:="Bereich markieren", Type:=8)
    If Bereich Is Nothing Then
        MsgBox "Sie haben keinen Bereich ausgewählt", vbExclamation
    Else
        Bereich.Select
    End If
End Sub

cu
jinx