title image


Smiley Re: Worksheets automatisch benennen
Hallo Christian,folgende Prozedur sollte Dein "Problem" lösen - inklusive Sicherheitsabfrage, falls die Zelle A1 leer ist ...Sub Tabellenname() For i = 1 To Sheets.Count If Sheets(i).Range("a1").Value "" Then Sheets(i).Name = Sheets(i).Range("A1").Value End If Next iEnd SubGruß snyro

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: