OpenOffice.info

Code: Alles auswählen

REM ***** BASIC *****

Sub Main

End Sub



sub Tom
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$CZ$27:$EL$31"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$CZ$33"

Code: Alles auswählen

oSheet=Document.Sheets.getByName("Daten")

Code: Alles auswählen

oSheet=Document.Sheets(n)

Code: Alles auswählen

Sub AlleBlaetter
Dim i as Integer

oDoc = ThisComponent

	for i=0 to oDoc.Sheets.count-1
	
	REM dein code rein


	next i
end Sub

Code: Alles auswählen

sub copyall
oDoc = thisComponent
for i = 0 to odoc.sheets().count -1
    oquelle = odoc.sheets(i).getCellrangebyName("CZ27:EL31").getRangeAddress
    oziel = odoc.sheets(i).getCellrangebyName("CZ33").getcellAddress
    odoc.sheets(i).copyRange( oziel , oQuelle )
next i
end sub

Code: Alles auswählen

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1


Private Sub CommandButton1_Click()
'
' GrpA Makro
' Makro am 22.02.2002 von Kai Moczyk aufgezeichnet
'

'
    Range("BM24:BS27").Select
    Selection.Sort Key1:=Range("BO24"), Order1:=xlDescending, Key2:=Range( _
        "BS24"), Order2:=xlDescending, Key3:=Range("BP24"), Order3:=xlDescending _
        , Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom
    Range("I34").Select
End Sub

Code: Alles auswählen

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub GrpA()
'
' GrpA Makro
' Makro am 22.02.2002 von Kai Moczyk aufgezeichnet
'

'
    Range("BM31:BR35").Select
    Selection.Sort Key1:=Range("BM31"), Order1:=xlDescending, Key2:=Range( _
        "BR31"), Order2:=xlDescending, Key3:=Range("BO31"), Order3:=xlDescending _
        , Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
End Sub