Datumswerte sortieren, kopieren und transponieren

Angeregt durch den Beitrag eines Users in einem Forum habe ich einen Sortiercode aus dem im MSPress-Verlag erschienen Buch “Excel 2007 Programmierung – Das Handbuch” von Monika Weber und Michael Schwimmer (übrigens sehr empfehlenswerte Lektüre!) ein wenig abgewandelt.

Ausgangslage sind Datumswerte, die unsortiert in einer Spalte vorliegen. Ziel ist es, diese Datumswerte zu sortieren, kopieren und transponiert an anderer Stelle der Tabelle einzufügen.

Dazu verwende ich nachstehenden Code, in dem die Daten zunächst in ein Array eingelesen und sortiert werden. Danach erfolgt die Ausgabe transponiert an anderer Stelle der Tabelle. Sub SortierArray() Dim arr(6) As Date Dim strDummy As Date Dim i As Byte Dim x As Byte ' Array unsortiert befüllen For z = 1 To 6 arr(z) = ActiveSheet.Cells(z, 1).Value Next z ' Die äußere Schleife 5mal durchlaufen For i = 1 To 5 ' Die innere Schleife 5mal durchlaufen (Datenaustausch) For x = i + 1 To 6 If arr(i) > arr(x) Then strDummy = arr(i) arr(i) = arr(x) arr(x) = strDummy End If Next x Next i For i = 1 To 6 'Debug.Print arr(i);  'Ausgabe im Direktfenster ActiveSheet.Cells(10, i) = arr(i) Next i End Sub

Dies funktioniert natürlich genauso mit normalen Zahlen oder Texten. Hier ist zu beachten, die Variablen entsprechend als Zahl oder String zu deklarieren.

 Share on Facebook

Read more http://vba-codeschnipsel.de/datumswerte-sortieren-kopieren-und-transponieren/