Makro funzt nicht leere zellen suchen
29.09.2005 20:22:38
Achim
(Sorry habe schon ein Tipp bekommen funktioniert leider nicht)
Wer kann das Makro so umschreiben das es auch Funzt wenn eine Formel in den Zellen vorhanden ist?
Mein Makro sucht nach leere Zellen im Bereich B2:B3000 und löscht die jeweiligen Zeilen.
Nun befindet sich durch hinzufügen dieser folgenden Formel in dem Bereich von B2:B3000. Zwischen B2 u. B3000 sind auch Zellen dabei die bis auf die Formel keine Werte als Rückmeldung beinhalten. (Logisch weil in dem anderen Tabellenblatt auch nicht in allen Zellen Werte vorhanden sind) Die Zellen ohne Rückmeldung soll das Makro ermitteln und dann die Zeilen löschen.
Anbei die Formel u. das Makro
Range("B2").Select
ActiveCell.FormulaR1C1 = "=LEFT([DienstplanMV34.xls]Einteiler!RC2,25)"
(Textformel "Links) in den Zellen. Von daher löscht mein Makro gar nichts.:-(
Sub LeereZellenLöschen()
Sheets("Sheet1").Select
Range("A2:A500").Select
Dim i As Long
For i = Selection.Cells(Selection.Cells.Count).Row To 1 Step -1
If ActiveSheet.Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next i
End Sub
Danke Gruß Achim H.