Es ist nichts falsch an sich. Du gibts einfach zu viele Zellen an.
Splitte den Vorgang ab.
Beispielsweise:
Worksheets("Technischer_Vergleich_NWA").Range("G8,G21,G28,G38,G46,G59,G72,G79,G89,G101,G113,G120,G130,G140,K8,K21,K28,K38,K46,K59,K72,K79,K89,K101,K113,K120,K130,K140,O8,O21,O28,O38,O46,O59,O72,O79,O89,O101,O113,O120,O130,O140,S8,S21,S28,S38,S46,S59,S72,S79,S89,S101,S113,S120,S130,S140,W8,W21,W28,W38").ClearContents
Worksheets("Technischer_Vergleich_NWA").Range("W46,W59,W72,W79,W89,W101,W113,W120,W130,W140").ClearContents
Oder besser:
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
|