wenn Dun die Zeile löscht, dann entstehen auf den Folgeseiten #BEZUG - Fehler. diese Zellen könntest Du in einer Schleife überprüfen und dann jeweils die komplette Zeile entfernen.
If InStr(ActiveCell.Formula, "REF") > 0 Then MsgBox "Löschen Zeile!"
Viele Grüße
Bernd
MVP für Microsoft Excel
Neue VBA-Bücher, Office-FAQs und Makros unter: http://held-office.de
Sub BezugsfehlerEntfernen()
Range("A1").Select
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If InStr(ActiveCell.Formula, "REF") > 0 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Neue VBA-Bücher, Office-FAQs und Makros unter: http://held-office.de
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen