Wie druckt man Zeilen wiederholt am unteren Rand jeder gedruckten Seite in Excel?

Standardmäßig bietet Excel eine Funktion an, mit der Benutzer Zeilen oben wiederholt drucken können. In einigen Fällen bevorzugen Sie jedoch möglicherweise, Zeilen am unteren Rand der Seiten statt oben wiederholt zu drucken. Dieser Artikel zeigt Ihnen einige Tricks.

Zeilen mit VBA-Code am unteren Rand wiederholen

Zeilen mit VBA-Code am unteren Rand wiederholen

Sie können den folgenden VBA-Code ausführen, um die angegebene Zeile in die Fußzeile jeder Seite einzufügen. Anschließend können Sie diese Zeile am unteren Rand jeder gedruckten Seite in Excel wiederholt drucken.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Application zu öffnen.

2. Klicken Sie im Dialogfeldfenster Microsoft Visual Basic for Application auf Einfügen > Modul. Kopieren und fügen Sie dann den folgenden VBA-Code in das Modulfenster ein.

VBA-Code: Angegebene Zeile in die Fußzeilen jeder gedruckten Seite einfügen

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Dann erscheint ein Dialogfeld von Kutools für Excel, bitte wählen Sie die Zeile aus, die Sie am unteren Rand jeder gedruckten Seite wiederholt drucken möchten, und klicken Sie dann auf die Schaltfläche OK.

Jetzt werden die Inhalte der angegebenen Zeile zur Fußzeile jeder gedruckten Seite im aktuellen Arbeitsblatt hinzugefügt. Sie können mit dem Drucken des Arbeitsblatts beginnen.

Hinweis: Wenn Sie den ausgewählten Inhalt am unteren Rand jeder Seite innerhalb der gesamten Arbeitsmappe wiederholt drucken möchten, können Sie die Fußzeilenfunktion anwenden, um die Inhalte in die Fußzeile aller Blätter einzufügen.