Re: Tabellen kopieren
20.11.2002 08:44:23
Steffen D
Hallo Tanja,probier mal diesen Code in ein Standardmodul von Gesamt.xls zu kopieren, und dann den "Makro" auszuführen.
Du musst eventuell den Code (Dateien) anpassen!!!
Sub Makro()
Dim wks As Worksheet, wks2 As Worksheet
Dateien = Array("C:\Kunde1.xls", _
"C:\Kunde2.xls", _
"C:\Kunde3.xls", _
"C:\Kunde4.xls", _
"C:\Kunde5.xls")
anzahl = UBound(Dateien)
zaehler = 0
Do While zaehler <= anzahl
Workbooks.Open Filename:=Dateien(zaehler)
Windows(DATEINAME(Dateien(zaehler))).Activate
For Each wks In Worksheets
Sheets(wks.Name).Copy after:=Workbooks("Gesamt.xls").Sheets(3)
Next wks
Windows(DATEINAME(Dateien(zaehler))).Activate
ActiveWorkbook.Close savechanges:=False
Loop
End Sub
Function DATEINAME(ByVal strDatei As String) As String
DATEINAME = Right(strDatei, Len(strDatei) - InStrRev(strDatei, "\", , vbTextCompare))
End Function
Ich konnte den Makro nicht testen, da ich die dateien dazu nicht habe.
Viel Spaß
Steffen