Thema Datum  Von Nutzer Rating
Antwort
30.05.2017 14:21:12 Manu
*****
Solved
30.05.2017 15:27:07 The_Materialist
*****
NotSolved
30.05.2017 15:27:07 The_Materialist
NotSolved
30.05.2017 15:27:07 The_Materialist
NotSolved
30.05.2017 16:09:08 Manu
NotSolved
30.05.2017 16:18:06 Gast29442
NotSolved
Rot ComboBox mit If füllen
30.05.2017 16:25:18 The_Materialist
NotSolved
30.05.2017 16:32:08 The_Materialist
NotSolved
31.05.2017 07:08:07 Manu
NotSolved
06.06.2017 14:06:05 Gast55759
NotSolved
06.06.2017 14:11:58 Manu
NotSolved
07.06.2017 08:06:34 The_Materialist
*****
Solved
07.06.2017 08:34:46 Manu
NotSolved

Ansicht des Beitrags:
Von:
The_Materialist
Datum:
30.05.2017 16:25:18
Views:
769
Rating: Antwort:
  Ja
Thema:
ComboBox mit If füllen

Sub update_filter()
'Debug.Print "update was fired"
Dim tbl as ListObject
Dim cell as Range

Set tbl = ThisWorkbook.Worksheets("TABELLENBLATTNAME").ListObjects("LISTOBJECTNAME-Hersteller/Teil")
 
'delete all old items
Do While UserForm.ComboBox2.ListCount > 0
UserForm.ComboBox2<span style="font-family: Arial, Verdana, sans-serif;">.RemoveItem (0)</span>
Loop
 
For each cell in tbl.ListColumns(1).DataBodyRange If cell.offset(0,1).value=UserForm.ComboBox1.Value then
Userform.ComboBox2.Additem(cell.value) End If
Next cell

End Sub

So hätte das aussehen sollen. 

Dann erstmal sorry fürs Seriefeuer. Ich wollte das nicht dreimal Posten, aber anscheinend ist Leertaste im Codesegment = Posten.. 

Also: ListObjectName ist der Name deiner Tabelle = ListObject. Wenn du unter Einfügen-> Tabelle einfügen  eine Tabelle einfügst ist das ein sogenanntes ListObject. Wenn du jetzt ins ListObject klickst, dann erscheint oben in der Mitte gelb ein Tab genannt Tabellentools, wenn du da drauf klickst kannst du links oben einen Tabellennamen eingeben. Diesen Tabellennamen oder ListObject namen musst du da eingeben, dann sollte es klappen. 

 

Ich hoffe das hilft weiter.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.05.2017 14:21:12 Manu
*****
Solved
30.05.2017 15:27:07 The_Materialist
*****
NotSolved
30.05.2017 15:27:07 The_Materialist
NotSolved
30.05.2017 15:27:07 The_Materialist
NotSolved
30.05.2017 16:09:08 Manu
NotSolved
30.05.2017 16:18:06 Gast29442
NotSolved
Rot ComboBox mit If füllen
30.05.2017 16:25:18 The_Materialist
NotSolved
30.05.2017 16:32:08 The_Materialist
NotSolved
31.05.2017 07:08:07 Manu
NotSolved
06.06.2017 14:06:05 Gast55759
NotSolved
06.06.2017 14:11:58 Manu
NotSolved
07.06.2017 08:06:34 The_Materialist
*****
Solved
07.06.2017 08:34:46 Manu
NotSolved