xlCellTypeComments mit Select? vba-Hilfe gesucht
26.08.2004 16:54:35
Reinhard
angenommen im Bereich A1:A10 hat eine Zelle einen Kommentar.
Wenn ich die Funktion "OhneSelect" in eine Zelle schreibe erhalte ich das falsche Ergebnis 10. Baue ich die Funktion "MitSelect" ein, erhalte ich korrekt 1.
Scheint also so zu sein dass man hier das "Select" benötigt, warum?
Weiterhin irritiert mich, dass wenn ich die in Excel direkt fehlerhafte Funktion "OhneSelect" per Sub aufrufe (siehe die Sub "Ohne") erhalte ich auch korrekt 1.
Auch da frag ich mich, warum das denn?
Danke für Informationen
Gruß
Reinhard
Function OhneSelect()
'Ergebnis ist 10
OhneSelect = Range("A1:A10").SpecialCells(xlCellTypeComments).Cells.Count
End Function
Function MitSelect()
'Ergebnis ist 1
Range("A1:A10").SpecialCells(xlCellTypeComments).Select
MitSelect = Selection.Cells.Count
End Function
Sub Ohne()
'Ergebnis ist 1
MsgBox OhneSelect()
End Sub