ich habe in einem Tabellenblatt mehrere Formeln stehen.
Wenn nun eine dieser Formeln in der Spalte A #BEZUG! auswirft, so soll ein Makro automatisch die komplette Zeile löschen.
Wie geht das per Makro?
Für Hilfe wäre ich dankbar,
Daniel
Sub ZeilenLoeschen()
Hallo,
Dim lR%, i%
Worksheets(1).Select
lR = Cells(Rows.Count, 1).End(xlUp).Row
For i = lR To 1 Step -1
If Cells(i, 1)="#Bezug" then
Rows(i).Delete 'Ganze Zeile löschen
End If
Next i
End Sub
Sub wechdamit()
For i = 1 To 5
If IsError(Cells(i, 3)) Then
Rows(i).Delete
End If
Next i
End Sub
Private Sub Worksheet_Calculate()
For i = 5 To 1 Step -1
If IsError(Sheets(2).Cells(i, 3)) Then
Sheets(2).Rows(i).Delete
End If
Next i
End Sub
Private Sub Worksheet_Calculate()
For i = 5 To 1 Step -1
If IsError(Sheets("Bericht").Cells(i, 3)) Then
Sheets("Bericht").Rows(i).Delete
End If
Next i
End Sub