Neues Tabellenblatt einfügen

[hoefri55]

Hallo,

ich möchte per Makro ein neues Tabellenblatt in mein Calc-Dokument einfügen. Per Makro-Rekorder klappt das nicht.
Kann mir jemand helfen??

Danke!

[zap]

Hi hoefri55,

das geht einfach: das zweite Argument zu insertNewByName ist die Position an der die neue Tabelle eingefuegt werden soll. D.h. das folgende Makro fuegt eine Tabelle vor und eine nach "Tabelle1" ein.

Code: Alles auswählen

option compatible

sub blatt_einfuegen
  oTabellen = ThisComponent.Sheets
  
  REM Prüfen, ob eine Tabelle mit dem Namen "MeineTabelle"" existiert.
  If NOT oTabellen.hasbyName("MeineTabelle") Then
    REM Tabelle2 existiert nicht, also wird sie eingefügt.
    oTabellen.insertNewByName ("MeineTabelle", 1)
  End If
  
  REM Eine neue Tabelle mit Namen "Erste" vor allen anderen einfügen.
  oTabellen.insertNewByName("Erste", 0)
end sub

[hoefri55]

hallo,

das hat mir prima geholfen. Besten Dank.

Friedhelm