Addition von formatierten Zahlen in einem Feld

[MarcoMFe]

Hallo zusammen,

ich habe folgende Herausforderung:
Ich habe in einem Tabellenfeld mehrere Zahlen stehen (z.B. 0/1/4/5)
Gibt es die Möglichkeit nur die unterstrichenen und markierten Zahlen zusammen zu zählen ?

Danke + Gruß
Marco

[Gastlich]

Hallo,

sind die Zahlen tatsächlich mit einem Unterstrich versehenen?
Welche Logik steht dahinter?

[snb]

Natürlich.

[schauan]

Hallöchen,

hier mal was als Basis.

Code:

Sub WasIstUnterstrichen()
Dim iCnt%
With ActiveCell
For iCnt = 1 To .Characters.Count
  If .Characters(Start:=iCnt, Length:=1).Font.Underline = xlUnderlineStyleSingle Then
    MsgBox .Characters(Start:=iCnt, Length:=1).Text
  End If
Next
End With
End Sub