Code: Alles auswählen
Sub alle_Bereiche_loeschen()
x = ThisComponent.namedRanges
y = x.Count
For i = y To 1 Step -1
x.removeByName(x(i-1).Name)
Next i
End Sub
GRuß
Stephan
Moderator: Moderatoren
Code: Alles auswählen
Sub alle_Bereiche_loeschen()
x = ThisComponent.namedRanges
y = x.Count
For i = y To 1 Step -1
x.removeByName(x(i-1).Name)
Next i
End Sub
ich zumindest nicht, das Makro funktioniert hier einwandfrei, auch mit einer *.xls-DateiWeiß vielleicht jemand, warum die kommt bzw. was ich dagegen machen kann?