Laufzeitfehler 1004
06.02.2004 13:07:52
Sigi
hab folgendes Makro geschrieben, es soll jede zweite Zelle(ab 82) in der zweiten Spalte hochlaufen. Sobald eine Zelle etwas enthält soll der Bereich oberhalb markiert und ausgedruckt werden.
Sub DruckenFormatiert()
Dim Zeile As Integer
Zeile = 82
If Range(Cells(Zeile, 2)).Value = " " Then Zeile = Zeile - 2 Else: Range(Cells(1, 1), Cells(Zeile, 28)).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Sobald ich das Makro starte meldet das System: Laufzeitfehler 1004 und "Methode Range ist für das Objekt _Global fehlgeschlagen"
Habt ihr eine Idee was ich falsch mache???
Gruß
Sigi
Anzeige