Subtraktion von T exten , spez. Luschi und Worti
15.11.2005 08:43:46
T
Ich habe gestern eine Antwort zum Thema Subtrahieren von Texten erhalten, bringe aber das Ding nicht zum Laufen. Wohin muss ich die Funktion speichern?
Im Moment ist er im Tabellenblatt 1 gespeichert.
Was könnte ich sonst noch falsch gemacht haben? Das Feld zeigt #NAME?
Erhaltener Code (wobei "Public Function" beieinander steht):
Public
Function textMinus1(rg1 As Range, rg2 As Range)
' Funktion für Subtraktion von Ttexten
' Aufruf mit =textMinus(A1;B1)
Dim s1 As String, s2 As String, s3 As String, _
i1 As Integer, i2 As Integer
Application.Volatile
s1 = rg1.Value
s2 = rg2.Value
i1 = Len(s2)
For i2 = 1 To i1
s3 = Mid(s2, i2, 1)
s1 = Replace(s1, s3, "", 1, -1, vbTextCompare)
Next i2
textMinus1 = s1
End Function
Diesen Code habe ich danach für eine Subtraktion mit 3 Subtrahenden ergänzt.
Public
Function textMinus3(rg1 As Range, rg2 As Range, rg3 As Range, rg4 As Range)
' Funktion für Subtraktion von Ttexten
' Aufruf mit =textMinus3(A1;B1;C1;D1)
Dim s1 As String, s2 As String, s3 As String, s4 As String, s5 As String, _
i1 As Integer, i2 As Integer
Application.Volatile
s1 = rg1.Value
s2 = rg2.Value
s3 = rg3.Value
s4 = rg4.Value
i1 = Len(s2)
For i2 = 1 To i1
s5 = Mid(s2, i2, 1)
s1 = Replace(s1, s5, "", 1, -1, vbTextCompare)
Next i2
i1 = Len(s3)
For i2 = 1 To i1
s5 = Mid(s3, i2, 1)
s1 = Replace(s1, s5, "", 1, -1, vbTextCompare)
Next i2
i1 = Len(s4)
For i2 = 1 To i1
s5 = Mid(s4, i2, 1)
s1 = Replace(s1, s5, "", 1, -1, vbTextCompare)
Next i2
textMinus3 = s1
End Function
Wie gesagt laufen leider beide nicht.
Weis jemand Rat? Vielen Dank
urs