Thema Datum  Von Nutzer Rating
Antwort
18.01.2019 12:42:32 Markus
NotSolved
Blau ComboBox mit unikaten Werten befüllen
 18.01.2019 12:53:15 Markus
Solved

Ansicht des Beitrags:
Von:
Markus		 Datum:
18.01.2019 12:53:15		 Views:
415		 Rating:
     
Antwort:
 Nein
Thema:
ComboBox mit unikaten Werten befüllen

Okay, manchmal muss man scheinbar nur mal drüber schreiben. Problem gelöst über eine Hilfsspalte:

 

Private Sub UserForm_Initialize()
Dim spnr As Integer, anz As Integer

With Tabelle1
    .Range("M:M").ClearContents
    'Unikate Länder ermitteln
    .Range("I1").CurrentRegion.Columns(9).AdvancedFilter _
        Action:=xlFilterCopy, CopyToRange:=.Range("M1"), Unique:=True
End With
        
anz = 0
spnr = 2
'irgendwie muss hier noch mit rein, dass kein Land doppelt sein darf.
Do While Worksheets("Bestellliste").Range("M" & spnr) <> ""
    Me.cmb_laenderliste.AddItem Worksheets("Bestellliste").Cells(spnr, 13)
    spnr = spnr + 1
    anz = anz + 1
Loop
Me.cmb_laenderliste.ListIndex = 0

End Sub

 

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
18.01.2019 12:42:32 Markus
NotSolved
Blau ComboBox mit unikaten Werten befüllen
 18.01.2019 12:53:15 Markus
Solved