Ich wollte folgendes Makro ausführen und bekomme immer eine Index Fehlermeldung, obwohl die Pfade richtig eingetragen sind. Wo kann hier bitte der Fehler liegen?
Sub zusammen_führen()
Dim wb1, wb2, wb3 As Workbook
Dim i As Integer
Set wb2 = Workbooks("K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen NOVA und Hema\Nova _
Standesdifferenzen 00001 09027_09050.xls")
Set wb1 = Workbooks("K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen NOVA und Hema\Zusammenfü _
_
_
hren.xls")
Set wb3 = Workbooks("K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen NOVA und Hema\Nova _
Standesdifferenzen 09001 09026_190509.xls")
For i = 1 To 10
wb2.Sheets("Tabelle1").UsedRange.Copy
wb1.Sheets("Tabelle1").UsedRange.End(xlDown).Offset(1, 0).Insert 'Copy
wb3.Sheets("Tabelle1").UsedRange.Copy
wb1.Sheets("Tabelle1").UsedRange.End(xlDown).Offset(1, 0).Insert 'Copy
Next
End Sub
Danke
Josef