title image


Smiley Re: Rechter Mausklick unten auf die Pfeile
Hi,

Du kannst Dir auch folgendes Makro zunutze machen. Es erzeugt in Spalte A eine Liste der Tabellenblätter.



Sub tabnamenliste()

Dim i As Long

ActiveSheet.Columns("A").Clear

For i = 1 To ActiveWorkbook.Sheets.Count

Cells(1, 1).Offset(i - 1, 0) = Sheets(i).Name

Next i

End Sub
Gruß aus Köln! Marc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: