Blattauflistung
12.07.2002 20:05:17
Herbert Gius
Private Sub BlattAuflistung()
Dim zaehl As BYTE
For Zaehl = 1 To Worksheets.Count
Cells(zaehl, 1) = Worksheets(zaehl).Name
Next
End sub
nun möchte ich aber nur jene sheets auflisten bei denen die Zellen A9:A27 leer sind, was muß ich tun?
Danke für die Hilfe
Herbert
Anzeige