ComboBox & CommandButton (VBA)

[lion7123]

Servus zusammen,
ich hoff jetzt mal das noch jemand zu dieser späten Stunde Wach ist  

ich hab mir eine ComboBox angelegt,
über ListFillRange (X18:X56) bezieht diese Ihre Daten

Im Code hatte ich bis dahin folgendes hinterlegt:

Code:

Private Sub CommandButton2_Click()

   Application.Goto Worksheets(ComboBox3.Value).Range("A1"), True
   
End Sub

soweit alles ok ... nun viel mir auf, dass sobald man in das Feld der ComboBox klickt, eine Manuelle Eingabe für die Suche machen kann.
Sobald man den alten Wert jedoch löscht, kommt eine Fehlermeldung.

Hier kam mir die Idee, die Suche erst durch einen Button auszulösen.


daraus wurde schlussendlich folgendes:
Zelle X18 wurde ohne Eingabe gelassen und folgenden Code, hab ich einem CommandButton hinzugefügt :

Code:

Private Sub CommandButton3_Click()

   Application.Goto Worksheets(ComboBox4.Value).Range("A1"), True
       Tabelle5.ComboBox4.ListIndex = 0
   
End Sub

Jetzt kann ich also Entweder auswählen was ich brauche oder eine Eingabe starten und diese durch den Button auslösen.
Danach wird die Liste wieder auf 0 also Zelle X18 gestellt.

Sollte nun jedoch jemand auf Suchen klicken und die eingabe vergessen haben, kommt wieder die Fehlermeldung Out of Range .... .... .... und das wollt ich ja eigentlich umgehen :)
Darum versuche ich den Button auf disable zu stellen wenn keine Eingabe vorhanden ist.

oder mach ich das ganze viel zu umständlich


Danke schonmal !


Gruß
Stefan

[Frogger1986]

Hallo 

versuche es mal so 

Code:

Private Sub CommandButton3_Click()

 If ComboBox4.Value<> "" then
       Application.Goto Worksheets(ComboBox4.Value).Range("A1"), True
      Tabelle5.ComboBox4.ListIndex = 0
 End if

End Sub

[lion7123]

leider nein ... war voller zuversicht

der button löst weiterhin aus wenn die combobox listindex 0 ausgibt.

danach kommt dann laufzeitfehler 9
Index außerhalb des gütligen bereichs

hoff du hast noch eine idee

[Frogger1986]

Bitte fertige doch mal eine beispieldatei an und lade sie hoch..

[lion7123]

na klar ... hoff sie hilft weiter

[Frogger1986]

Dann vll so …. 
solange die Combobox leer is kann der Button nicht gedrückt werden..

[lion7123]

Sooo ... sorry das es etwas gedauert hat mit meiner Antwort :)

Dein Code funktioniert  und is genau das was ich gesucht hab :19:

kurz hab ich mich auch leicht geärgert, dass ich nicht selbst drauf gekommen bin

Aber VBA is zum Lesen und teilweise zu verstehen das eine, aber selbst zu schreiben für mich immer noch ein großes Fragezeichen

In diesem Sinne vielen vielen Dank :)

-----------------------
Eine kleine Sache hätte ich allerdings noch, auch wenn es jetzt nicht passend zum Thema ist, aber vielleicht hast du ja spontan eine Idee ...

Bei der Liste die ich für einen Freund erstellt hab, ist genauso eine Combobox verbaut.
Hier wird der Inhalt einer Spalte aufgelistet der nur aus Zahlen besteht.
Die Auswahl wird in eine Zelle ausgegeben und mit dieser Formel sollte man direkt zu der Zelle hüpfen wo der Wert steht.

Code:

=WENN(ZÄHLENWENN(N:N;G3);HYPERLINK("#N"&VERGLEICH(G3;N:N;0);"►");"")

Die Formel funktioniert auch bei allen anderen Arten, nur eben hier nicht, weil wie ich rausfand der Inhalt eben nur aus 4 Zahlen pro Zelle besteht.

WARUM ?
Wenn du grad keine Antwort weißt ist jetzt auch kein Beinbruch und ich Wühl das Internet weiter durch  :21:

Dann evtl. bis morgen ansonsten nochmal Danke für den Code von gestern :19:

[Frogger1986]

Wohin soll denn der Hyperlink in deiner Datei führen?

[lion7123]

die formel soll an die stelle springen, wo der wert "x" zufinden ist.
Wert "x", wird durch die combobox in eine Zelle geschrieben.

das ganze passiert alles auf dem selben tabellenblatt.

[Frogger1986]

Erweitere doch bitte dein Beispiel.. Dann kann ich dir vielleicht dabei auch noch helfen.....