For Each... Makro fehler
09.07.2003 10:40:14
Otto
ich habe ein ganz einfaches Makro, das mir helfen soll, ein Ausdruck zu automatisieren. Ich benutze dabei den Befehl For Each... Next.
Dabei kommt allerdings eine Fehlermeldung und ich kann mir nicht erklären wo der Fehler ist. Die Meldung ist "Die Methode Range für das Objakt Global ist fehlgeschlagen". Kann mir Jemand helfen?
Anbei das Makro
Sub Ausdruck()
For Each c In Worksheets("Tabelle2").Range("Europe").Cells
Range(c).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A6").Select
ActiveSheet.Paste
Calculate
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next c
End Sub
Vielen Dank
Otto