ich habe eine Export-Datei, in der bei 10.000 Gesamtzeilen etwa 2/3 nur aus kaskadierten Ergebniszeilen besteht. Eine Gliederung oder ähnliches ist nicht vorhanden, die Zeilen sind nur am Text "Ergebnis" zu identifizieren.
Da ich diese in der weiteren Verarbeitung nicht brauche, entferne ich sie per folgendem Code:
Sub mat_abw()
Dim Treffer
Do
Set Treffer = Range(ActiveSheet.UsedRange.Address).Find("Ergebnis")
If Not Treffer Is Nothing Then
Zeile = Treffer.Row
Rows(Zeile).EntireRow.Delete
End If
Loop Until Treffer Is Nothing
End Sub
Dies dauert auf meinem PC trotz diverser Beschleunigungsfunktionen (die ich hier nicht mit aufgeführt habe) ca. 1 Minute.Ich frage mich nun, ob es eine schnellere Variante gibt und diese mir jemand aufzeigen kann.
Daneben noch eine zweite Frage:
Wenn ich in einer Zelle eine als Text formatierte Zahl habe, mit der entsprechenden Excel-Markierung, wie kann ich diesen "Fehlerwert" bzw. diese Eigenschaft in VBA auslesen? Ich habe in wechselnden Spalten solche Text-Zahlen und möchte (wieder aus Geschwindigkeitsgründen) nicht die ganze Tabelle abgrasen, sondern nur in der ersten Zeile danach suchen und nur bei einem Treffer dann die entsprechende Spalte "behandeln".
Danke vorab für jede Hilfe und schönen Abend (ich mach jetzt Feierabend)
Gruß
David