Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

buchstaben sortieren

buchstaben sortieren
21.09.2008 16:48:00
Fabian
ich will die buchstaben sortieren und finde meinen eigenen fehler nicht!
Danke für eure hilfe!

Sub buchstaben()
Dim i As Integer
Dim x As Integer
Dim h As Integer
Dim y As Integer
Dim hilf As Integer
Dim strmessage As String
x = InputBox("Geben sie die Anzahl der zu sortierenden Buchstaben ein", "Eingabe")
ReDim b(1 To x) As String
For i = LBound(b) To UBound(b)
b(i) = InputBox("Geben sie einen Buchstaben ein", "Eingabe")
b(i) = Asc(b(i))
Next i
For h = LBound(b) To UBound(b) - 1
For i = LBound(b) To UBound(b) - 1
If b(i) > b(i + 1) Then
hilf = b(i)
b(i) = b(i + 1)
b(i + 1) = hilf
End If
Next i
Next h
For i = LBound(b) To UBound(b)
b(i) = Chr(b(i))
Next i
For i = LBound(b) To UBound(b)
strmessage = strmessage + b(i) + vbLf
Next i
MsgBox strmessage
End Sub




		

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: buchstaben sortieren
21.09.2008 18:32:10
Nepumuk
Hallo Fabian,
das Problem liegt in der Deklaration des Arrays. In einem Stringarray wird nicht nach dem Zahlenwert sortiert, sondern nach den Werten der Zeichen. Und da liegt nun mal z.B. 97 (für ein kleines a)hinter 101 (für ein kleines e). Benutze darum an Stelle von:
ReDim b(1 To x) As String
einfach:
ReDim b(1 To x) As Variant
Dann passt das.
Gruß
Nepumuk
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige