Löschen von Zellinhalten per Makro
18.04.2006 20:00:10
Zellinhalten
Ich versuch schon die ganze Zeit dieses Makro zum laufen zu bringen.
Ich möchte die Werte in diesen Zellen ( Datenblatt )mit Hilfe des Makros löschen.
Aber irgend etwas ist falsch.
Ich hoffe auf Eure Hilfe
Gruß Wolfgang
Sub Daten_Löschen()
Dim s As String
Call schutzauf
With Sheets("Datenblatt")
s = "N1,B1,C1:I1,L1:M1,C2:E2,F2:G2,H2:I2,L2:M2,C3:E3" _
& "H3:M3,C6:D6,E6:G6,H6:I6,J6:K6,L6:M6,C7:D7,E7:G7,H7:I7,J7:K7,L7:M7,C8:D8," _
& "E8:G8,H8:I8,J8:K8,L8:M8,C9:D9,E9:G9,H9:I9,J9:K9,L9:M9,C10:D10,E10:G10" _
& "H10:I10,J10:K10,L10:M10,C12:M12,C13:M13,C14:M14,C15:M15,C16:M16" _
& "C17:M17,C18:M18,C19:M19,C20:M20,C21:M21,C22:M22,C23:M23,C24:M24" _
& "C25:M25,C26:M26,A30:A31,B30:C30,B31:C31,B32:C32,E30,E31,E32,G30" _
& "G31,G32,I30,I31,I32,K30,K31,K32,M30,M31,M32"
.Select(s).ClearContents
End With
End Sub