Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen löschen, wenn...

Zeilen löschen, wenn...
Sascha
Hallo,
ich müsste alle Zeilen per VBA gelöscht bekommen die als Formelergebnis in der Spalte C das Datum 00.01.1900 haben.
Hat jemanad eine Idee wie dies funktioniert?
Vorab vielen Dank
Gruß
Sascha
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen löschen, wenn...
11.05.2011 16:05:03
Mäxl
Hi
anbei ein Versuch
Sub zero()
Dim rngHoleInOne As Range, i As Long
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3).Value  "" And Cells(i, 3).Value = 0 Then
If rngHoleInOne Is Nothing Then
Set rngHoleInOne = Cells(i, 3).EntireRow
Else
Set HoleInOne = Union(rngHoleInOne, Cells(i, 3).EntireRow)
End If
End If
Next
If Not rngHoleInOne Is Nothing Then rngHoleInOne.Delete
End Sub
gruß
Mäxl
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige