meine Exceltabellen heißen immer "irgendwas"-jahr-monat-tag. Jetzt möchte den Teil außer "irgendwas" an einer Stelle in der Tabelle automatisch einfügen.
Geht das ?
Viele Dank.
Nico
Private Sub Document_Open()
Dim strName As String
strName = ThisDocument.Name
strName = Right(strName, Len(strName) - InStr(strName, "-"))
strName = Left(strName, InStr(strName, ".") - 1)
TextBox1 = strName
End Sub