ich habe einen Beitrag aus dem Archiv gefunden, der mein Prob lösen sollte, leider bekomme ich eine Fehlermeldung und kann da nichts mit anfangen.
Hier der Code:
Sub prüfenOffen()
Dim datei As Workbook
datei = "Tagegeld.xls"
If Mappeoffen(datei) = True Then 'hier bleibt das Makro stehen und unterlegt das Wort Datei
Windows(datei).Activate
Else
ChDrive "U:\"
ChDir "U:\exceldat\hartmann\Dispo_2003"
Workbooks.Open Filename:=datei
End If
End Sub
Function Mappeoffen(Mappename As String) As Boolean
Dim stName As String
On Error GoTo nichtoffen
stName = Workbooks(Mappename).Name
Mappeoffen = True
Exit Function
nichtoffen:
Mappeoffen = False
End Function
Fehlermeldung:
Argumenttyp ByRef unverträglich
Vielen Dank im voraus, kann jemand helfen
und bitte erklären.
REgina