Schleife Einsetzen ?
23.06.2004 12:17:37
marc
ich habe zwei Mappen mit 12 Tabellen.Beide sin identisch aufgebaut.
nun moechte ich die Werte aus allen Tabellen der Mappe1 in die Tabellen
der Mappe2 kopieren.
als singel Befehl ist der Code o.k ich moechte aber den Kopiervorgang
automatisieren ( Schleifen Einsatz )
wie muss ich den Code umbauen.
-
marc
________________________________________
Sub CopyFromTo()
Dim wb As Workbook
Set As ActiveWorkbook
Worksheets.Open ("C:\Archiv\AuswFeh_KW02_23_xx31.xls")
Worksheets(1).Range("B4:P4").Copy
Worksheets.Open ("C:\Archiv\sixMo.xls")
Worksheets(1).Range("A2").PasteSpecial Paste:=xlValues, _
Pastexl:=Formats
ApplicationCutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
__________________________________________________________