Fehler im code --> löschen
Maris
ich habe versucht ein Makro zu schreiben das sich auf mehrere Tabellenblätter bezieht, leider funzt es net... weiß jemand was ich faslch gemacht habe?
Sub Clear_ContentsSearch()
'Für alle Tabellen in dieser Arbeitsmappe
For Each wks In ThisWorkbook.Worksheets
With wks
'Für alle Tabellennamen hinter "case is =" (Namen.... Anpassen, erweitern)
Select Case .Name
Case "Tabelle1", "Tabelle2"
On Error Resume Next
[B4:BA1000].SpecialCells(2, 23).ClearContents
If Err 0 Then MsgBox "Keine Konstanten vorhanden! ", 64, "Weise hin..."
End Select
End With
Next wks
End Sub
Anzeige