Private Function BezieheUebersicht( _
ByRef Worksheet As Excel.Worksheet, _
ByRef Opened As Boolean _
) As Boolean
'prüfen ob Übersicht bereits geöffnet ist
'... wenn ja, dann setze Worksheet, Opened = False und BezieheUebersicht = True
'... wenn nein, versuche sie zu öffne und ...
' ... bei Erfolg, setze Worksheet, Opened = True und BezieheUebersicht = True
' ... bei Misserfolg kann nichts weiter getan werden (BezieheUebersicht = False)
End Function
Diesen Teil musst du noch mit Leben füllen. War nur ein Platzhalter für dich, mit einer verbalen Beschreibung als Komentar, was zu tun ist.
Ohne Inhalt liefert diese Funktion immer False zurück und das heißt außerhalb dann, die Übersicht konnte nicht gefunden/geöffnet werden (s. letzte Kommentarzeile).
|