AW: Betrag aus einem anderen Betrag subtrahieren
08.08.2016 12:24:51
baschti007
Ich hätte so etwas für dich
Gruß Basti
Sub Zahlsuchen()
Dim deintext1 As String
Dim deintext2 As String
Dim deintextrechnung As String
Dim Rechnung As Double
deintext1 = "MeinText100"
deintext2 = "MeinText50"
Rechnung = ExtractNumber(deintext1) - ExtractNumber(deintext2)
deintextrechnung = NoNumbers(deintext1) & Rechnung
MsgBox deintextrechnung
End Sub
Private Function ExtractNumber(str As String) As Long
Dim i As Byte, ii As Byte
For i = 1 To Len(str)
If IsNumeric(Mid(str, i, 1)) Then Exit For
Next i
For ii = i To Len(str)
If Not IsNumeric(Mid(str, ii, 1)) Then Exit For
Next ii
ExtractNumber = Mid(str, i, Len(str) - (ii - i))
End Function
Public Function NoNumbers(ByVal sIn As String, _
Optional ByVal trimming As Boolean) As String
Dim i As Long
Dim s As String * 1
Dim t As String
For i = 1 To Len(sIn)
s = Mid(sIn, i, 1)
If Asc(s) 57 Then
t = t & s
End If
Next i
'optional
If trimming = True Then
NoNumbers = Trim(t)
Else
NoNumbers = t
End If
End Function