Microsoft Office Tutorials and References
In Depth Information
2.4.17 Spezielle Zellen erkennen
'Zellen mit Formeln
Range("A1:A8").SpecialCells(xlCellTypeFormulas). _
Interior.Color = vbYellow
MsgBox "Formeln: " & Range("A1:A9"). _
SpecialCells(xlCellTypeFormulas).Count
'Leere Zellen
Range("A1:A8").SpecialCells(xlCellTypeBlanks). _
Interior.Color = vbCyan
MsgBox "Leer: " & Range("A1:A8").SpecialCells _
(xlCellTypeBlanks).Count
'Letzte benutzte Zelle
ActiveSheet.UsedRange.SpecialCells _
(xlCellTypeLastCell).Interior.Color = vbGreen
MsgBox "Letzte Zeile: " & ActiveSheet.UsedRange. _
SpecialCells(xlCellTypeLastCell).Row
MsgBox "Letzte Spalte: " & ActiveSheet.UsedRange. _
SpecialCells(xlCellTypeLastCell).Column
End Sub
Abbildung 2.37 zeigt das Ergebnis.
Abbildung 2.37
Spezielle Zellen
Zur Erläuterung:
Die Methode SpecialCells bekommt einen bestimmten Zelltyp in
Form einer Konstante √ľbergeben.
SpecialCells
Der Typ xlCellTypeFormulas liefert Zellen, die Formeln enthalten.
Hier sind dies die Zellen A3 und A6.
Zelle mit Formel
Search JabSto ::




Custom Search