Hallo liebe Liste,
ich habe ein Makro, mit dem ich Termine in einen Kalender eintrage.
Die Termineingabe mache ich auf einem Extrablatt Termineingabe.
Eingetragen werden die Termine auf dem Blatt Belegungsplan.
Das Starten des Makros erfolgt über einen Button auf dem Blatt
Termineingabe.
So weit, so einfach.
Nun wird aber bei jeder Terminaktualisierung der 30.12. als Termin
eingetragen. Dafür gibt es aber gar keinen Termin.
Kann jemand das Rätsel für mich lösen?
Ich komme nicht dahinter. :-)
Den Makrocode habe ich aus einem Beispielkalender abgeschaut und etwas
umgebaut (verschlimmbessert).
OOo ist die 2.2.1.
Hier ist der Code:
Sub Termine
Dim oTabelle as Object, oQuelltabelle as Object
Dim oMonat as Object
Dim oZelle as Object
Dim sText as String
Dim oTerminBereich as Object, TerminWert as Long
Dim nTerminTag as Integer, nTerminMonat as Integer
Dim nIndex as Integer
Dim nIndexMax as Integer
oTabelle = ThisComponent.Sheets.getByName("Belegungsplan")
oQuelltabelle = ThisComponent.Sheets.getByName("Termineingabe")
oTerminBereich = oQuelltabelle.getCellRangeByName ("Termine")
nIndexMax = oTerminBereich.rows.count - 1
For nIndex = 1 to nIndexMax
Terminwert = oTerminBereich.getCellByPosition(0,nIndex).getValue
nTerminTag = Day(TerminWert)
sText = oTerminBereich.getCellByPosition(1,nIndex).getString
nTerminMonat = Month(TerminWert)
oMonat = getMonatBereich(oTabelle, nTerminMonat)
oZelle = oMonat.getCellByPosition(1, nTerminTag)
oZelle.CellStyle = "Seminar"
oZelle.String = sText
Next nIndex
End Sub
Hat jemand einen Tipp für mich?
Vielen Dank und viele Grüße
Vera
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
