leider muß ich Euch schon wieder löchern! Aber mein Problem von gestern bekomme ich einfach nicht zum Laufen! Besten Dank noch Günter - aber es klappt nicht!
Ich möchte beim Öffnen einer Tabelle aus einer Mustertabelle ein bestimmtes Blatt in die aktuelle reinkopieren bzw. anhängen.
Folgenden Code habe ich dazu gefunden:
Dim wkbAlt As Workbook
Dim wkbNeu As Workbook
Application.ScreenUpdating = False
Set wkbAlt = ActiveWorkbook
Workbooks.Open "L:\Netz\Doku\Kunden im Netz.xls"
Workbooks(Workbooks.Count).Windows(1).WindowState = xlNormal
Set wkbNeu = ActiveWorkbook
Worksheets("DIZ-SLA").Copy After:=wkbAlt.Worksheets(4)
wkbNeu.Close SaveChanges:=False
Application.ScreenUpdating = True
Ich bekomme aber ständig die Fehlermeldung:
Laufzeitfehler '9'
Index außerhalb des gültigen Bereichs
zur Codezeile
Worksheets("DIZ-SLA").Copy After:=wkbAlt.Worksheets(4)
Wer kann mir helfen!
und vielen vielen Dank im vorraus
Antje