ich hoffe es kann mir jemand helfen.
Zahlen mit Text, in Spalte addieren.
Hier eine Beispieldatei:
https://www.herber.de/bbs/user/47941.xls
Schon mal besten Dank für jede Hilfe.
Marion
Function MeinZahl(Bereich As Range) As Double
Dim Zellen As Range
Dim Wert1 As Double
Dim a As Long
For Each Zellen In Bereich
For a = 1 To Len(Zellen)
If IsNumeric(Mid(Zellen, a, 1)) Then
Wert1 = Wert1 + CDbl(Mid(Zellen, a))
Exit For
End If
Next a
Next Zellen
MeinZahl = Wert1
End Function
Gruß Heiko
PS: Rückmeldung wäre nett !