title image


Smiley ich weiß nicht genau ob Du so etwas suchst ?
'Hallo Moppele

'Ich weiß nicht genau, ob es das ist was Du suchst

'aber evtl. hilft es Dir weiter.



'Diesen Code in ein Modul

'Probiere es erstmal in einer leeren Excelmappe

'i ist die Variable und zählt nach jedem NEXT einen Zähler hoch - bist das Ende der 'Tabellenblätter erreicht ist.

'schreibt in Spalte J Zeile von oben nach unten alle Blattnamen ein

'hier kannst Du das "J" erstzen, durch eine Spalte die bei Dir leer ist!



Sub TabellenListeErstellen()

Dim text As String

text = "- Projekt "

Dim i

For i = 1 To Worksheets.Count

Cells(i, "J").Value = text & Cells(3, 5).Value & " " & Worksheets(i).Name

Next

End Sub



!! Bevor Du irgendwas probierst, mach eine KOPIE der Datei als Sicherung !!
Gruß Matthias

geschrieben von

Anhang
Bild 10516 zu Artikel 507278

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: