kann mir bitte einer auf Sprünge helfen.
Ich möchte überprüfen ob eine Arbeitsmappe geöffnet, ist wenn ja dann soll ein Tabellenblatt eingefügt werden, wenn nein soll eine neue Arbeitsmappe geöffnet werden.
Danke für eure Hilfe
Gruß Metin
Function WBOpen(n As String) As Boolean
Dim wb As Workbook
For Each wb In Application.Workbooks
If UCase(wb.Name) = UCase(n) Then
WBOpen = True
Exit Function
End If
Next wb
End Function
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen