Getformat i Excel 2010

denne VBA function kan måske hjælpe dig

Function TestFormat(rCelle As Range, sFindString As String) As Boolean

    If InStr(1, rCelle.Text, sFindString) > 0 Then TestFormat = True

End Function

Bruges således
=TestFormat(A5; "Day")

Hvis den finder Day returner den SAND ellers FALSK

Hej Bak

Mange tak

Du må meget gerne sende et svar, så accepterer jeg :-)

Niels

Ok, godt du kunne bruge det :-)