Excel Absturz beim Versuch alle Bilder und hyperlinks zu löschen

17/09/2007 - 18:06 von Markus | Report spam
Hallo, ich möchte aus dem Internet sehr viele (ca. 1500) Tabellen kopieren
und einzeln in Excel eunfügen. Excel soll dafür sorgen, dass alle Bilder und
links aus den Tebellen entfern werden - per Makro. Übrig sollen nur bestimmte
Spalten bleiben die Text beinhalten.

Nur leider stürzt mein Excel 2007 SP1 nach jeder Seite ab! Kann mir jemand
bitte helfen? Kann man das Macro so modifizieren, dass es klappt?
(Komischerweise klappt es im Debuggingmodus gut.)

Code:

Range("A1").Activate
Columns(7).Delete
Columns(6).Delete
Columns(5).Delete
Columns(4).Delete
Columns(3).Delete

For Each mHyperlink In Sheets(1).Hyperlinks
mHyperlink.Delete
Next
For Each mShape In Sheets(1).Shapes
mShape.Delete
Next
CNT = 1
Do Until Range("A" & CNT).Value = Empty
If Range("A" & CNT).Value = "Überschrift " And Range("B" &
CNT).Value = "Überschrift ..." Then
Rows(CNT).Delete
' Aktive Zeile darf nicht gelöscht werden - Absturz!
Range("A" & CNT + 1).Activate
Else
CNT = CNT + 1
End If
Loop
Range("A1").Activate
 

Lesen sie die antworten

#1 Markus
17/09/2007 - 18:14 | Warnen spam
Oh, die Reihenfolge soll natürlich andersrus sein:
Erst:

' Aktive Zeile darf nicht gelöscht werden - Absturz!
Range("A" & CNT + 1).Activate
Dann:
Rows(CNT).Delete

Aber mein Excel stürzt immer noch ab. Ich bekomme keine Makrofehlermeldung
sondern Excel kackt ab und wird geschlossen!

Ähnliche fragen