Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
vba Sortierung eines Arrays mit 2 Spalten
zurück: Excel und PowerPoint in Access öffnen und speichern, wie? weiter: Suchen und Abspeicherung der Datensatznummer Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
29. Jul 2009, 12:43
Rufname:

vba Sortierung eines Arrays mit 2 Spalten - vba Sortierung eines Arrays mit 2 Spalten

Nach oben
       Version: Office 2003

Hallo Leute,

ich habe ein (n,2) großes Array

2000 2
4000 3
3000 6
2000 9

Nun möchete ich dieses nach den linken Werten aufsteigend sortieren. Die rechten Werte müssen, da sie sich auf die linken Werte beziehen, in der gleichen Zeile wie diese bleiben.

Ich finde einen Haufen komlizierter Array-Sortieralgorithmen, jedoch passt keiner auf diesen Fall (oder ich habe es nicht gesehen)

Es wäre toll wenn mir jemand weiterhelfen könnte

Gruß,

Axel
Gast



Verfasst am:
29. Jul 2009, 13:00
Rufname:


AW: vba Sortierung eines Arrays mit 2 Spalten - AW: vba Sortierung eines Arrays mit 2 Spalten

Nach oben
       Version: Office 2003

Hallo,
warum hast du ein Array? In einer Datenbank sind Arrays (Tabellen) eigentlich schon eingebaut.

Zitat:
Ich finde einen Haufen komlizierter Array-Sortieralgorithmen, jedoch passt keiner auf diesen Fall
Gib mal bitte ein Beispiel.

Alternativ kann auch ein ADO-Recordset verwendet werden.

Gruß Mike
Gast



Verfasst am:
29. Jul 2009, 13:03
Rufname:

AW: vba Sortierung eines Arrays mit 2 Spalten - AW: vba Sortierung eines Arrays mit 2 Spalten

Nach oben
       Version: Office 2003

Ich habe ein langes Listenfeld aus dem bestimmte (also nicht alle) Daten ausgelesen, neu berechnet (eben mit dem Array) und wieder hineingeschrieben werden.

Ich kann aufgrund eines Konfliks zwischen Access und Crystal Reports (Bug in Office 2003) nicht mit ADO oder DAO arbeiten. Daher gehe ich den Umweg über das Listenfeld
Gast



Verfasst am:
29. Jul 2009, 13:43
Rufname:


AW: vba Sortierung eines Arrays mit 2 Spalten - AW: vba Sortierung eines Arrays mit 2 Spalten

Nach oben
       Version: Office 2003

Hallo,
es gibt vermutlich bessere Codes im Netz, aber Q&D würde ich folgendes vorschlagen
Code:
Option Compare Database
Option Explicit

Sub xxx()
    Dim Arr(1 To 4, 1 To 2)
   
    Arr(1, 1) = 2000: Arr(1, 2) = 2
    Arr(2, 1) = 4000: Arr(2, 2) = 3
    Arr(3, 1) = 3000: Arr(3, 2) = 6
    Arr(4, 1) = 2000: Arr(4, 2) = 9
    BubbleSortMehrDim Arr
End Sub

Sub BubbleSortMehrDim(ByRef vArray As Variant, _
                      Optional Ascending As Boolean = True)
' angeleht an: http://www.dbwiki.de/wiki.php?title=VBA_Tipp:_Bubblesort
' Sortiert wird nach erster Spalte
' Ascending = True: aufsteigend sortieren
'
    Dim Mark As Long, I As Long, EndIdx As Long, StartIdx As Long
    Dim Temp1 As Variant, Temp2 As Variant
   
    If Not IsArray(vArray) Then Exit Sub
    EndIdx = UBound(vArray)
    StartIdx = LBound(vArray)
    Do While EndIdx > StartIdx
        Mark = StartIdx
        For I = StartIdx To EndIdx - 1
            If vArray(I, 1) > vArray(I + 1, 1) Eqv Ascending Then
                Temp1 = vArray(I, 1)
                Temp2 = vArray(I, 2)
                vArray(I, 1) = vArray(I + 1, 1)
                vArray(I, 2) = vArray(I + 1, 2)
                vArray(I + 1, 1) = Temp1
                vArray(I + 1, 2) = Temp2
                Mark = I
            End If
        Next I
        EndIdx = Mark
    Loop
End Sub

Gruß Mike
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Sortierung von Wochenergebnissen und Punkteverteilung 0 DERErik 575 19. Apr 2006, 01:41
DERErik Sortierung von Wochenergebnissen und Punkteverteilung
Keine neuen Beiträge Access Tabellen & Abfragen: [Frage] Spalten dynamisch ein/ausblenden 0 Helios 972 13. Apr 2006, 10:37
Helios [Frage] Spalten dynamisch ein/ausblenden
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten zusammenfassen 9 app 976 13. März 2006, 18:03
app Spalten zusammenfassen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Spalten zusammenfügen 3 paulfragt 10724 06. März 2006, 20:44
jens05 2 Spalten zusammenfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Spalten in eine Zeile 4 Heavendenied 660 25. Feb 2006, 14:43
steffen0815 Daten aus Spalten in eine Zeile
Keine neuen Beiträge Access Tabellen & Abfragen: Trennung von Zahlen in Spalten 6 Magnum1065 3219 06. Okt 2005, 08:39
Magnum1065 Trennung von Zahlen in Spalten
Keine neuen Beiträge Access Tabellen & Abfragen: Probleme mit der richtigen Sortierung... 1 Yoo 495 01. Sep 2005, 13:35
stpimi Probleme mit der richtigen Sortierung...
Keine neuen Beiträge Access Tabellen & Abfragen: Sortierung 3 Trikerdaniel 560 24. Aug 2005, 07:56
KirstenS Sortierung
Keine neuen Beiträge Access Tabellen & Abfragen: Sortierung 11 Gast 604 23. Aug 2005, 15:54
jens05 Sortierung
Keine neuen Beiträge Access Tabellen & Abfragen: Gleiche Daten in mehreren Spalten zählen 1 majeca 1218 19. Jul 2005, 07:26
Sub-Z3r0 Gleiche Daten in mehreren Spalten zählen
Keine neuen Beiträge Access Tabellen & Abfragen: Zusammenrechnen von Spalten 1 Totengraeber87 569 12. Apr 2005, 20:53
lothi Zusammenrechnen von Spalten
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von mehreren Spalten 4 onkelfossy 988 05. Apr 2005, 09:01
onkelfossy Abfrage von mehreren Spalten
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver