makro starten
07.08.2008 15:06:47
Matty
Das Programm kopiert aus den 4 Exceldateien jeweils die Dateneinträge des Sheet´s (Gesamt) zusammen. Das funktioniert auch einwandfrei.
Ich habe aber in den vier Dateien noch jeweils zwei makros (immer mit dem gleichen namen) nämlich JoinTab1 und PIVOTTABELLENUPDATE. Bevor der Kopiervorgang abläuft würde ich gerne in den vier Exceldateien nochmals die Makros laufen lassen! Was ist bei meinem Befehl Call Makronamen falsch?
Danke für den Tip schonmal im voraus.
Matty
Sub Gesamtuebersicht()
Dim wbNeu As Workbook
Dim Dat(3) As String
Dim i As Long
Dat(0) = "I:\Ordnerlevel_1\Ordnerlevel_2\Datei_1.xls
Dat(1) = "I:\Ordnerlevel_1\Ordnerlevel_2\Datei_2.xls
Dat(2) = "I:\Ordnerlevel_1\Ordnerlevel_2\Datei_3.xls
Dat(3) = "I:\Ordnerlevel_1\Ordnerlevel_2\Datei_4.xls
Set wbNeu = Workbooks.Add
For i = 0 To UBound(Dat, 1)
Workbooks.Open Dat(i), ReadOnly:=True
Bei diesem Bereich bin ich mir nicht sicher!!!
Sheets("Uebersicht").Select
Call JoinTab1
Call PIVOTTABELLENUPDATE
ActiveWorkbook.Sheets("Gesamt").UsedRange.Offset(-(i > 0), 0).Copy
wbNeu.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial _
xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Next
wbNeu.Sheets(1).Rows(1).Delete
End Sub
Anzeige