Wer kann bestehendes Makro erweitern?
18.12.2004 18:05:06
Jens
ich habe folgendes Makro das alle Zeilen löschen soll, welche im Bereich der Spalten 6 zu 188 keine Daten enthalten.
Sub ZeilenLöschen()
For i = [a65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountA(Range(Cells(i, 6), Cells(i, 188))) = 0 Then
Rows(i).Delete
End If
Next
End Sub
Jetzt habe ich das Problem daß auch manche Zellen eine 0 enthalten.
Deshalb sollte das Makro insofern erweitert werden:
Wenn im oben genannten Bereich alle Zellen leer sind oder eine 0 enthalten, soll die ganze Zeile gelöscht werden. Ich habe ein Arbeitsblatt das über 50.000 Zeilen enthält.
Besten Dank im voraus
Jens