Blatt in alle offenen Arbeitsmappen kopieren
26.07.2005 11:35:26
frank.mahlberg@gerling.de
Wie kann ich ein Tabellenblatt in alle offenen Arbeitsmappen
kopieren? Habe folgendes versucht:
Sub QUELLEKOPIEREN()
Dim vmap
Dim WB As Workbook
For Each WB In Workbooks
vmap = Wokbooks.Name
Workbooks("GD.xls").Sheets("Formular").Select
Workbooks("GD.xls").Sheets("Formular").Copy Before:=Workbooks("vmap").Sheets(1)
Next WB
End Sub
Bekomme die Meldung Objekt erforderlich!
Was läuft falsch?
Anzeige