vielleicht kann mir jemand helfen.
Ich möchte die Bezeichnung von Arbeitsblättern (also z.B. "Tabelle 1")in ein Feld dieses Arbeitsblattes kopieren.
Habt ihr eine Idee, wie das gehen könnte?
Danke im Voraus
Sub Tabellenname()
Range("A1").Value = ActiveSheet.name
End Sub
Function nam()
Application.Volatile
nam = ActiveSheet.Name
End Function