<font color=green>' alle Einträge der ListBox in die entsprechenden
' A-Z ListBoxen schreiben</font>
Dim I As Integer
Dim sChar As String
Dim cListe As ListBox
 
With ListABC
  For I = 0 To .ListCount - 1
    sChar = Left(.List(I), 1)
    Set cListe = Me.Controls("ListBox" & sChar)
    cListe.AddItem .List(I)
  Next I
End With