sortieren von Daten in VBA

Forumthread: sortieren von Daten in VBA

21.08.2007 18:30:00

Daten

Hallp VBA Cracks,
Ich habe ein Datenfeld von 30 Zahlen z.B. A1 bis A30, dass ich in VBA sortieren möchte, wobei ich die sortierten Daten im VBA Programm weiterverwenden möchte. Wie würde so ein VBA Programm ausschauen?
Dankei m Voraus.
Grüße
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: sortieren von Daten in VBA (Rückfrage)

21.08.2007 18:37:00

Daten

Hallo Peter,
du willst also die Daten der Tabelle in ein Array übernehmen und im Array sortieren, die Daten der Tabelle aber unangetastet lassen?
Gruß Matthias

AW: sortieren von Daten in VBA (Rückfrage)

21.08.2007 19:02:22

Daten

Hallo Matthias,
Habe bereits von Ransi die Antwort erhalten.
Danke trotzdem.
Grüße
Peter

AW: sortieren von Daten in VBA

Daten

HAllo Peter
Wenn das deine Daten sind:
Tabelle1

	A
1	130
2	832
3	464
4	800
5	782
6	807
7	0
8	51
9	695
10	314
11	994
12	780
13	635
14	367
15	462
16	742
17	894
18	407
19	144
20	536
21	238
22	443
23	76
24	867
25	116
26	443
27	420
28	60
29	112
30	972

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Lass diesen Code mal los:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Sub Aufruf()
MsgBox Join(QuickSort(WorksheetFunction.Transpose(Range("a1:A30"))), ", ")
End Sub

Public Function QuickSort(vSort As Variant, _
    Optional ByVal lngStart As Variant, _
    Optional ByVal lngEnd As Variant)
'Quelle:Weiß ich nicht mehr.
If IsMissing(lngStart) Then lngStart = LBound(vSort)
If IsMissing(lngEnd) Then lngEnd = UBound(vSort)
Dim i As Long
Dim j As Long
Dim h As Variant
Dim x As Variant
i = lngStart: j = lngEnd
x = vSort((lngStart + lngEnd) / 2)
Do
While (vSort(i) < x): i = i + 1: Wend
While (vSort(j) > x): j = j - 1: Wend
    If (i <= j) Then
        h = vSort(i)
        vSort(i) = vSort(j)
        vSort(j) = h
        i = i + 1: j = j - 1
    End If
Loop Until (i > j)
If (lngStart < j) Then QuickSort vSort, lngStart, j
If (i < lngEnd) Then QuickSort vSort, i, lngEnd
QuickSort = vSort
End Function

ransi

AW: sortieren von Daten in VBA

21.08.2007 19:01:09

Daten

Hallo Ransi,
Danke für den Quicksort. Funktioniert perfekt.
Hast du auch den Code den Introsort?
Danke im Voraus.
Grüße
Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: sortieren von Daten in VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

	A
1	130
2	832
3	464
4	800
5	782
6	807
7	0
8	51
9	695
10	314
11	994
12	780
13	635
14	367
15	462
16	742
17	894
18	407
19	144
20	536
21	238
22	443
23	76
24	867
25	116
26	443
27	420
28	60
29	112
30	972

	A
1	130
2	832
3	464
4	800
5	782
6	807
7	0
8	51
9	695
10	314
11	994
12	780
13	635
14	367
15	462
16	742
17	894
18	407
19	144
20	536
21	238
22	443
23	76
24	867
25	116
26	443
27	420
28	60
29	112
30	972

sortieren von Daten in VBA

Forumthread: sortieren von Daten in VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A
1	130
2	832
3	464
4	800
5	782
6	807
7	0
8	51
9	695
10	314
11	994
12	780
13	635
14	367
15	462
16	742
17	894
18	407
19	144
20	536
21	238
22	443
23	76
24	867
25	116
26	443
27	420
28	60
29	112
30	972