title image


Smiley Re: WorksheetsCount???????
Hallo Pitje,so wird's was:Sub LoopWorksheets() Dim intI As Integer Dim intCount As Integer intCount = ActiveWorkbook.Sheets.Count 'Zaehle alle Blaetter 'Alle Blaetter abfragen For intI = 1 To intCount Step 1 If TypeName(Sheets(intI)) = "Worksheet" Then 'Nur "normale" Tabellenblaetter MsgBox Sheets(intI).Name 'Dein Code ..... End If Next intIEnd SubViele GruesseNorbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: