Anpassen der Zeilenhöhe für eine Reihe von Arbeitsblättern (Microsoft Excel)
Ron weiß, wie man die Höhe einer Gruppe benachbarter Reihen anpasst. Was er nicht weiß (und muss), ist, wie er die Zeilenhöhen über mehrere Arbeitsblätter in derselben Arbeitsmappe hinweg gleich macht.
Der Trick bei diesem Vorgang besteht darin, einfach sicherzustellen, dass Sie alle Arbeitsblätter auswählen, die Sie beeinflussen möchten. Schauen Sie sich die Arbeitsblatt-Registerkarten am unteren Rand des Programmfensters an. Sie sollten eines für jedes Arbeitsblatt in Ihrer Arbeitsmappe sehen. Wenn Sie die Zeilen in einer Reihe aufeinanderfolgender Arbeitsblätter beeinflussen möchten, klicken Sie auf die Registerkarte für das erste Arbeitsblatt in der Reihe und halten Sie die Umschalttaste gedrückt, während Sie auf die Registerkarte für das letzte klicken. Wenn die Arbeitsblätter, auf die Sie sich auswirken möchten, nicht aufeinander folgen, klicken Sie auf die Registerkarte für eines der Arbeitsblätter und halten Sie die Strg-Taste gedrückt, während Sie auf die Registerkarten für die anderen klicken.
Wählen Sie mit allen Arbeitsblättern, die Sie beeinflussen möchten, die Zeilen im angezeigten Arbeitsblatt aus. Wenn Sie die Zeilenhöhe für diese Zeilen anpassen, passt Excel die Zeilenhöhe für dieselben Zeilen in den anderen ausgewählten Arbeitsblättern automatisch an.
Wenn Sie fertig sind, klicken Sie auf eine einzelne Arbeitsblattregisterkarte. Dadurch wird der ausgewählte Satz von Arbeitsblättern abgebrochen, und Sie können nach Belieben weiterarbeiten.
(Wenn Sie den Auswahlsatz nicht abbrechen, werden alle auf dem Bildschirm vorgenommenen Änderungen weiterhin in allen ausgewählten Arbeitsblättern vorgenommen.)
Wenn Sie die Zeilenhöhen erheblich anpassen müssen und Ihre Formatierung immer gleich ist, können Sie von einem Makro profitieren, das sich auf die Blätter auswirkt. Das folgende Makro durchläuft jedes ausgewählte Arbeitsblatt und passt die Höhe der Zeilen 1 bis 5 an. (Sie sollten natürlich die Zeilenhöhe im Makro und die Zeilennummern ändern, um das widerzuspiegeln, was Sie wirklich benötigen.)
Sub row_hts() For Each wksht In Worksheets Set sht = wksht sht.Rows("1:5").RowHeight = 25 Next End Sub
Sie können das Makro einfach einer Tastenkombination oder einer Menüoption zuweisen, damit es schnell ausgeführt werden kann.
_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.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (12510) gilt für Microsoft Excel 97, 2000, 2002 und 2003.
Eine Version dieses Tippes für die Multifunktionsleistenoberfläche von Excel (Excel 2007 und höher) finden Sie hier: