OpenOffice.info

Code: Alles auswählen

	For Zeile = 6 to letzte_Zeile

	If oResults.getCellbyPosition(0, Zeile).String ="x" Then  ' Auswahl der Zeilen, die in der ersten Spalte mit "x" markiert sind 
		Anfang = oResults.getCellbyPosition(20,Zeile).value
		Ende =  oResults.getCellbyPosition(22,Zeile).value

		Erg = Acc.callFunction("com.sun.star.sheet.addin.DateFunctions.getDiffMonths",Array(Anfang,Ende,1) '1 = Kalenderjahre, 0 = Jahresintervall
		' Erg = Anzahl der Monatsdifferenz, z.B. 4
		Monat = Month(Anfang) 'Monatszahl, z.B. 11 für November
		Jahr = Year(Anfang)
					
		For I = 0 To Erg
			Stat(Jahr,Monat-1) =  Stat(Jahr,Monat-1) +1 'Array wird gefüllt; -1 da Zählung im Array bei 0 anfängt
			Monat = Monat + 1
			If Monat > 12 then 
  				Jahr = Jahr + 1 'Das Jahr wir hochgezählt, wenn Januar kommt
				Monat = 1
			End if
		next I
	End if ' X- Schleife
	next Zeile

Code: Alles auswählen

' Blatt wechseln
	oResults = ThisComponent.Sheets().getByName("Monate")
	ThisComponent.CurrentController.setActiveSheet(oResults)

u = 1 ' u = Zeile im Zielblatt

For t = 2005 to 2011 	't = Jahr

	oCellSrc = oResults.getCellByPosition(0,u) 'Variable Spalte und Zeile
   	oCellSrc.Value =  t ' Jahr eintragen    
   			
	For I = 0 to 11 		'I = Durchlauf durch Monate
		y = I +1 			'y = dynamische Spalte von links nach rechts
		  	oCellSrc = oResults.getCellByPosition(y,u) ''Variable Spalte und Zeile
   			oCellSrc.Value =  stat(t,i) ' Monate eintragen
	next I ' Zeile ist geschrieben
u = u + 1 ' eine Zeile weiterzählen
Next t
	MsgBox "Die Monate wurden gezählt!"

Code: Alles auswählen

Sub Monatsdifferenz
Dim stat(11)
Blatt = ThisComponent.sheets(0)
Endzeile = 4
Acc = CreateUnoService("com.sun.star.sheet.FunctionAccess")

For Zeile = 1 to Endzeile
Anfang = Blatt.getCellbyPosition(1,Zeile).value
Ende =  Blatt.getCellbyPosition(3,Zeile).value

Erg = Acc.callFunction("com.sun.star.sheet.addin.DateFunctions.getDiffMonths",Array(Anfang,Ende,1)
Monat = Month(Anfang)

For I = 1 To Erg+1
Stat(Monat-1) =  Stat(Monat-1)+1
Monat = Monat + 1
If Monat = 13 then
Monat = 1
End if
next I
next Zeile

For I = 0 to 11
Anzeige = "Monat" &cstr(I+1)& "   " & stat(i)
MSGBOX(Anzeige)
next I

End Sub

Code: Alles auswählen

Dim objMonate(Januar,Februar,Maerz,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember)
Dim n as Integer
Dim objErg as Object
Dim letzteZeile as Integer
letzteZeile = 20

For n = 6 to letzteZeile

	For y = 0 to Ubound(objMonate)
	If oCellSrc = objQuelle.getCellRangeByName("$U"& n) = objMonate(y) then
	objErg(y) = objErg(y) + 1
	next y
Next n