Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

ComboBox | Herbers Excel-Forum


Betrifft: ComboBox von: ABO
Geschrieben am: 20.11.2009 21:41:48

Hallo zusammen,

ich habe ein Problem bei dem ich ein wenig auf dem Schlauch stehe!
In meiner UserForm fülle ich die ComboBox mit Daten (Zahlen) der Spalte A

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> 0 Then

TextBox3 = Cells(ComboBox1.ListIndex + 3, 12)               
TextBox4 = Cells(ComboBox1.ListIndex + 3, 13)               

Else
    
TextBox3 = ""
TextBox4 = ""

End If
End Sub
Wenn ich nun einer der Daten aus der Spalte A in die ComboBox eintrage oder über die auswahl der ComboBox anklicke wird nach betätigen des Übernehmen Buttens die Werte aus der TextBox 1&2 in meine Liste übernommen.
soweit alles OK
Private Sub Übernehmen_Click()                             
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub

If ComboBox1.ListIndex = 0 Then
    xZeile = [A65536].End(xlUp).Row + 1
Else
    xZeile = ComboBox1.ListIndex + 3
End If

Cells(xZeile, 12) = TextBox1.Value                          
Cells(xZeile, 13) = Format(TextBox2.Text, "dd.mm.yyyy")
...
...
End Sub
Wenn ich nun einen Wert in die ComboBox eintrage der nicht in der Spalte A vorhanden ist soll bei betätigung des Übernehmen Buttens auch nicht passieren.

Ist dies möglich und wenn ja wie???

im Vorraus vielen Dank!
mfg ABO

  

Betrifft: AW: ComboBox von: Gerd L
Geschrieben am: 20.11.2009 22:23:32

Hallo ABO,

warum so kompliziert? Stelle doch einfach im Eigenschaften-Fenster der Combobox "Style" auf 2.

Gruß
Gerd


  

Betrifft: Super! Danke! von: ABO
Geschrieben am: 20.11.2009 23:05:35

ich sagte doch, ich stehe auf dem Schlauch! :-)

Danke
Gruß Abo


Beiträge aus den Excel-Beispielen zum Thema "ComboBox"