ich möchte in einem Tabellenblatt per Makro alle Werte =1 löschen,
kann mir jemand helfen?
Gruß Hajo
Private Sub CommandButton1_Click()
Dim Zelle As Range
For Each Zelle In Worksheets("xxx").UsedRange
If Zelle.Value = 1 Then Zelle.Value = ""
Next Zelle
End Sub
Die erste 1 wird gelöscht,dannach kommt 'Laufzeitfehler 1004' und beim Debuggen wird 'Zelle.Value = "" ' als Fehler angezeigt.
Findest Du den Fehler ?
Tschüß Micha
das ist mir nich ganz klar, wo der Fehler lieg. Aber Versuche es mal so
Gruß Hajo
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen