Ich bin nicht gerade eine Talent in Scriptsprachen .
Ich habe eine Sub erstellt die Datum ausliest(Mo-Fr) und den Ort.
Ich habe ein neues Tabellenblatt hinzugefügt. In den alle Daten die ausgelesen wurden eingetragen werden sollen
Code: Alles auswählen
Sub Steuern
Dim oDocument, oSheet, oCell, oCell1, oDate, oDate1, oOrt, oTabellenBlatt, oZelle(3), oCellBereich as Object
Dim Zelle0 as Integer
Zelle0 = 2
oDocument=ThisComponent
oSheet=oDocument.Sheets(0)
oCell=oSheet.GetCellByPosition(3,Zelle0)
'Tabellenblatt erzeugen
If Not oDocument.Sheets.hasbyName("Steuern") Then
oDocument.Sheets.insertNewByName("Steuern", 3)
oTabellenBlatt = oDocument.Sheets(3)
'Tabellenzellen Text formatieren
oZelle(0) = oTabellenBlatt.GetCellByPosition(0,0)
oZelle(1) = oTabellenBlatt.GetCellByPosition(2,0)
oZelle(2) = oTabellenBlatt.GetCellByPosition(4,0)
oZelle(3) = oTabellenBlatt.GetCellByPosition(6,0)
oCellBereich = oTabellenBlatt.getCellRangeByName("A1:G10")
oCellBereich.CharHeight = 10
oCellBereich.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER
oZelle(0).String = "Von"
oZelle(1).String = "Bis"
oZelle(2).String = "Baustelle"
oZelle(3).String = "Stunden"
End If
Sprungmarke:
oCell1=oSheet.GetCellByPosition(3,Zelle0 + 1)
oDate =oSheet.GetCellByPosition(0,Zelle0)
oOrt =oSheet.GetCellByPosition(3,Zelle0)
REM ***** Ende Variablendefinition ******
If Len(oDate.String) <> 0 Then
While oCell.String <> oCell1.String
oCell=oSheet.GetCellByPosition(3,Zelle0)
oCell1=oSheet.GetCellByPosition(3,Zelle0 + 1)
oDate =oSheet.GetCellByPosition(0,Zelle0)
-->Print oDate.String<--
Zelle0 = Zelle0 + 1
While Len(oCell1.String) = 0
oCell=oSheet.GetCellByPosition(3,Zelle0)
oCell1=oSheet.GetCellByPosition(3,Zelle0 + 1)
Zelle0 = Zelle0 + 1
Wend
Goto Sprungmarke
Wend
While oCell.String = oCell1.String
oCell=oSheet.GetCellByPosition(3,Zelle0)
oDate =oSheet.GetCellByPosition(0,Zelle0)
Zelle0 = Zelle0 + 1
While Len(oCell1.String) = 0
oCell=oSheet.GetCellByPosition(3,Zelle0)
oCell1=oSheet.GetCellByPosition(3,Zelle0 + 1)
Zelle0 = Zelle0 + 1
Wend
Goto Sprungmarke
Wend
End If
End Sub
Der --> <-- gekennzeichnete Code soll in das Tabellenblatt(3) eingetragen werden.
Kann ich den String(oDate.String) in oZelle(0).String verschieben?
MfG
Klaus