Mit untenstehendem Code überprüfe ich , ob die Datei abc.xls offen ist, wenn nicht wird sie geöffnet und und der Excel.Workbook - Variable wbEA_Aktuell zugewiesen.
Wie kann ich die die gleiche Zuweisung machen, wenn die Datei abc.xls bereits geöffnet und möglicherweise ausgeblendet ist - ohne diese einzublenden, resp. zu aktivieren?
Gruss, Peter
Sub DatenEintragen()
If IsWorkbookOpen("abc.xls") = 0 Then
Workbooks.Open strFullNameAEA1
Set wbEA_Aktuell = ActiveWorkbook
ThisWorkbook.Activate
bolOpen1 = 0
Else
End If
End Sub
Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function