Sheets

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2000
  • Sheets von Roland vom 09.05.2002 - 01:10:38
nach unten

Betrifft: Sheets
von: Roland
Geschrieben am: 09.05.2002 - 01:10:38

Hallo

wie kann ich per Makro die Anzahl und auch die Namen der Sheets in einer Arbeitsmappe herausbekommen.

Im voraus Danke
Roland


nach oben   nach unten

Re: Sheets
von: MRR
Geschrieben am: 09.05.2002 - 01:42:02


Sub Ermittle()
Dim intAnzahl As Integer
Dim strNamen As String
Dim As Integer
intAnzahl = Sheets.Count
For i = 1 To intAnzahl
  strNamen = strNamen & Sheets(i).Name & vbCr
Next
MsgBox "Die Mappe hat " & intAnzahl & " Blätter. Folgende Namen sind vergeben:" & vbCr & strNamen
End Sub

So sollte es gehen - ungetestet.
HTH, Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Dateilisten in eine Tabell schreiben"