Thema Datum  Von Nutzer Rating
Antwort
21.05.2019 10:36:53 Frederik
NotSolved
21.05.2019 11:10:51 Gast88963
NotSolved
21.05.2019 11:13:54 Frederik
NotSolved
Blau Doppelte Werte in abhängiger Combobox vermeiden
 22.05.2019 00:36:48 Gast5863
NotSolved
22.05.2019 00:40:59 Gast81249
NotSolved
22.05.2019 11:24:38 Frederik
NotSolved
22.05.2019 16:08:36 Gast95615
NotSolved
22.05.2019 16:30:37 Frederik
NotSolved
22.05.2019 21:17:08 Gast5863 & Gast81249
NotSolved
23.05.2019 08:11:56 Frederik
NotSolved

Ansicht des Beitrags:
Von:
Gast5863		 Datum:
22.05.2019 00:36:48		 Views:
645		 Rating:
     
Antwort:
  Ja
Thema:
Doppelte Werte in abhängiger Combobox vermeiden		 
Option Explicit

Sub example()
  
  Dim dataExample As Variant
  
  dataExample = Array(1, 2, 1, 1, 4, 5, 3, 1)
  
  Dim dic As Object
  Dim key As String
  Dim i As Long
  
  Set dic = CreateObject("Scripting.Dictionary")
  
  For i = LBound(dataExample) To UBound(dataExample)
    
    key = CStr(dataExample(i))
    
    If Not dic.exists(key) Then
      Call dic.Add(key:=key, Item:=dataExample(i))
    End If
    
  Next
  
  dataExample = dic.items
  
  For i = LBound(dataExample) To UBound(dataExample)
    'Ausgabe im Direktfenster (ggf. einblenden über Menü 'Ansicht')
    Debug.Print Format$(i, "000"); ":"; dataExample(i)
  Next
  
End Sub

Ausgabe:

000: 1 
001: 2 
002: 4 
003: 5 
004: 3

 

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
21.05.2019 10:36:53 Frederik
NotSolved
21.05.2019 11:10:51 Gast88963
NotSolved
21.05.2019 11:13:54 Frederik
NotSolved
Blau Doppelte Werte in abhängiger Combobox vermeiden
 22.05.2019 00:36:48 Gast5863
NotSolved
22.05.2019 00:40:59 Gast81249
NotSolved
22.05.2019 11:24:38 Frederik
NotSolved
22.05.2019 16:08:36 Gast95615
NotSolved
22.05.2019 16:30:37 Frederik
NotSolved
22.05.2019 21:17:08 Gast5863 & Gast81249
NotSolved
23.05.2019 08:11:56 Frederik
NotSolved