Versteckte Zeilen in einem Makro überspringen (Microsoft Excel)
Bei Verwendung eines Arbeitsblatts ist es nicht ungewöhnlich, Zeilen auszublenden, die Daten enthalten, die zum aktuellen Zeitpunkt nicht angezeigt werden sollen. Wenn Sie ein Makro geschrieben haben, das die Daten im Arbeitsblatt verarbeitet, haben Sie sich möglicherweise gefragt, wie Sie die als ausgeblendet markierten Zeilen überspringen und nicht verarbeiten können.
Um dies zu erreichen, überprüfen Sie die Eigenschaft Hidden jeder Zeile.
Wenn die Eigenschaft True ist, wird die Zeile ausgeblendet. Wenn False, ist die Zeile sichtbar.
Angenommen, Sie verfügen über ein Arbeitsblatt, mit dem Sie Clients verfolgen können. Einige dieser Clients gelten als aktiv und andere als inaktiv. Um einen Client als inaktiv zu markieren, blenden Sie die Zeile mit dem Client aus. Irgendwann möchten Sie die aktiven Clients nummerieren und dies mithilfe eines Makros tun. Das folgende Makro erledigt den Trick für Sie:
Sub NumberClients() Dim c As Range Dim j As Integer If Selection.Columns.Count > 1 Then MsgBox "Only select the cells you want numbered" Exit Sub End If j = 0 For Each c In Selection If Not c.Rows.Hidden Then j = j + 1 c.Value = j Else c.Clear End If Next c End Sub
Um das Makro zu verwenden, wählen Sie einfach die Zellen aus, in denen die Nummerierung erfolgen soll. Das Makro prüft zunächst, ob Sie nur Zellen in einer einzelnen Spalte ausgewählt haben. Anschließend wird jede Zelle im ausgewählten Bereich durchlaufen. Wenn die Zeile mit der Zelle nicht ausgeblendet ist, wird der Zähler (j) inkrementiert und in der Zelle gespeichert. Wenn die Zeile mit der Zelle ausgeblendet ist, wird der Inhalt der Zelle gelöscht. Der Schlüssel zu diesem Makro ist die If … End If-Struktur, die den Wert des Attributs Hidden testet.
_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 (12552) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: