Hab ein Problem mit folgender Funktion
Public
Function CheckIfExists(excelApp As Excel.Application, bookName As String) As Boolean
Dim Buch As Excel.Workbook
Dim Buchvorhanden As Boolean
For Each Buch In excelApp.Workbooks
If Buch.Name = bookName Then
Buchvorhanden = True
Exit For
End If
Next
CheckIfExists = Buchvorhanden
End Function
Starte diese in Projekt und übergebe ein Excel.Application-Objekt.
Bei Aufruf der Funktion bekomme ich allerdings immder folgende Fehlermeldung
"Objektvariable oder With-Block Variable nicht festgelegt"
Wo liegt mein Fehler, bzw. was muss ich anders machen um aus Projekt heraus zu prüfen, ob ein Excel Worksheet geöffnet ist?
Vielen Dank