title image


Smiley Re: Makro für generierung von Arbeitsmappen
Hallo,















Sub kopieren()



On Error GoTo Fehler    



ThisWorkbook.Worksheets("Umsätze 2004").Copy

ActiveWorkbook.SaveAs ("Umsätze 2004")



ThisWorkbook.Worksheets("Umsätze 2005").Copy

ActiveWorkbook.SaveAs ("Umsätze 2005")



Exit Sub  



Fehler:



    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _

    & "Beschreibung: " & Err.Description _

    , vbCritical, "Fehler"

End Sub  









Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: