Danke für deine Antwort.
Leider kommt die gleiche Fehlermeldung immernoch.
Was ich noch sagen kann: Alle Felder, bei denen ich den Inhalt löschen möchte, sind zwar formatiert aber sind lediglich mit einem manuell eingefügt Zahlenwert gefüllt.
Code:
Sub Bewertung_NWA_zuruecksetzen()
With Worksheets("Technischer_Vergleich_NWA")
.Range("G8,G21,G28,G38,G46,G59,G72,G79,G89,G101,G113,G120,G130,G140").ClearContents
.Range("K8,K21,K28,K38,K46,K59,K72,K79,K89,K101,K113,K120,K130,K140").ClearContents
.Range("O8,O21,O28,O38,O46,O59,O72,O79,O89,O101,O113,O120,O130,O140").ClearContents
.Range("S8,S21,S28,S38,S46,S59,S72,S79,S89,S101,S113,S120,S130,S140").ClearContents
.Range("W8,W21,W28,W38,W46,W59,W72,W79,W89,W101,W113,W120,W130,W140").ClearContents
End With
End Sub
|