Laufzeitfehler
08.06.2009 10:12:10
Lars
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
" & vbLf & vbLf & _
"
Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abrechen As Boolean)" & _
vbLf & _
" MsgBox (""--> Personalplanung wird ausgeblendet
"
With ActiveWorkbook
.VBProject.VBComponents(.CodeName).CodeModule.AddFromString sCode
End With
End Sub
Vielen Dank für eure Hilfe
Lars
PS: code sieht hier etwas merkwürdig formatiert aus