Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
896to900
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

sortieren von Daten in VBA

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

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

Betreff
Datum
Anwender
Anzeige
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
1130
2832
3464
4800
5782
6807
70
851
9695
10314
11994
12780
13635
14367
15462
16742
17894
18407
19144
20536
21238
22443
2376
24867
25116
26443
27420
2860
29112
30972


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

Anzeige
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

303 Forumthreads zu ähnlichen Themen

In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Anzeige
Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Spalte nach Datum sortieren per Makro
Larissa

Hallo,
ich möchte mit einem Makro eine Tabelle nach Datum in Spalte G sortieren.
Wenn ich das Makro aufzeichne, fragt er mich nach: Alles was wie eine Zahl aussieht....
Dann funktioniert die Sortierung, aber nicht, wenn ich die Aufzeichnung abspiele.
Weiß jemand, woran das liege...
15.10.2009 11:09:27
Thread-ID: 1109788
5 Beiträge
Anzeige
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Tabelle sortieren mit VBA
Kati

Hallo liebe Leute,
ich habe in einem Beitrag vom 09.03.2006 von Peter Feustel einen sehr guten Lösungsansatz für mein Problem gefunden.
In dem Beispiel https://www.herber.de/bbs/user/31765.xls kann man in jeder Tabelle der Arbeitsmappe über den Menüpunkt sortiern.
Für meine Aufgabe...
23.02.2010 08:31:55
Thread-ID: 1140308
3 Beiträge
Pivottabelle sortieren VBA
Florian

Guten Morgen Excel-Freunde!
Hätte eine Frage bzgl. Pivottabellen (VBA): wie kann ich Daten sortieren (Befehlszeile)?
Die Tabelle erstell ich wie folgt, ich möchte gern nach Umsatz absteigend sortieren. Wie geht das?
Danke Euch schon mal!
Gruss Florian
Set pt = PTCache.Create...
21.05.2010 11:29:52
Thread-ID: 1158192
3 Beiträge
Sortieren nach Spalten
chris

Hallo VBA experten,
ich brauche mal wieder einen Tipp.
Ich habe ab Zelle X1 bis Zelle IV1 einen Bereichs Namen vergeben.
Dieser heißt z.b Vornamen
Darunter in Zeile 2 bis z.b 500 stehen vornamen.
Jezt will ich aber nicht nach Zeile sondern nach der Spalte sortieren.
Also...
17.06.2010 08:40:19
Thread-ID: 1162370
2 Beiträge
Spalten sortieren mit VBA
wolfgang

Hallo zusammen,
ich möchte gerne mit VBA eine Spalte sortieren.
Inhalt der Spalte A:
P1
P2
P10
P3
P11
die Spalte sortiere ich mit der Anweißung:
Range.Sort Key1 .....
nun ist das Ergebnis allerdings:
P1
P10
P11
P2
P3
dies ist a...
10.09.2010 13:21:50
Thread-ID: 1176857
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
29
4
3
3
2
2
1
4
2
3
2
2
4
2
7
2
2
4
6
3
2
5
4