OpenOffice.info

Hallo Karo,

funktioniert bestens... danke!

Hallo Karo,

[quote]Und hier hatte ich für die einzelnen Zellen .formulalocal vorgeschlagen.[/quote]
Den Thread habe ich vor meiner letzten Antwort extra nochmals nachgelesen.

Ich werde den Code ausprobieren.

Ich glaube dir nicht die Aussage, das der Makrocode [color=#FF0000]plötzlich[/color] nicht mehr funktioniert.

Und [url=http://de.openoffice.info/viewtopic.php?f=18&t=53073#p199414]hier hatte ich für die einzelnen Zellen [color=#008000].formulalocal[/color][/url] vorgeschlagen.

Hallo Karolus,

[quote]Reichen die zahlreichen Tipps aus dem anderen Thread nicht..[/quote]
ich hatte leider noch keine Zeit die komplett umzusetzen :(

Nachdem das Macro bisher funktioniert hatte, war's auch nicht so dringend.
Nur hat mich gewundert, dass es nun nicht mehr funktioniert und ob mein Code vielleicht einen Fehler hat.

Nachdem das Datum offensichtlich ein Problem ist, werde ich doch die Lösung von Balu umsetzen müssen
bzw. so lange das Datum manuell nachpflegen.

Danke Karo.

Hallo
[quote]Kann mir jemand einen Tipp geben, woran dies liegt?[/quote]
Reichen die zahlreichen Tipps aus dem anderen Thread nicht...
[quote]Kann ich daraus schließen, dass das Problem in den Datumsfeldern liegt?[/quote]
Ja, anscheinend "mag" .set[color=#FF0000]Data[/color]Array [color=#FF4000]CDate[/color] nicht, die Alternativen wurden bereits genannt.

Karo

Sub Projekt_erfassen_Array

Dim oDoc as Object, oSheet as Object
Dim oInput as Object
Dim aMeinArray(0,5)

aMeinArray(0,0) = CDate(Inputbox("Datum"))
aMeinArray(0,1) = Inputbox("Kurzbezeichnung")
aMeinArray(0,2) = Inputbox("Beschreibung")
aMeinArray(0,3) = Inputbox("Ziel")
aMeinArray(0,4) = CDate(Inputbox("Fälligkeit"))
aMeinArray(0,5) = Inputbox("Notizen")

oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName("Projekte")

oRow = oSheet.getRows
oRow.insertByIndex(3,1)

oInput = oSheet.getCellRangeByName("A4:F4")
oInput.setDataArray(aMeinArray())

End Sub

oInput.setDataArray(aMeinArray())

Hallo miteinander,

ich habe folgendes Macro, das bisher einwandfrei funktioniert hat (wie auch in einem anderen Thread schon beschrieben):

[code]Sub Projekt_erfassen_Array

Dim oDoc as Object, oSheet as Object
Dim oInput as Object
Dim aMeinArray(0,5)

aMeinArray(0,0) = CDate(Inputbox("Datum"))
aMeinArray(0,1) = Inputbox("Kurzbezeichnung")
aMeinArray(0,2) = Inputbox("Beschreibung")
aMeinArray(0,3) = Inputbox("Ziel")
aMeinArray(0,4) = CDate(Inputbox("Fälligkeit"))
aMeinArray(0,5) = Inputbox("Notizen")

oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName("Projekte")

oRow = oSheet.getRows
oRow.insertByIndex(3,1)

oInput = oSheet.getCellRangeByName("A4:F4")
oInput.setDataArray(aMeinArray())

End Sub[/code]
Nun kriege ich plötzlich folgende Fehlermeldung

"BASIC-Laufzeitfehler: Objectvariable ist nicht belegt"

in der Zeile

[code]oInput.setDataArray(aMeinArray())[/code]
Die Werte sind mit Ausnahme der Zellen "Datum" und "Fälligkeit" aber eingetragen.

Kann mir jemand einen Tipp geben, woran dies liegt?
Kann ich daraus schließen, dass das Problem in den Datumsfeldern liegt?