Manchmal erhalten Sie ein Arbeitsblatt von einer anderen Person, und Sie benötigen etwas Platz, um an den bereitgestellten Informationen zu arbeiten. Beispielsweise kann es hilfreich sein, zwischen jeder der ursprünglichen Zeilen in einer Datentabelle einige leere Zeilen hinzuzufügen. Dies ist zwar über das Menü Einfügen recht einfach möglich, kann jedoch schnell mühsam werden – insbesondere, wenn Sie eine große Tabelle haben, die Sie verteilen möchten.

Das folgende Makro hilft Ihnen in dieser Situation enorm. Sie müssen lediglich die erste Zeile in der Datentabelle auswählen. Wenn Sie das Makro ausführen, werden Sie gefragt, wie viele leere Zeilen Sie zwischen die ursprünglichen Zeilen einfügen möchten. Wenn Sie eine Zahl angeben, durchläuft das Makro die Tabelle und beginnt, leere Zeilen einzufügen. Das Makro stoppt, wenn die erste leere Zelle nach der ursprünglichen Tabelle erkannt wird.

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer

iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

_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 (2344) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Eine Tabelle ausbreiten.