Public Function
23.09.2005 08:21:00
Bernd
habe nachfolgende funktion hier gefunden:
Public
Function testen_ob_Workbook_offen(name As String) As Boolean
Dim i As Integer
For i = 1 To Workbooks.Count
If Workbooks.Item(i).name = name Then testen_ob_Workbook_offen = True
If Workbooks.Item(i).name = name Then Exit Function
Next i
End Function
meine frage, wie und wo baue ich diese funktion ein.
sämtliche versuche sind bisher gescheitert, oder habe ich etwas vergessen?
gruss bernd
Anzeige