Anzahl der markierten Zeilen ermitteln

Wenn Sie wissen möchten, wieviele Zeilen gerade markiert sind, dann hilft Ihnen dieses Makro weier.  
Die Anzahl der Zeilen wird in einer Message-Box ausgegeben.

Es muss nicht die gesamte Zeile markiert werden, es reichen auch einzelne Zellen, um die Anzahl
zu ermitteln.

Public Sub anzahl_markierter_zeilen()
On Error Resume Next
anzahl = Selection.Rows.Count
MsgBox "Es wurden " & anzahl & " Zeilen markiert!"
End Sub