AW: Zeile löschen bestimmt zelle leer
11.06.2006 17:09:06
fcs
Hallo Hans,
Sub SpalteBundCaufraumen()
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
For reihe = .UsedRange.Row + .UsedRange.Rows.Count -1 To 1 Step -1
If (IsEmpty(Cells(reihe, "C")) And IsEmpty(Cells(reihe, "D"))) Or _
(Not IsNumeric(Cells(reihe, "C")) And Not IsNumeric(Cells(reihe, "D"))) Then
.Rows(reihe).Delete
End If
Next
End With
End Sub
Die If Bedingung ggf. anpassen. Mir war nicht eindeutig klar was passieren soll, wenn Text in den Zellen steht. Soll die Zeile gelöscht werden wenn in beiden Spalten Text steht oder wenn in einer der beiden Spalten Text steht. Obige Variante löscht Zeile wenn in beiden Spalten Text steht. Unten die If-Bedingung löscht Zeile wenn in einer Spalten Text steht.
If (IsEmpty(Cells(reihe, "C")) And IsEmpty(Cells(reihe, "D"))) Or _
Not IsNumeric(Cells(reihe, "C")) Or Not IsNumeric(Cells(reihe, "D")) Then
Vorsicht: Makro löscht schnell ohne Möglichkeit der Wiederherstellung!
mfg
Franz