Blattauflistung



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Blattauflistung
von: Herbert Gius
Geschrieben am: 12.07.2002 - 20:05:17

Ich habe folgenden Code eingegeben
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

nach oben   nach unten

Re: Blattauflistung
von: L.Vira
Geschrieben am: 12.07.2002 - 20:39:10

Option Explicit
Sub BlattAuflistung()
Dim zaehl As Byte
For zaehl = 1 To Worksheets.Count
If WorksheetFunction.CountA(Sheets(zaehl).[a9:a27]) = 0 Then
Cells(zaehl, 1) = Worksheets(zaehl).Name
End If
Next
End Sub
nach oben   nach unten

Re: Blattauflistung
von: Herbert
Geschrieben am: 12.07.2002 - 21:12:30

Danke Vira und ein schönes Wochenende
Herbert

nach oben   nach unten

Re: Blattauflistung
von: Herbert
Geschrieben am: 12.07.2002 - 21:12:38

Danke Vira und ein schönes Wochenende
Herbert

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Speichern einer Vorlage"