ByRef Fehlermeldung unverträglichkeit
06.04.2018 18:06:29
Markus
kann mir bitte jemand sagen was hier falsch läuft:
Function MappeOffen(s As String) As Boolean
On Error GoTo fehler
MappeOffen = True
Windows(s).Activate
Exit Function
fehler:
MappeOffen = False
End Function
Dim B As Boolean
Dim wbb As Workbook
Set wbb = Workbooks(2)
B = MappeOffen(wbb)
'If Workbooks(2).IsClose Then
If B = True Then
Workbooks(2).Activate
Else
On Error Resume Next
Workbooks(2).Activate 'Fehlermeldung hier abfangen wenn erneut
'darauf zugegriffen und Workbook ist schon geschlossen
On Error GoTo 0
Exit Sub
End If
Bei der Zeile:
B = MappeOffen(wbb) kommt folgender Fehler
Argumenttyp ByRef unverträglich. Warum wie muüsste das richtig heißen?
Beste Grüße
Markus