OpenOffice.info

hallo,

das hat mir prima geholfen. Besten Dank.

Friedhelm

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

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]
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
[/code]

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!