Hallo miteinander!
Mit folgendem Code erreiche ich, dass durch Eingabe einer Zahl, das Ganze in die Kopfzeile übernommen wird.
Steht nun aber jetzt bereits was in der Kopfzeile, wird das Ganze überschrieben und ich kann nichts mehr lesen (der Text setzt sich also aufeinander). Wie muss ich meine Code optimieren, so dass er mir zuvor die Kopfzeile immer leert?
Sub Eingabe()
Dim Eingabe As String
Eingabe = InputBox("Bitte geben Sie die Nummer ein!")
If Eingabe = "" Then Exit Sub
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = "&Z&""Calibri,Fett""&16Kosten " & Eingabe
End With
Application.PrintCommunication = True
End Sub
Private Sub CommandButton1_Click()
Call Eingabe
End Sub
Danke und Grüße
Steffi
|