ich habe folgenden code für das füllen einer liste mit tabellennamen:
Private Sub UserForm_Activate()
Dim i%, j%, bl$(), aktvbl As Object
Set aktvbl = ActiveWorkbook.Sheets
ReDim bl(aktvbl.Count - 1)
For i = 1 To aktvbl.Count
bl(i - 1) = aktvbl(i).Name
Next i
With lb_mappen
.Clear
.List() = bl
End With
gibt es einen weg diese einträge alphabetisch zu sortieren ?
vielen dank im voraus.
gruß Jan :-)
End Sub