Laufzeitfehler 438

14/10/2008 - 12:17 von Andreas H. | Report spam
Hallo,

Ich habe mir ein einfach Makro aufgezeichnet.und bekomme den
Lauzzeitfehler.bitte abermals um Hilfe ! Danke

Windows("Tabelle1.xls").Activate
Sheets("Test").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Windows("Tabelle2.xls").Activate
Sheets("Test").Select
ActiveSheet.Unprotect <hier irgendwo
bleibt das Makro stehen !
Range("A2").Select
ActiveSheet.Paste

Windows("Tabelle1.xls").Select
ActiveWorkbook.Save
ActiveWindow.Close
Windows("Tabelle2.xls").Activate
 

Lesen sie die antworten

#1 stefan onken
14/10/2008 - 12:35 | Warnen spam
On 14 Okt., 12:17, "Andreas H." wrote:
Hallo,

Ich habe mir ein einfach Makro aufgezeichnet.und bekomme den
Lauzzeitfehler.bitte abermals um Hilfe ! Danke

Windows("Tabelle1.xls").Activate
    Sheets("Test").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Windows("Tabelle2.xls").Activate
    Sheets("Test").Select
    ActiveSheet.Unprotect                         <hier irgendwo
bleibt das Makro stehen !
    Range("A2").Select
    ActiveSheet.Paste

    Windows("Tabelle1.xls").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("Tabelle2.xls").Activate



hallo Andreas,
Windows("Tabelle1.xls").Select stimmt nicht, das müsste
Windows("Tabelle1.xls").Activate heissen.

Gruß
stefan

Ähnliche fragen