OpenOffice.info

Danke für die schnelle Hilfe hat geklappt.

MfG Detlef

Sub Main
	Dim iZaehler as integer
	Dim oDatum as Date 
	Dim sDatum as String
	sDatum = InputBox("Bitte Startdatum eingeben!","Tabellenumbenennung")
	If IsDate(sDatum) Then
		oDatum = CDate(sDatum)
	Else
		Exit Sub
	Endif 
	For iZaehler = 0 to 30
	  sDatum=cstr(Day(oDatum))+" "+cStr(Month(oDatum))+" "+cStr(Year(oDatum))
      ThisComponent.Sheets(iZaehler).Name=sDatum
      oDatum = oDatum+1
    Next iZaehler
End Sub

Hallo,

leider lässt OOo keinen Punkt im Tabellennamen zu. Außerdem ist OOo etwas strikter beim zuweisen von Variablentypen, so dass du dich auch um das Umwandeln der Variablen ineinander kümmern musst. Versuch mal den folgenden Code:

[code]Sub Main
Dim iZaehler as integer
Dim oDatum as Date
Dim sDatum as String
sDatum = InputBox("Bitte Startdatum eingeben!","Tabellenumbenennung")
If IsDate(sDatum) Then
oDatum = CDate(sDatum)
Else
Exit Sub
Endif
For iZaehler = 0 to 30
sDatum=cstr(Day(oDatum))+" "+cStr(Month(oDatum))+" "+cStr(Year(oDatum))
ThisComponent.Sheets(iZaehler).Name=sDatum
oDatum = oDatum+1
Next iZaehler
End Sub[/code]

Dazu müssen min 31 Tabellen in der Mappe vorhanden sein und die Tabellen dürfen noch keinen Namen aus dem Datumbereich haben.

Ist es möglich das unten aufgeführte Excel-Makro auch in Calc zu benutzen. Ich bekomme immer eine Fehlermeldung:
Basic-Laufzeitfehler Sub-oder Function-Prozedur nicht definiert
Worksheets(i) .Name = x ist grau hinterlegt (markiert)

Sub Datum()
Dim x As Date
Dim i
x = InputBox("Bitte Anfangsdatum eingeben:", "Namensgebung")
For i = 1 To 32
Worksheets(i).Name = x
x = x + 1
Next i
End Sub

Wer kann mir helfen ich möchte mit dem Makro erreichen das ein Arbeitsblatt mit 31 Tabellen mit dem Datum z.B. 01.01.2007 bis 31.01.2007 automatisch ausgefüllt wird. In Excel funktioniert es.

MfG Detlef