ich möchte gern prüfen ob eine Tabelle bereits geöffnet ist, die Herausforderung dabei ist, dass die Tabelle im Dateinamen ein Datum enthält und damit ein Teil des Dateinamen sich ändert.
Mein Versuch es wie folgt zu ermöglichen funktioniert nicht, wer kann mir dabei helfen?
Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function
Private Sub CommandButton2_Click()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "Test_*.xlsx" Then
Set Report = Workbooks(wb.Name)
Exit For
End If
Next wb
If IsWorkbookOpen Report Then
UserForm2.Show
Else
MsgBox "Bitte öffne erst die Tabelle 0815/4711!"
End If
End Sub