Thema Datum  Von Nutzer Rating
Antwort
Rot Durch Eingabe Inputbox Kopfzeile beschriften
 05.10.2012 10:39:25 Steffi
NotSolved
05.10.2012 17:11:54 Dekor
*****
Solved

Ansicht des Beitrags:
Von:
Steffi		 Datum:
05.10.2012 10:39:25		 Views:
1479		 Rating:
     
Antwort:
  Ja
Thema:
Durch Eingabe Inputbox Kopfzeile beschriften

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Durch Eingabe Inputbox Kopfzeile beschriften
 05.10.2012 10:39:25 Steffi
NotSolved
05.10.2012 17:11:54 Dekor
*****
Solved