dieser Wert steht in der Zeile B1:
car2 2000 to / 20 nmm 60 test 30
Ziel:
Mein Vorhaben ist aus einer Zelle nur die Zahlen 2000, 20, 60 und 30 zu summieren. Aber leider geht mein Code nicht ganz.
Kann mir jemand HELFEN?
Das steht im VBA als code:
Sub summieren() Dim Sp$, TMP$, wort$, zahlen%(), zelle$, buf%, wert% Dim i%, c%, a%, anz% zelle = Range("B1") Sp = Chr$(32) i = 1: c = 2 TMP = zelle Range("B1").Select Do While i <> 0 i = InStr(TMP, Sp) If i = 0 Then If IsNumeric(TMP) Then ReDim Preserve zahlen(a) zahlen(a) = Val(TMP) End If For anz = 0 To a wert = buf + zahlen(anz) Next anz End If wort = Left(TMP, i - 1) If IsNumeric(wort) Then ReDim Preserve zahlen(a) zahlen(a) = Val(wort) a = a + 1 End If TMP = Right(TMP, Len(TMP) - i) c = c + 1 Loop Range("B2").Value = wert End Sub