Freut mich, Anke, dass Du noch bist!ANke hat geschrieben:Hallo ich bin mal wieder
Wie wäre es damit:
Code: Alles auswählen
Sub ClearSheet
ThisComponent.Sheets(0).clearContents(7)
'1 - value
'2 - date, time
'4 - strings
'8 - annotation
'16 - formula
'32 - hardattr
'64 - styles
'128 - objects
End Sub
Hilft Dir das?