Application.Rows-Eigenschaft (Excel)

  • Artikel

Gibt ein Range-Objekt zurück, das alle Zeilen im aktiven Arbeitsblatt darstellt. Wenn das aktive Dokument kein Arbeitsblatt darstellt, verursacht die Rows -Eigenschaft einen Fehler. Schreibgeschütztes Range-Objekt.

Syntax

Ausdruck. Zeilen

expression Eine Variable, die ein Application-Objekt darstellt.

Bemerkungen

Die Verwendung dieser Eigenschaft ohne einen Objektbezeichner hat die gleiche Funktion wie ActiveSheet.Rows.

Wenn diese Eigenschaft auf ein Range-Objekt angewendet wird, bei dem es sich um eine Mehrfachauswahl handelt, gibt diese Eigenschaft nur Zeilen aus dem ersten Bereich des Bereichs zurück. Wenn das Range-Objekt beispielsweise über zwei Bereiche verfügt: A1:B2 und C3:D4, gibt Selection.Rows.Count 2 und nicht 4 zurück.

Wenn Sie diese Eigenschaft auf einen Bereich anwenden möchten, der möglicherweise eine Mehrfachmarkierung darstellt, prüfen Sie mit Areas.Count, ob dies der Fall ist. Wenn der Bereich eine Mehrfachmarkierung darstellt, müssen Sie die Eigenschaft in einer Schleife auf jeden Bereich einzeln anwenden (siehe Beispiel 3).

Beispiel

In diesem Beispiel wird die dritte Zeile auf Sheet1 gelöscht.

Worksheets("Sheet1").Rows(3).Delete

In diesem Beispiel werden Zeilen im aktuellen Bereich in Arbeitsblatt 1 gelöscht, deren erste Zelle jeweils den gleichen Wert hat, wie die erste Zelle der vorherigen Zeile.

For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows 
 this = rw.Cells(1, 1).Value 
 If this = last Then rw.Delete 
 last = this 
Next

In diesem Beispiel wird die Anzahl der Zeilen in der Markierung in Tabelle1 angezeigt. Liegt eine Mehrfachmarkierung vor, werden alle Teile der Mehrfachmarkierung in einer Schleife bearbeitet.

Worksheets("Sheet1").Activate 
areaCount = Selection.Areas.Count 
If areaCount <= 1 Then 
 MsgBox "The selection contains " & _ 
 Selection.Rows.Count & " rows." 
Else 
 i = 1 
 For Each a In Selection.Areas 
 MsgBox "Area " & i & " of the selection contains " & _ 
 a.Rows.Count & " rows." 
 i = i + 1 
 Next a 
End If

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.