Range Input Box

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Range Input Box
von: Luca Meier
Geschrieben am: 13.10.2015 07:48:58

Hallo zusammen, ich habe eine Inputbox erstellt, bei welcher man eine Range auswählen muss. Nun ist es aber mühsam, da man mit der Maus so zusagen blind über die Zellen fahren muss, da die ausgewählten Zellen nicht gestrichelt werden ( so wie es bei Excel normalerweise ist, wenn man mehrere Zellen auswählt ) Weiss jemand wie ich das hinkrieg, dass man beim auswählen die gewählten Zellen hervorgehoben sieht?
So sieht die Inputbox aus:
Set xrange = Application.InputBox(Prompt:="Bitte x-Werte auswählen:", Title:="Filled Chart", Type:=8)

Bild

Betrifft: Bei mir gehts
von: RPP63
Geschrieben am: 13.10.2015 09:03:36
Hi!
Unter xl2010 funktioniert dies wie gewünscht.
Ich lasse den Thread natürlich offen.
Gruß Ralf

Bild

Betrifft: AW: Bei mir gehts
von: Luschi
Geschrieben am: 13.10.2015 09:20:18
Hallo Luca,
bei mir sieht das in Excel 2010/13/16 so aus:
Userbild
und mein Vba-Code so dazu:


Sub MachMal()
    Dim xRange As Range
    
    On Error Resume Next
       Set xRange = Application.InputBox(Prompt:="Bitte x-Werte auswählen:", Title:="Filled  _
Chart", Type:=8)
    On Error GoTo 0
    
    If Not (xRange Is Nothing) Then
       MsgBox "Ok, Bereich ausgewählt '" & xRange.Parent.Name & "!" & xRange.Address & "'"
    Else
       MsgBox "Makro-Ende, da  k e i  n  Bereich ausgewählt wurde!", 16
       Exit Sub
    End If
    
    'hier geht's weiter...
End Sub
Gruß von Luschi
aus klein-Paris

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textausgabe rechts neben gesuchter Zelle"