Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn ComboBox leer dann

Wenn ComboBox leer dann
René
Hallo liebe Excelgemeinde,
ich möchte erreichen das eine ComboBox eine bestimmte Auswahl anzeigt wenn eine andere ComboBox leer ist . Der Code sieht so aus
If ComboBox33.Value = "" Then ComboBox13.RowSource = "Listen!Q1"
Leider funktioniert das aber nicht.
Was mache ich falsch?
MfG René

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wenn ComboBox leer dann
16.05.2011 14:46:30
René 

Private Sub ComboBox33_Change()
If ComboBox33.ListIndex > -1 Then ComboBox13.RowSource = "Listen!Q1"
End Sub
Hier würde die ComboBox13 gefüllt werden wenn ComboBox33 gefüllt ist.
Ich möchte es aber genau umgekehrt. Wenn ComboBox33 nicht gefüllt wurde soll in ComboBox13 stehen "Bitte erst ComboBox 33 Auswahl treffen!"
Der Text "Bitte erst ComboBox 33 Auswahl treffen!" steht in Listen!Q1
Habt ihr bitte einen Tipp für mich?
MfG René
AW: Wenn ComboBox leer dann
16.05.2011 15:05:06
oberschlumpf
Hi René
Versuch mal (ungetestet): 

Private Sub ComboBox33_Change()
If ComboBox33.ListIndex = -1 Then ComboBox13.Text = "Bitte erst ComboBox 33 Auswahl treffen!"
End Sub

Hilfts?
Ciao
Thorsten
Anzeige
AW: Wenn ComboBox leer dann
16.05.2011 15:13:25
René
Hallo Thorsten,
funktioniert im Excel2010 leider nicht. Habe es probiert. Trotzdem Danke an Dich. Vielleicht habt ihr ja noch eine Idee
MfG René
AW: Wenn ComboBox leer dann
16.05.2011 15:13:14
fcs
Hallo René,
evtl. so. Dann wird bei Anzeige des Userforms Combobox13 ggf. auf diesen Wert gesetzt. 
Private Sub ComboBox33_Change()
If ComboBox33.Value = "" Then
ComboBox13.Value = Worksheets("Listen").Range("Q1")
End If
End Sub
Private Sub UserForm_Activate()
If ComboBox33.Value = "" Then
ComboBox13.Value = Worksheets("Listen").Range("Q1")
End If
End Sub

Die Eigenschaft "MatchRequired" der Combobox13 darf dann nicht auf True eingestellt sein!!
Gruß
Franz
Anzeige
AW: Wenn ComboBox leer dann
16.05.2011 15:20:16
René
Hallo Franz,
das funktioniert leider auch nicht. Hm? Grübel?
MfG René
AW: Wenn ComboBox leer dann
16.05.2011 15:57:40
fcs
Hallo René,
Ich hatte meine Variante in einem kleinen UF getestet - da funktioniert es.
Wenn für die Combobox13 auch Ereignismakros definiert sind, dann kann es natürlich noch andere Effekte geben. Das kann man dann ggf. nur durch komplexere Prüfroutinen umgehen.
Evtl. für Combobox13 unter den Eigenschaften für "Value" den Wert fest auf den Text setzen, dann sollte zumindest beim Öffnen des Userforms dieser Text angezeigt werden.
Gruß
Franz
AW: Wenn ComboBox leer dann
17.05.2011 10:43:11
René
Hallo Franz,
ist geklärt, es lang an meiner UserForm.
Danke noch mal an Dich
MfG René
Anzeige

10 Forumthreads zu ähnlichen Themen

MatchRequired-Eigenschaft Combobox ?
k

Hallo,
wie kann ich diese Funktion effektiv nutzen ? Hintergrund:
Habe eine Userform mit einer Combobox die zum Start sich auf einen Bereich (Kunden) eines bestimmten Blattes (Liste der Kunden des Außendienstmitarbeiters) bezieht und lädt. Sowie eine 2te Tabelle mit allen Kundennamen de...
28.07.2009 12:43:02
Thread-ID: 1091886
3 Beiträge
Anzeige
If CheckBox5.Value = Checked Then
Raphael

Hallo zusammen,
ich habe das Problem das ich bei der Betätigung meiner CheckBox5 die Fehlermeldung "Object required" erhalte.
Ich möchte hinter diese CheckBox eine If Formel bauen, das bedeutet wenn sie checked ist, soll etwas gemacht werden, und wenn sie uncheckt ist was anderes,
D...
10.03.2010 15:19:30
Thread-ID: 1144893
7 Beiträge
If ComboBox.Text.... Then... funktioniert nicht
Zoe

Hallo,
ich habe eine UserForm, die meine Tabelle füllt, jetzt möchte ich wenn die ComboBox etwas bestimmtes (Deloro 5879.1116 - HBW 2.5/62,5) enthält, dass drei Zellen (erste freie Zeile in H + I + J) bestimmte Werte zugewiesen werden. Habe es mit einer IF-Funtkion probiert, aber das klappt...
01.06.2017 13:19:07
Thread-ID: 1561693
7 Beiträge
Anzeige
if value = x AND value = y ... then...(überprüfen)
soendi

Hallo miteinander!
kann mir einer sagen, was ich falsch mache?
funktion die zu erreichen wäre, ist wenn zelle A1 = "XXX" UND zelle B1 = "" dann soll die ganze zeile gelöscht werden. tuts aber nicht. :(
danke schon mal im voraus für die vielen und schnellen antworten!

For le...
28.05.2004 18:40:03
Thread-ID: 434780
4 Beiträge
If TextBox1.Value = "xy" Then Set ComboBox3.Value
Christian

Hallo,
VBA nein stimmt nicht, aber gut wäre übertrieben.
Ich versuche folgendes festzuschreiben:
If TextBox1.Value = "xy" Then Set ComboBox3.Value = "xyz"
Hintergrund: Wenn TextBox1 einen bestimmten Wert annimmt, kann ComboBox3 nur einen Wert haben.
Leider funktioniert es n...
15.10.2004 09:22:48
Thread-ID: 501265
4 Beiträge
If ActiveSheet.Value = True Then
Wagner-ES

Werte Forumsmitglieder!
Ab und zu habe ich hier hineingeschaut und gelegentlich auch nette Kleinigkeiten gefunden.
nun habe ich wirklich ein Problem, aber ich stehe einfach mal auf dem Schlauch.
Und zwar möchte ich gerne bei der Aktivierung eines Tabellenblattes einen Eintrag in ein...
04.07.2006 15:52:23
Thread-ID: 779055
3 Beiträge
If ActiveCell.Offset(0, 1).Value = "30" Then .....
Karsten

Hallo...
Hab folgenden Befehl:
If ActiveCell.Offset(0, 1).Value = "30" Then .....Else
wenn in der Zelle rechts daneben nicht nur 30 sondern 300 oder 30. steht geht es mit then weiter.
Kann mir jemand helfen, das es auch nur bei dem korrektem Valuewert nach then geht?
Dank...
01.04.2008 13:24:57
Thread-ID: 965032
5 Beiträge
If A2:D34.Value = "" then "."
Steffi

Guten Morgen,
Ich hoffe ihr könnt mir weiterhelfen,
Ich habe einen Bereich, in dem ein Punkt "." angezeigt werden soll wenn nichts anderes drin steht.
wi mache ich das in VBA?
Danke
Steffi
28.06.2008 11:55:00
Thread-ID: 989513
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
12
6
6
9
3
3
2
4
3