Madhabi möchte vier Kopien eines Arbeitsblatts drucken, muss jedoch den Wert der Zelle A7 für jede Kopie ändern. Die vier Werte sind „Original“

„Duplizieren“, „Datei“ und „Treiber“. Da alle anderen Daten gleich sind, fragt sich Madhabi, wie er den Text von Zelle A7 beim Drucken ändern kann.

Ein möglicher Ansatz besteht darin, vier verschiedene Arbeitsblätter zu erstellen, die im Wesentlichen dieselben Informationen enthalten. Die Arbeitsblätter 2 bis 4 können alle Referenzzellen in Arbeitsblatt 1 sein, mit Ausnahme der Zelle A7, die in jedem Arbeitsblatt auf einen anderen Wert eingestellt werden kann („Original“,

„Duplizieren“ usw.).

Ein besserer Ansatz wäre jedoch, ein schnelles Makro zu erstellen, das Sie für Ihren Druck verwenden können. Das Makro kann den Wert von Zelle A7 unmittelbar vor dem Drucken des Arbeitsblatts jedes Mal ändern. Hier ist ein einfaches Beispiel:

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

Das Makro platziert die vier für Zelle A7 bestimmten Werte in einem Array. Das Makro durchläuft dann jedes der vier Array-Elemente, fügt den Wert in Zelle A7 ein und druckt dann das Arbeitsblatt. Der Druckvorgang erfolgt auf dem Standarddrucker des Systems.

Das Makro kann problemlos einer Tastenkombination oder der Symbolleiste für den Schnellzugriff zugewiesen werden (wie in anderen ExcelTips beschrieben), sodass Sie alle vier Kopien schnell drucken können.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9962) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.