Hallo VBA-Forum,
ich hab das Problem das bei folgenden Code einmal mir der Fehler angezeigt wird:
Anwendungs- oder objektdefinierter Fehler
wenn ich die Funktion aus einer anderen Prozedur aufrufe.
Aber wenn ich die Funktion per einzel-Schritt bzw direkt ausführe
die entsprechende Codezeile funktioniert.
Der Abbruch erfolgt in der Zeile: Sheet.Cells(100, 100).Value = False
Public Function checkSheet() As Boolean
Dim sheetAvailable As Boolean
Dim Sheet As Worksheet
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name = "RODB" Then
If Sheet.Cells(100, 100).Value = True Then
checkSheet = True
Else
Sheet.Cells(100, 100).Value = False
checkSheet = False
End If
sheetAvailable = True
Exit For
Else
sheetAvailable = False
End If
Next
Debug.Print ActiveWorkbook.Name
If sheetAvailable = False Then
Set WS = Sheets.Add
'ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveWorkbook.Sheets(Worksheets.Count).Visible = False
ActiveWorkbook.Sheets(Worksheets.Count).Name = "RODB"
checkSheet = False
End If
End Function
|