Office: InputBox eine Auswahl vorgeben

Hallo zusammen!

Ist es möglich einer Inputbox eine Auswahl von Werten vorzugeben? Beispielsweise die Werte die in den Zellen A1:A10 stehen...




Gruß
Mattin

:)

 

Hallo Mattin

Du willst dann bestimmt einen wert auswählen mittels OptionsButton oder CheckBox???

Oder sollen die Werte nur aufgelistet werden??




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3

 

Hallo Hajo!


Genau - ich möchte einen Wert auslesen. Das ganze soll aber zwingend über eine Inputbox erfolgen, da diese anschließend wieder verschwindet.

 

Vielleicht sehe ich das jetzt zu eng, aber der Befehl Inputbox ist in VBA für einen internen Eingabedialog vorbelegt:

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

Wenn du das meinst, kannst du die Vorbelegung über den default-Parameter steuern.

sResultat = InputBox("Bitte ... eingeben:", "Titel", "Vorgabewert")

Hier wird das Resultat in der Variablen sResultat gespeichert.

Gruß,

 

Hallo Mattin

ich kann damit Leben das Du meine Fragen nicht beantworten willst.

varPrints = Application.InputBox("Anzahl der Ausdrucke" & Range("A1") & ", " & Range("A1"), "Drucken", 0, Type:=1)


Gruß Hajo

 

Hallo Hajo!

Ich dachte ich hätte die Frage beantwortet. Ich versuch mich mal klarer auszudrücken:

In den Zellen A1:A10 eines ausgeblendeten Arbeitsblatts stehen 10 Namen.

Beim Start meiner Datei soll eine Inputbox erscheinen, die micht fragt bwelchen, dieser 10 Namen sie in Zelle A1 des aktiven Arbeitsblatts schreiben soll.

Wichtig ist mir, dass das Blatt mit den 10 Vorgabewerten nicht sichtbar ist und dass die InputBox nach ihrer Benutzung wieder verschwindet, so dass alternative Möglichkeiten wie Listboxen oder Comboboxen ausfallen.

Ich hoffe ich kann Dir trotz meiner offensichtlichen Kommunikationsschwächen noch eine Antwort entlocken.

Falls die Antwort bereits in deinem vorigen Beitrag zu lesen war - mit dem Befehl komme ich nicht so ganz klar...


Gruß
Mattin

 

Hallo Mattin

wie ??

gibts Du dann einen von den 10 Werten ein?? Dazu habe ich die Lösung schon vorgeschlagen. Nur ändern Worksheets("ausgeblendet").Range("A1")

Oder wie gefragt mit optionsButton oder Checkbox.

Dies könnte man über einen Userform lösen oder den Assiblase dafür benutze. Aber für den zweiten Teil habe ich hier keinen Code.

Gruß Hajo

 

Hallo Hajo!

Ich möchte keine Checkboxen oder ähnliches verwenden. Ich möchte einen von den 10 Namen, die die InputBox mir vorschlägt anklicken. Danach soll alles vorbei sein und so aussehen, als ob ich nur den Namen in Zelle geschreiben hätte.

 

Hallo Mattin

mir scheint wir sprechen hier von unterschiedlichen Sachen.

Wenn Du keine Checkboxen im Dialog verwenden willst, mußt Du es mit einer Userform und Label machen.

Gruß Hajo

 

Auch wenn Dich die nächste Frage wohl schockieren wird:


Was ist eine Userform bzw. ein Label?

 

Hallo Mattin

Userform =selbserstellter Dialog, mal ganz grob geschrieben
Label=Beschriftung, keine Eingabe

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Userform, im Werkzeugkasten Label anklicken und auf Userform aufziehen.
und dann geht das Code schreiben los.

Gruß Hajo

 

Ich hatte eigentlich gehofft, dass das ganz einfach wäre, aber ich glaube, das übersteigt doch etwas meine Kenntnisse. Ich danke Dir aber dennoch für Deine Geduld und Hilfe, Hajo!

 

Hallo Mattin

aus dem Grunde hätte ich auch die Variante mit Checkboxen oder OptionsButton als bessere Lösung angesehen. Da hätte man den Hilfsassi ein wenig falsch eingesetzt. Aber diese Lösung wurde ja von Dir klar abgelehnt. Dazu hätte ich auch meine Literatur Studieren müssen. Bert Körn hat in seinen Buch ein recht gutes Beispiel dazu.

Gruß Hajo