Workbooks-Abfragen auf eingeblendete beschränken
08.12.2008 22:52:49
Peter
Mit folgender Funktion ermittle ich den Namen der Datei, der nicht dem aktiven Workbook entspricht, sofern nur zwei Dateien offen sind.
Nun habe ich in der Regel noch die PERSONL oder allenfalls andere Dateien offen. Nun möchte ich den Code so ergänzen, dass die ausgeblendeten Dateien nicht mitgezählt und nie als Objekt zurückgegeben werden.
Dazu zwei Fragen:
1. Wie kann ich Workbooks.Count auf eingeblendete Workbooks beschränken?
2. Wie kann ich For Each WbAm In Workbooks auf eingeblendete Workbooks beschränken?
Danke für eine Antwort.
Gruss, Peter
Public Function FuObFileToRefresh() As Object
'sofern nur zwei Workbooks offen, gibt diese Funktion den Namen der Datei
'bekannt, aus der das Makro NICHT gestartet wird (als Objekt = ohne .xls)
Dim WbAm As Workbook
If Workbooks.Count > 2 Then MsgBox "mehr als 2 xls-Dateien offen - Update kann nicht _
ausgeführt werden"
If Workbooks.Count > 2 Then Exit Function
For Each WbAm In Workbooks
If UCase(WbAm.Name) UCase(ThisWorkbook.Name) Then
Set FuObFileToRefresh = WbAm
Exit For
End If
Next
End Function