Tabellenblätter listen
29.11.2007 17:33:07
Rolf
folgendes Makro listet alle eingeblendeten Tabellenblätter der Arbeitsmappe "Test" in Tabelle1 ab Zelle "A1" auf.
Ich möchte das Makro in der Arbeitsmappe "Prüfen" haben. Von dort soll es auf die Arbeitsmappe "Test" zugreifen und alle eingeblendeten Tabellenblätter ermitteln und in die Arbeitsmappe "Prüfen" Tabelle3 ab Zelle A1 listen (Makro möglichst ohne Select).
Hat jemand eine Idee?
Sub Tabellenblättter_ermitteln()
Dim Blatt As Worksheet
Dim intz As Integer
intz = 1
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Visible = True Then
Tabelle1.Cells(intz, 1).Value = Blatt.Name
intz = intz + 1
End If
Next Blatt
End Sub
Vielen Dank im voraus
Gruß Rolf
Anzeige