Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Range Input Box

Range Input Box
13.10.2015 07:48:58
Luca
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)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bei mir gehts
13.10.2015 09:03:36
RPP63
Hi!
Unter xl2010 funktioniert dies wie gewünscht.
Ich lasse den Thread natürlich offen.
Gruß Ralf

AW: Bei mir gehts
13.10.2015 09:20:18
Luschi
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige