OpenOffice.info

While (Len(ThisComponent.Sheets.getByName(strSpeisen).getCellByPosition(1, maxZeilen))) > 0 

 While (Len(ThisComponent.Sheets.getByName(strSpeisen).getCellByPosition(1, maxZeilen).value)) > 0 

Hallo in die Runde,

habe es nun mit
[code]While (Len(ThisComponent.Sheets.getByName(strSpeisen).getCellByPosition(1, maxZeilen))) > 0 [/code]

probiert. Nun kommt aber der Fehler Basic-Laufzeitfehler 380 - Falscher Wert für Eigenschaft.

Gruss
Sigi


Ich habe meinen Fehler gefunden. Ein Value hat gefehlt.

[code] While (Len(ThisComponent.Sheets.getByName(strSpeisen).getCellByPosition(1, maxZeilen).value)) > 0 [/code]

Danke - probiere ich am WE aus - dann hab ich wieder den PC.

Gruß
Sigi

While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0

While (Len(ThisComponent.Sheets.getByName(strSpeisen).getCellByPosition(1, maxZeilen))) > 0 

[quote]Ich versteh nun nicht wieso das nicht geht.[/quote]

naja, die Zeile:

[code]While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0
[/code]
ist doch in VBA.

In StarBasic ist das (z.B.):

[code]While (Len(ThisComponent.Sheets.getByName(strSpeisen).getCellByPosition(1, maxZeilen))) > 0 [/code]


Gruß
Stephan

Sub neuerSpeiseplan()
 
 Dim strSpeisen As String
 Dim strSpeiseplan As String
 Dim strZutaten As String
 Dim strEinkaufliste As String
 Dim maxZeilen As Integer
 Dim strVergangeSpeisen As String
 
 
 
 
 
 strSpeisen = "Liste Gerichte"
 strSpeiseplan = "Speiseplan"
 strEinkaufliste = "Einkaufliste"
 strVergangeSpeisen = "SpeichenVergangeneWoche"
 
 maxZeilen = 1

 While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0
     maxZeilen = maxZeilen + 1
 
 Wend
 maxZeilen = maxZeilen - 1
 
 Sheets(strVergangeSpeisen).Cells(2, 2) = Sheets(strSpeiseplan).Cells(5, 2)
 Sheets(strVergangeSpeisen).Cells(3, 2) = Sheets(strSpeiseplan).Cells(6, 2)
 Sheets(strVergangeSpeisen).Cells(4, 2) = Sheets(strSpeiseplan).Cells(7, 2)
 Sheets(strVergangeSpeisen).Cells(5, 2) = Sheets(strSpeiseplan).Cells(8, 2)
 
 
 Sheets(strSpeiseplan).Cells(5, 2) = zufallsSpeise(maxZeilen)
 Sheets(strSpeiseplan).Cells(6, 2) = zufallsSpeise(maxZeilen)
 Sheets(strSpeiseplan).Cells(7, 2) = zufallsSpeise(maxZeilen)
 Sheets(strSpeiseplan).Cells(8, 2) = zufallsSpeise(maxZeilen)
 

msgbox("Neuer Wochenplan und Einkaufsliste wurden erstellt")
 
 End Sub

Basic-Laufzeitfehler 
Sub- oder Funktions-Prozedur nicht definiert

 While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0

Hallo in die Runde,

ich habe folgenden Code
[code]
Sub neuerSpeiseplan()

Dim strSpeisen As String
Dim strSpeiseplan As String
Dim strZutaten As String
Dim strEinkaufliste As String
Dim maxZeilen As Integer
Dim strVergangeSpeisen As String





strSpeisen = "Liste Gerichte"
strSpeiseplan = "Speiseplan"
strEinkaufliste = "Einkaufliste"
strVergangeSpeisen = "SpeichenVergangeneWoche"

maxZeilen = 1

While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0
maxZeilen = maxZeilen + 1

Wend
maxZeilen = maxZeilen - 1

Sheets(strVergangeSpeisen).Cells(2, 2) = Sheets(strSpeiseplan).Cells(5, 2)
Sheets(strVergangeSpeisen).Cells(3, 2) = Sheets(strSpeiseplan).Cells(6, 2)
Sheets(strVergangeSpeisen).Cells(4, 2) = Sheets(strSpeiseplan).Cells(7, 2)
Sheets(strVergangeSpeisen).Cells(5, 2) = Sheets(strSpeiseplan).Cells(8, 2)


Sheets(strSpeiseplan).Cells(5, 2) = zufallsSpeise(maxZeilen)
Sheets(strSpeiseplan).Cells(6, 2) = zufallsSpeise(maxZeilen)
Sheets(strSpeiseplan).Cells(7, 2) = zufallsSpeise(maxZeilen)
Sheets(strSpeiseplan).Cells(8, 2) = zufallsSpeise(maxZeilen)


msgbox("Neuer Wochenplan und Einkaufsliste wurden erstellt")

End Sub

[/code]

Der Aufruf der Prozedur erfolgt über ein Button in einem Datenblatt. Beim Drücken des Button kommt eine Fehlermeldung:
[code]Basic-Laufzeitfehler
Sub- oder Funktions-Prozedur nicht definiert
[/code]

Beim Debuggen komm ich bis zu folgender Stelle
[code] While (Len(Sheets(strSpeisen).Cells(maxZeilen, 1))) > 0[/code]

Ich versteh nun nicht wieso das nicht geht. Muss ich irgendwelche Klassen importieren?

Ich hätte noch eine Frage - wieso kann ich die Pivo-Tabel nicht automatisch mitaktuallisieren?

Gruß und Dank!
Sigi