Exelfile soll Überschrift verlangen wie ?

Computer: Software & Programmierung Office Software
1

Ich benötige ein Makro, welches bei erstmaligen öffnen aus einer Exelvorlage einen Dateinamen verlangt, welcher in die Kopfzeile und ein das Feld A1 zürckgeschrieben wird.
Ist der Dateiname dann mal festgelegt, sollte freilich keine
erneute Eingabe beim Start dieses Files gegeben sein.

Kann mir jemand so ein Makro „schnitzen“ ?

Gruß und Dank Christian

2

Versuchs mal hiermit (habe den linken Bereich der Kopfzeile genommen):

Sub auto_open()
Dim name As String

If Cells(1, 1) = „“ Then
name = InputBox(„Bitte den Namen eingeben:“)
Cells(1, 1) = name
ActiveSheet.PageSetup.LeftHeader = name
End If
End Sub

Der Makroname „auto_open“ ist wichtig. Nur dann wird das Makro bei Start ausgeführt.

Gruß

Dylan