Wypracowałem taki sposób, że w pętli sprawdzam kolejne komórki. Dla aktywniej komórki stosuję następujący test:
Kod: Zaznacz cały
cDATE = com.sun.star.util.NumberFormat.DATE
' W pętli stosuję następujące sprawdzenie
If (ThisComponent.NumberFormats.getByKey(ThisComponent.CurrentSelection.NumberFormat).Type and cDATE) <> 0 Then