Office: Problem mit meinem Makro

Hallo zusammen,

ich habe eine Tabelle in der manche Werte in Prozent angegeben sind und andere nicht. ich brauche allerdings nur die ganze Zahl. D.h. wenn in einer Zeile 20,2% steht, dann soll mir das Makro lediglich den Wert 20,2 heraus ziehen und nicht 0,202.
Habe es mit dieser Fomel versucht, was aber nicht funktioniert.
Hat jemand eine Idee woran es liegen kann?

If Right(Worksheets("TEST").Cells(i1, 15), 1) = "%" Then
Worksheets("TEST").Cells(i1, 15) = Worksheets("TEST").Cells(i1, 15) * 100
End If

 

Hallo!

Das Prozent-Zeichen wird zwar angezeigt, aber intern steht für Excel dennoch der reine Zahlenwert in der Zelle.
Suche daher mal nicht nach dem .Value sondern nach dem .Text der Zelle:

If Right(Worksheets("TEST").Cells(i1, 15).Text, 1) = "%" Then
Worksheets("TEST").Cells(i1, 15) = Worksheets("TEST").Cells(i1, 15) * 100
End If