Thema Datum  Von Nutzer Rating
Antwort
26.11.2020 18:02:18 brezi
Solved
26.11.2020 18:04:57 Gast90639
NotSolved
27.11.2020 10:32:15 volti
Solved
Blau UserForm Array into BubbleSort
 27.11.2020 10:39:13 volti
NotSolved
27.11.2020 11:01:37 brezi
Solved
27.11.2020 11:54:33 volti
NotSolved
27.11.2020 16:44:57 brezi
Solved
27.11.2020 17:52:30 volti
NotSolved
27.11.2020 19:56:12 volti
Solved
30.11.2020 11:48:07 brezi
NotSolved
30.11.2020 12:03:01 volti
Solved
30.11.2020 12:13:41 brezi
NotSolved
30.11.2020 13:00:38 volti
Solved
30.11.2020 14:08:49 brezi
Solved
30.11.2020 14:10:50 volti
NotSolved
27.11.2020 11:09:13 RPP63
NotSolved
27.11.2020 11:13:50 brezi
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
27.11.2020 10:39:13		 Views:
515		 Rating:
     
Antwort:
  Ja
Thema:
UserForm Array into BubbleSort

Und enoch eine etwas abweichende Variante...

Sub Test()
 Dim Obj As Range, sArr() As String, i As Integer

 With CreateObject("System.Collections.SortedList")
  
    For Each Obj In Worksheets("Vergabe nach VE").Range("E7:E40")
        If Obj.Value <> "" Then
            If Not .contains(Obj.Value) Then _
               .Add Obj.Value, Obj.Value     'Item nur einmal aufnehmen
        End If
    Next Obj
    For i = 0 To .Count - 1
       ReDim Preserve sArr(i)                'Array redimensionieren
       sArr(i) = .GetByIndex(i)              'Wert in Array
    Next i
    Combobox1.List = sArr                    'Array in Combobox ausgeben

 End With

End Sub

Gruß KH

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
26.11.2020 18:02:18 brezi
Solved
26.11.2020 18:04:57 Gast90639
NotSolved
27.11.2020 10:32:15 volti
Solved
Blau UserForm Array into BubbleSort
 27.11.2020 10:39:13 volti
NotSolved
27.11.2020 11:01:37 brezi
Solved
27.11.2020 11:54:33 volti
NotSolved
27.11.2020 16:44:57 brezi
Solved
27.11.2020 17:52:30 volti
NotSolved
27.11.2020 19:56:12 volti
Solved
30.11.2020 11:48:07 brezi
NotSolved
30.11.2020 12:03:01 volti
Solved
30.11.2020 12:13:41 brezi
NotSolved
30.11.2020 13:00:38 volti
Solved
30.11.2020 14:08:49 brezi
Solved
30.11.2020 14:10:50 volti
NotSolved
27.11.2020 11:09:13 RPP63
NotSolved
27.11.2020 11:13:50 brezi
NotSolved