Office: VBA Kopfzeile Schriftgröße - Problem

Einen wunderschönen guten Morgen!

Ich hab ein Problem mit folgendem Code:

Code:

Public Sub Format_custo()
Dim x As Integer
Dim kopf As String
Dim actfile As Workbook
Set actfile = Application.ActiveWorkbook
kopf = InputBox("Bitte Titel für Arbeitsmappe eingeben", "Arbeitsmappe formatieren")

For x = 1 To actfile.Sheets.Count


With ActiveSheet.PageSetup
        .LeftHeader = "&""Arial,Kursiv""&8ECO/Lackner"
        .CenterHeader = "&""Arial,Fett""&14" & kopf & Chr(13) & "&""Arial,Standard""&10" & "&12&A"
        .PrintGridlines = False
    End With
Next x

End Sub

Wenn ich bei diesem Code z.B. "2. Schaden am Gerät" in die Input Box eingebe, wird die Schriftgröße auf 142 gesetzt und der Text mit ".Schaden am Gerät" wiedergegeben.

Würde mich über Hilfe wie immer sehr freuen!

Lg
Herbert

 

VBA: Schriftgröße in Kopfzeile

Hallo,

das liegt daran, daß im Code zwischen der Formatierung der Schriftgröße und der Variablen "kopf" kein Leerzeichen mehr steht und im Falle einer beginnenden Zahl bei der Eingabe (wie bei 2. Schaden die "2"), es dann zu einer Fehlinterpretation kommt (da dann auf die 14 gleich die 2 folgt, was dann aneinandergereiht die 142 "ergibt").

Lösung: Nach der Schriftgröße einfach ein Leerzeichen einfügen (wie unten dargestellt).

Code:

Public Sub Format_custo()
Dim x As Integer
Dim kopf As String
Dim actfile As Workbook
Set actfile = Application.ActiveWorkbook
kopf = InputBox("Bitte Titel für Arbeitsmappe eingeben", "Arbeitsmappe formatieren")

For x = 1 To actfile.Sheets.Count


With ActiveSheet.PageSetup
        .LeftHeader = "&""Arial,Kursiv""&8ECO/Lackner"
        .CenterHeader = "&""Arial,Fett""&14" & " " & kopf & Chr(13) & "&""Arial,Standard""&10" & "&12&A"
        .PrintGridlines = False
    End With
Next x

End Sub

Grüße
M.A.

 

Die Firma dankt :-D