Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
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
Inhaltsverzeichnis

combobox leeren

combobox leeren
16.11.2016 15:27:14
Thomas Fuchs

Hallo Zusammen,
ich habe ein probelm mit ner Combobox. Die Werte werden aus der Tabelle sauber eingelesen, doch wenn ich fälschlicherweise eines ausgewählt habe kann ich es nicht mehr löschen.
Das steht in der Combobox:


Private Sub Combobox3_change()
TextBox25 = WorksheetFunction.VLookup(ComboBox3, Worksheets("Artikel").Range("a1:g80"),  _
_
_
_
2, False)
TextBox35 = WorksheetFunction.VLookup(ComboBox3, Worksheets("Artikel").Range("a1:g80"),  _
_
_
_
4, False)
End Sub

So werden die Daten gesammelt wenn sich in einer anderen combobox was ändert:

Private Sub ComboBox2_Change()
For h = 1 To 30
ComboBox3.AddItem Artikel.Cells(h, 11).Value
Next h
End Sub

Ich hoffe ich hab es ausreichend beschrieben.
Bei Fragen bitte schreiben.
Wär super wenn ihr mir weiterhelfen könnt.
Gr Tom

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: combobox leeren
16.11.2016 20:49:16
Bastian
Hey ho
ComboBox2.Clear 
Löscht alles in der CB
vorm füllen der CB einfügen
oder ein bestimmtes item löschen
ComboBox1.RemoveItem(0)
0 ist das erste item in der CB
Gruß Basti
AW: combobox leeren
16.11.2016 23:41:38
snb

Private sub Userform_Initialize()
combobox1.list=sheets("Artikel").Range("a1:g80").value
end sub

Private sub Combobox1_change()
TextBox25.text=combobox1.column(2)
Textbox26.Text=combobox1.column(3)
End sub

AW: combobox leeren
17.11.2016 06:54:31
Thomas Fuchs
Ja cool.
Danke euch. Werde es heute gleich mal ausprobieren.
Gr tom
Anzeige
AW: combobox leeren
17.11.2016 07:57:43
Thomas Fuchs
Hallo zusammen,
ich habe es getestet, hat aber leider nicht so ganz funktioniert.
Dann hab ich es anders probiert.
so hat es dann funktioniert.
Private Sub Combobox3_change()
If Not ComboBox3 = "" Then
TextBox25 = WorksheetFunction.VLookup(ComboBox3, Worksheets("Artikel").Range("a1:g80"),  _
2, False)
TextBox35 = WorksheetFunction.VLookup(ComboBox3, Worksheets("Artikel").Range("a1:g80"),  _
4, False)
End If
End Sub
Der Fehler war in der Suche um die beiden Textboxen zu füllen, denn sobald die combobox leer war (sich auf leer geändert hatte) hat er nichts mehr bei der Suche gefunden und dann kam der Fehler.
Trotzdem vielen dank für eure Antworten.
Gr tom

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge