Löschen von #Bezug!-Zeilen
25.06.2004 17:33:11
#Bezug!-Zeilen
ich bitte um Unterstützung bei folgendem Problem:
Ich möchte mittels VBA in einer Exceldatei, die aus mehreren Blättern besteht, alle ZEILEN, aller BLÄTTER löschen, in denen in irgend einer Zelle, (oder mehreren Zellen) ein #Bezug! steht.
Wie ist soetwas möglich?
Ich bedanke mich schon jetzt für die freundliche Mithilfe.
Mit freundlichem Gruß
Newton-Pluto
Ps.: das habe ich gefunden, duchsucht aber nicht alle Blätter und funktioniert auch sonst nicht so richtig (evtl. ist 2. Zeile nicht OK?)
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