ComboBox-Einträge sortieren

[Günter]

Hallo NG,

wie bekomme ich denn in einer ComboBox auf einer Userform
die Einträge alphabetisch sortiert? Ich lasse die
Schriftarten-Namen in diese ComboBox einlesen.

Hoffe, mir kann jemand helfen.

Vielen Dank schonmal!
Günter

[Helmut Weber]

Hallo Günter,
ganzer Name ist netter und man findet auch
leichter wieder was.
Private Sub ComboBox1_Change()
' oder den Code auch woanders unterbringen
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim aBuf As String
With ComboBox1
k = .ListCount
For j = 0 To k - 1
For i = (j + 1) To (k - 1)
If .List(i) < .List(j) Then
aBuf = .List(j)
.List(j) = .List(i)
.List(i) = aBuf
End If
Next i
Next j
End With
End Sub
Ist für Text gemacht, sortiert also alphanumerisch,
z.B.
1
11
2
---
Kann's jetzt leider nicht testen.
---
Gruss
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

[Günter Klemm]

Hallo Helmut,
super. Es funktioniert (wie nicht anders zu erwarten :)
Vielen Dank!

Günter
PS: das mit dem Namen werde ich mir merken... ;)

Post by Helmut Weber
Hallo Günter,
ganzer Name ist netter und man findet auch
leichter wieder was.
Private Sub ComboBox1_Change()
' oder den Code auch woanders unterbringen
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim aBuf As String
With ComboBox1
k = .ListCount
For j = 0 To k - 1
For i = (j + 1) To (k - 1)
If .List(i) < .List(j) Then
aBuf = .List(j)
.List(j) = .List(i)
.List(i) = aBuf
End If
Next i
Next j
End With
End Sub
Ist für Text gemacht, sortiert also alphanumerisch,
z.B.
1
11
2
---
Kann's jetzt leider nicht testen.
---
Gruss
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000
.

[Thomas Gahler]

Hallo Günter

Post by Günter
wie bekomme ich denn in einer ComboBox auf einer Userform
die Einträge alphabetisch sortiert?

Daten in ein Array ein lesen
Das Array mittels Wordbasic.SortArray sortieren.
Das Array in einem wisch der '.List'-Eigenschaft zuweisen

Hilfe zu SortArray
- Useful WordBasic commands that have no VBA equivalent
http://word.mvps.org/faqs/macrosvba/WordBasicCommands.htm




--
Thomas Gahler
MVP für WordVBA

- Windows XP, Office XP (SP2)