[Excel] Target.Count

[Hajo_Zi]

Hallo,

sind ab 2007 alle Zellen markiert, läuft Target.count auf einen Fehler.

Hier eine Lösung für alle Versionen:

Code:

Public Sub Beispiel()
    Dim dblCount As Double
    dblCount = CallByName(Selection, IIf(Val( _
        Application.Version) > 11, "CountLarge", "Count"), VbGet)
    MsgBox dblCount
End Sub
‘ von Nepumuk

Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" align="middle" height="40" alt="Homepage">