Nullwerte löschen
01.05.2007 18:03:00
Heinz
Möchte in den unteren Code "Nullwerte löschen" einfügen.
Also wenn in AU42:BB72 eine "0" steht, das diese Null gelöscht wird.
Könnte mir bitte jemand helfen ?
Danke & Gruß Heinz
If CheckBox15 Then 'Dezember
Sheets("Schichtplan").Range("AU42:BB72").Copy
Sheets("Schichtplan GK").Range("AU42").PasteSpecial Paste:=xlPasteValues, Transpose:=False 'Jänner
Sheets("Schichtplan GK").Range("AU42:BB72").ClearComments
Else
End If