ich bin ganz neu hier, lese mich aber schon seit Wochen immer wieder in durch dieses Forum. Leider bin ich mit VBA noch ziemlich unbeholfen und komme bei dem folgenden, vermutlich super einfach zu behebenden Problem nicht weiter...: Wenn ich versuche dieses unten stehende Sub auszuführen kommt die Meldung "Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden" (vermutlich gibt's noch viel mehr Fehler...):
Option Explicit
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim rng As Range
Dim cell As Range
For Each wks In Worksheets
'Define range
Set rng = ActiveWorkbook.Worksheets.Range(Cells(4, 3), Cells(4, Cells(4, 1).End(xlDown). _
Row))
For Each cell In rng
If cell.Value = 0 Then
ElseIf (cell.SpecialCells(xlCellTypeConstants, 21)) Is Nothing Then
cell.ClearContents
End If
Next
Next
End Sub
Vielen Dank schon einmal!