Array(String)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk,
hier Funktion und Aufruf.

Function BubbleSort(SortArray As Variant)
Dim Temp As Variant
Dim b As Integer
Dim blnNoExch As Boolean
'Wiederholen bis alles aufsteigend durchsortiert wurde
Do
blnNoExch = True
'Jedes Element des Arrays durchlaufen
For b = 1 To UBound(SortArray) - 1
'Wenn das aktuelle Element größer als sein Nachfolger ist, werden beide getauscht
If SortArray(b) > SortArray(b + 1) Then
blnNoExch = False
Temp = SortArray(b)
SortArray(b) = SortArray(b + 1)
SortArray(b + 1) = Temp
End If
Next b
Loop While Not blnNoExch = True
End Function

Sub BubbleSortMyArray()
Dim b As Byte
Dim varStrToArr As Variant, varTest As Variant
Dim strSkip As String
strSkip = "45-2-21-1-24-56-5-8"
'Array einlesen und übergeben
varStrToArr = Split(strSkip, "-")
'Array sortieren (Aufruf)
BubbleSort varStrToArr
'Array zusammensetzen
strSkip = Join(varStrToArr, ", ")
Debug.Print strSkip
End Sub

Ich hatte versucht, Deinen Ratschlag 'String in Zahlen umwandeln' umzusetzen, indem ich innerhalb der Funktion Änderungen in der Form 'SortArray(b)' => 'CInt(SortArray(b))' vorgenommen habe - mit dem Ergebnis, dass das die Zahlenkolonne vom String 1:1 angezeigt wird.
Ich hoffe sehr auf Deine Hilfe. Das Problem hat mich gestern schon Stunden auf Trab gehalten.
Vielen Dank!!
Gruß Eric

Hallo,
teste jetzt mal:

Option Explicit

Function BubbleSort(SortArray As Variant)

    Dim Temp As Variant
    Dim b As Integer
    Dim blnNoExch As Boolean

    'Wiederholen bis alles aufsteigend durchsortiert wurde
    Do
        blnNoExch = True
        'Jedes Element des Arrays durchlaufen
        For b = 0 To UBound(SortArray) - 1
            'Wenn das aktuelle Element größer als sein Nachfolger ist, werden beide getauscht
            If Val(SortArray(b)) > Val(SortArray(b + 1)) Then
                blnNoExch = False
                Temp = SortArray(b)
                SortArray(b) = SortArray(b + 1)
                SortArray(b + 1) = Temp
            End If
        Next b
    Loop While Not blnNoExch = True

End Function

Sub BubbleSortMyArray()

    Dim b As Byte
    Dim varStrToArr As Variant, varTest As Variant
    Dim strSkip As String

    strSkip = "45-2-21-1-24-56-5-8"

    'Array einlesen und übergeben
    varStrToArr = Split(strSkip, "-")

    'Array sortieren (Aufruf)
    BubbleSort varStrToArr

    'Array zusammensetzen
    strSkip = Join(varStrToArr, ", ")

    Debug.Print strSkip

End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array(String)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread