[de-users] Makro von Excel nach OpenOfficeCalc

[Roger Werner]

Hallo,

ich muss dieses kleine Macro in OOCalc umschreiben. Wer weiß das Rat?

Sub Drucken_1_1()

Anzahlformular1 = Range("b1")

Anzahlformular2 = Range("b2")

Sheets("formular1").Select

Dim i As Byte

    For i = 1 To Anzahlformular1

        MsgBox ("Gedruckt wird I=" & i)

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

        Range("b3").Value = Range("b3").Value + 1

    Next i

Sheets("formular2").Select

    For i = 1 To Anzahlformular2

        MsgBox ("Gedruckt wird I=" & i)

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

        Range("b3").Value = Range("b3").Value + 1

    Next i

End Sub


Lieben Gruß,

Roger

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]