Clever-Excel-Forum

Normale Version: [Excel] Target.Count
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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">