Index ausserhalb des gültigen Bereichs
25.02.2006 16:37:51
Stephen C.
Ich bekomme plötzlich eine Fehlermeldung in meinem Makro welches vorher prima funktioniert hat! Suche schon seit Tagen den Fehler, bin Verzweifelt!!!
Kann mir bitte jemand helfen?!?
DANKE
Private Function sheet_exist(ShName As String) As Boolean
Dim sh As Object
sheet_exist = False
For Each sh In ThisWorkbook.Sheets
If sh.Name = ShName Then
sheet_exist = True
Exit For
End If
Next
End Function
Private Sub Speichern()
Application.ScreenUpdating = False
Dim sh As Object
Dim lZ As Long
Dim rngFind As Range Fehlermeldung
Set sh = Sheets(Format(Cells(11, 11), "MM.YYYY")) <--------------
If sheet_exist(Format(Cells(11, 11), "MM.YYYY")) = False Then
Sheets.Add After:=Sheets(Worksheets.Count), Type:=xlWorksheet
Sheets(Worksheets.Count).Name = Format(Cells(11, 11), "MM.YYYY")
End If