CALC: Macro funktioniert plötzlich nicht mehr

[theindless]

Hallo miteinander,

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

Code: Alles auswählen

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

Nun kriege ich plötzlich folgende Fehlermeldung

"BASIC-Laufzeitfehler: Objectvariable ist nicht belegt"

in der Zeile

Code: Alles auswählen

oInput.setDataArray(aMeinArray())

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?

[Karolus]

Hallo

Kann mir jemand einen Tipp geben, woran dies liegt?

Reichen die zahlreichen Tipps aus dem anderen Thread nicht...

Kann ich daraus schließen, dass das Problem in den Datumsfeldern liegt?

Ja, anscheinend "mag" .setDataArray CDate nicht, die Alternativen wurden bereits genannt.

Karo

[theindless]

Hallo Karolus,

Reichen die zahlreichen Tipps aus dem anderen Thread nicht..

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.

[Karolus]

Ich glaube dir nicht die Aussage, das der Makrocode plötzlich nicht mehr funktioniert.

Und hier hatte ich für die einzelnen Zellen .formulalocal vorgeschlagen.

[theindless]

Hallo Karo,

Und hier hatte ich für die einzelnen Zellen .formulalocal vorgeschlagen.

Den Thread habe ich vor meiner letzten Antwort extra nochmals nachgelesen.

Ich werde den Code ausprobieren.

[theindless]

Hallo Karo,

funktioniert bestens... danke!