title image


Smiley Re: Tabellenblätter aus Zellenname benennen
Hallo Jürgen,



folgenden Code in das Modul "Diese Arbeitsmappe":



Private Sub Workbook_SheetActivate(ByVal Sh As Object)

With ActiveSheet

If [A1] "" Then

.Name = .[A1]

Else: MsgBox "Kein Zellinhalt"

End If

End With

End Sub


Gruß aus Köln! Marc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: