ich habe mir mit Hilfe eines Makros, das Bereiche transponiert viel Arbeit erspart.
https://www.herber.de/cgi-bin/callthread.pl?index=1534197
Außerdem möchte ich in dem kopierten Bereich, wenn Spalte G 0 oder Leer ist die gesamte Zeile löschen.
Dies betrifft leider ca. 210000 Datensätze.
Den Code den ich dafür verwende, funktioniert, ist aber sehr langsam:
Sub Lösche_alle_Zeilen_ohne_Prozentwert()
Dim i As Long
For i = Cells(Cells.Rows.Count, 1).End(xlUp).Row To 2 Step -1
On Error Resume Next
If Cells(i, 7) = 0 Then Rows(i).Delete
Next
End Sub
Alle Application Events habe ich deaktiviert.
Ich habe gelesen, das ich um diesen zu beschleunigen, z.B. ein X in eine Hilfsspalte z.B. bei mir H schreiben muss, wenn Spalte G 0 oder Leer ist.
Anschließend müsste ich die Daten sortieren und dann löschen.
Leider habe ich noch keinen Hinweis auf entsprechende Codeschnipsel gefunden, die mich auf den Weg zu einer Lösung bringen.
Hat jemand evtl. einen Lösungsansatz für mich? Bin für jede Hilfe dankbar!
Viele Grüße
Kai