Thema Datum  Von Nutzer Rating
Antwort
17.04.2020 20:39:28 Argosch
NotSolved
18.04.2020 08:49:31 RPP63
NotSolved
18.04.2020 11:48:45 Argosch
NotSolved
Blau Ohne VBA
 19.04.2020 09:45:54 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
19.04.2020 09:45:54		 Views:
509		 Rating:
     
Antwort:
  Ja
Thema:
Ohne VBA

Hallo Argosch,

Falls dein System nicht die Voraussetzungen zur Anwendung enthält, kannst du vielleicht angezeigte fehlende "dll." im VBA-Bildschirme unter Extras – Verweise aktiven.

Sub Listesortieren_ohne_Wiederholung()
arr = Array("Meier", "Ämann", "Lehmann", "Aemann", "Aémann", "", "Aenamm", "Aemman")'Beispiel

Set SL = CreateObject("System.Collections.sortedlist")
SL.capacity = UBound(arr)
For i = 0 To UBound(arr)
If arr(i) <> "" Then SL(arr(i)) = ""
Next
ReDim b(SL.Count - 1)
For i = 0 To SL.Count - 1
b(i) = SL.GetKey(i)
Next

'hier Ergebnis in MsgBox
For i = 0 To SL.Count - 1
s = s + CStr(b(i)) + vbCrLf
Next i
MsgBox s
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
17.04.2020 20:39:28 Argosch
NotSolved
18.04.2020 08:49:31 RPP63
NotSolved
18.04.2020 11:48:45 Argosch
NotSolved
Blau Ohne VBA
 19.04.2020 09:45:54 Holger
NotSolved