workbooks zählen nur sichtbare
05.11.2008 07:34:00
chris
ich habe eine frage.Würde mich sehr über Hilfe freuen.
ich will ein Makro erstellen das wenn nur eine ExcelDatei geöffnet ist Application.quit gestartet wird sobald aber schon andere Excelmappen gestartet sind nur Thisworkbook.close
Wie kann ich auslesen ob ein Workbook visible ist oder nicht.Ich finde es nur heraus mit Sheets.
Hier mein Ansatz.
Private Sub Workbook_Open()
Dim wb As Workbook
For Each wb In Application.Workbooks
MsgBox Application.Workbooks.Count'Sollte nur die Anzahl der sichtbaren Exceldateien(workbooks) _
ausgeben
MsgBox wb.Name' es sollten nur sichtbare ausgegeben werden
Next
End Sub
Vielen dank gruß Chris
Anzeige