Zeichenliste erstellen

Sprache / Programm: Excel ab Version 2000

Beschreibung

Die Funktion sammelt die Zellwerte im markierten Bereich und erstellt einen String, der jedes verwendete Zeichen genau einmal enthält. Der String ist sortiert.

VBA-Quelltext

Public Function ZeichenListe(Bereich AS Range) AS String
Dim i AS Long, QuellText AS String, Zeichen AS String

' Alle Texte sammeln und aneinander hängen
For i = 1 To Bereich.Cells.Count
QuellText = QuellText & Bereich.Cells(i).Value
Next i

' Einzelne Zeichen aus dem Quelltext entfernen
While Len(QuellText) > 0
Zeichen = LEFT(QuellText, 1)
ZeichenListe = Zeichen & ZeichenListe
' Zeichen an die richtige Stelle im Ausgabestring einfügen
For i = 2 To Len(ZeichenListe)
If Mid(ZeichenListe, i, 1) < Zeichen Then
Mid(ZeichenListe, i - 1, 1) = Mid(ZeichenListe, i, 1)
Mid(ZeichenListe, i, 1) = Zeichen
End If
Next i

' Zeichen aus dem Quelltext entfernen
QuellText = Replace(QuellText, LEFT(QuellText, 1), "")
Wend

End Function

Argumente der Funktion/Prozedur

Bereich: Zellen, die Texte enthalten

Anwendungsgebiete, Fehler und Warnungen

Die Unicode-Unterstützung nicht erprobt. Andere Datentypen als Text werden wie Text gelesen.