[Eine Seite zurück] [Übersicht] [Eine Seite vor]

Benutzung auf eigene Gefahr !
Keine Garantie für garnichts !

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.