Excel VBA Kopfzeile/Fußzeile - Hinzufügen einer "Enter"

Question

Ich habe ein Excel-Makro, das Zelleninformationen aus einem Blatt in die Kopf- und Fußzeilen platziert. Ich bin so weit gegangen, Informationen aus zwei getrennten Zellen zu entnehmen und beide in die gleiche Fußzeile zu setzen, aber ich möchte, dass sie in der Fußzeile auf verschiedenen Zeilen stehen.

Ich habe versucht, Sendkeys zu verwenden, aber das scheint nur im aktiven Blatt zu funktionieren, während ich dabei Zellen aus dem aktiven Blatt ziehe und sie in die Kopf-/Fußzeilen anderer Blätter ziehe.

Gibt es eine Möglichkeit, einen "Enter" -Wert in die Kopf-/Fußzeile zu bekommen? Mein Code unten, ich möchte die Werte von B6 und B7 auf getrennten Zeilen haben.

Sub VenueAndCompany() 
'Puts in the venue and company name 
Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
    ws.PageSetup.CenterFooter = "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B6") & ", " & "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B7").Value 
    Next ws 

End Sub

Answer 1

Sie chr(10) verwenden können, um einen Zeilenumbruch

ws.PageSetup.CenterFooter = "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B6") & ", " & "&""Futura-Normal,Bold""&14" & chr(10) & ActiveSheet.Range("B7").Value