Hallo zusammen,
habe folgendes Problem den unten stehenden Code habe ich mit Hilfe aus diesem Forum zusammen gebastelt. Beim Ablauf bekomme ich Laufzeitfehler 9 angezeit und den Verweis Index außerhalb des gültigen Bereichs.
Ich weiss leider so überhaupt nicht warum. In der Tabelle Planungstool wähle ich über Drop Down Liste verschiedene Kostenstellen aus die danach auch gem. der range den entsprechenden Speichernamen abbilden, das funtkioniert auch alles der Fehler kommt danach.
Private Sub Werte_übertragen_Click()
Sheets(„Personalplanung 2010“).Visible = True
Sheets(Array(„Planungstool“, „Personalplanung 2010“)).Copy
ActiveWorkbook.BreakLink Name:= _
„O:\67\Planungsdetails\Planung 2010\Datenhaushalt 2009.xls“, Type:= _
xlExcelLinks
With Sheets(„Planungstool“)
.Range(„A1“).Value = .Range(„A1“).Value
.Range(„M5:M6“).Value = .Range(„M5:M6“).Value
.Shapes(„ComboBox1“).Delete
End With
Sheets(„Personalplanung 2010“).Visible = xlVeryHidden
With ActiveSheet
.Range(„H:L,A:F“).EntireColumn.Hidden = True
.Range(„G27:G30“).Interior.ColorIndex = xlNone
.Shapes(„Werte_übertragen“).Delete
.Protect Password:=„xxx“
End With
CodesRein
Application.Dialogs(xlDialogSaveAs).Show (Range(„M6“) & „.xls“)
End Sub
Sub CodesRein()
Const sCode As String = _
„Private Sub Workbook_BeforeClose(Cancel As Boolean)“ & vbLf & _
" MsgBox (""–> Personalplanung wird ausgeblendet Personalplanung wird ausgeblendet
