Inhalt von Text-und-oder ComboBox auswählen
15.09.2023 20:05:05
Andreas
folgender Code soll
bei Click auf Commandbutton1
1. abfragen, ob TextBox1 und ComboBox1 nicht leer sind
wenn beide leer- MSG Box... Betriebsmittel wählen
2. wenn in der Combobox1 ein Inhalt gewählt, diesen Inhalt in TextBox2 kopieren.
2.1 wenn statt dessen die TextBox1 einen Inhalt aufweist, diesen in der TextBox2 anzeigen
Vorrang hat der Inhalt der Textbox1
Wie könnte der Code aussehen?
https://www.herber.de/bbs/user/162890.xlsm als Beispieldatei
Public Sub CommandButton1_Click()
If UserForm1.TextBox1 = "" And _
UserForm1.ComboBox1 = "" Then 'falls ComboBox und Textbox leer
MsgBox "Betriebsmittel auswählen"
Else 'ansonnsten
'If UserForm1.ComboBox1. > "" Or
'UserForm1.TextBox1 > "" Then 'falls ComboBox und Textbox nicht leer
'füge den Inhalt von Combobox1 -wenn befüllt
'oder
'füge den Inhalt der Textbox1 -wenn befüllt
'in die Textbox2 ein
End If
End Sub