ich wär echt dankbar um eine Lösung.
Ich muss in einem Exceldokument ganze Spalten umsortieren. Kriterium ist hier eine Zeile die verschiedene Werte oder
keinen Wert enthält. Pro spalte existiert also eine Zelle der Zeile mit einem eventuellen Wert.
Dazu habe ich folgende (stümperhafte) Lösung geschrieben.
Sub sortieren1()
Range(Range("D3").Value + "3").Select
Start = ActiveCell.Column
Dim aktuell As Integer
Dim vergleich As Integer
Dim erster As Integer
For hcounter = Start To 7 Step -1
aktuell = 0
vergleich = 0
erster = 0
For icounter = Start To 7 Step -1
aktuell = Cells(3, icounter).Value
If erster = 1 Then
If aktuell > vergleich Or aktuell = 0 Then
Range(Cells(2, icounter), Cells(50, icounter)).Copy
Range(Cells(2, 250), Cells(50, 250)).Select
ActiveSheet.Paste
Range(Cells(2, icounter+1), Cells(50, icounter+1)).Copy
Range(Cells(2, icounter), Cells(50, icounter)).Select
ActiveSheet.Paste
Range(Cells(2, 250), Cells(50, 250)).Copy
Range(Cells(2, icounter+1), Cells(50, icounter+1)).Select
ActiveSheet.Paste
End If
vergleich = aktuell
End If
If erster = 0 And aktuell <> 0 Then
vergleich = aktuell
erster = 1
End If
Next icounter
Next hcounter
End Sub
Problem ist, das dies viel zu lange dauert.
Kann mir bitte jemand ein paar Tipps geben wie man es schneller
gestallten könnte. Vielleicht den dauernden Kopiervorgang im Excelsheet umgehen.
Danke schon mal im voraus.