Probleme mit Sheet.Move
01.02.2008 10:33:40
Thomas
Ich benötige eure Hilfe!!! Ich habe eine Datei an Kollegen verteilt die nun aktualisiert werden soll. Dazu soll aus der vorherigen datei ein sheet übernommen werden.
Dazu verwende ich folgenden Code:
Dim x As Single, y As Single, z As Single
Dim WBO As Workbook, WBL As Workbook
Dim WBOS As Worksheet, WBLS As Worksheet
Set WBL = ThisWorkbook
Set WBLS = WBL.Sheets("Übersicht")
Workbooks.Open "C:\XL_TEST\Version1_2008.xls"
Set WBO = ActiveWorkbook
Set WBOS = WBO.Sheets("Übersicht")
Application.DisplayAlerts = False
WBL.Sheets("Maßnahmen").Delete
Application.DisplayAlerts = True
WBO.Sheets("Maßnahmen").Visible = True
WBO.Sheets("Maßnahmen").Move Before:=Workbooks(WBL).Sheets(1)
WBL.Sheets("Maßnahmen").Visible = False
WBO.Close SaveChanges:=False
Leider erscheint immer Laufzeitfehler: 13 und das Programm unterbricht.
Hat jemand eine Idee woran das liegen kann, bzw was ich falsch mache?
Danke für eure Hilfe,
Thomas