Anzahl der markierten Zeilen feststellen

Anzahl der markierten Zeilen feststellen

So ermitteln Sie die Zeilenanzahl

In vielen Makros werden markierte Bereiche verarbeitet. Der Anwender markiert einen Zellbereich in der Tabelle und dann wird ein Makro gestartet. Eine häufige Aufgabe besteht dann darin, die Anzahl der markierten Zeilen zu ermitteln. Das folgende Makro erledigt diese Aufgabe:

 

Sub AnzahlZeilen()
Dim a As String
a = MsgBox("Die Markierung umfasst " & _
Selection.Rows.Count & " Zeilen.", _
vbOKOnly, "Zeilenanzahl")
End Sub

Über die Eigenschaft Selection.Rows.Count stellt das Makro die Anzahl der Zeilen in der Markierung fest. Zu Demonstrationszwecken wird diese Anzahl auf dem Bildschirm dargestellt:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html