Teile der GESAMTEN Arbeitsmappe löschen
16.12.2008 16:48:47
m-andi
ich hab da mal wieder ein Problemchen mit VBA:
Und zwar möchte ich in der Gesamten Arbeitsmappe alle Zelleninhalte löschen in der was mit der Farbe "56" steht. Mit meinem Quelltext löscht es mir aber nur die entsprechenden Inhalte auf der einen Seite.....
Ich habe versucht "activeSheet" durch "activeWorkbook" zu ersetzen das mag er aber nicht....
Hat jemand von euch eine Lösung für mich?
Dankeschön :-)
Andi
----------------------------------------------------------------------------
Private Sub CommandButton1_Click()
'Eingegebene Zahlen Löschen
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Font.ColorIndex = 56 Then
Zelle.ClearContents
End If
Next Zelle
End Sub