title image


Smiley Re: Tabellenblattname in Zelle übernehmen - oder umgekehrt?
Option Explicit



Private Sub Worksheet_Activate()

[a1] = ActiveSheet.Name

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Name = [a1]

End Sub



TG



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: