Mehrere Funde in string unterschiedlich ersetzen
22.04.2009 14:20:08
guitarslinger
ich habe folgendes Problem:
Ich habe in Text in Zellen, in dem an unterschiedlicher Position bis zu zwei Platzhalter eingefügt sind. Diese sehen so aus: {INSERTANS:77822X8X645}
Nun möchte ich den ersten Fund einer solchen Zeichenkette (Identifikation über die Klammern) durch den Inhalt einer Zelle ersetzen, den zweiten Fund durch den Inahlt einer anderen Zelle.
Nun habe ich das Problem, dass beide Funde durch den die gleiche Zelle ersetzt werden. Ich kann den zweiten Fund nicht steuern. Ich erhalte die Fehlermeldung: Ungültiger Prozeduraufruf oder ungültiges Argument
Dazu folgender Code:
Sub replinsa()
Dim rng As Range
Dim replstr As String
Dim insans As String
Dim insans2 As String
Dim rngtxt As String
Dim searchstr As String
Dim searchend As String
searchstr = "{"
searchend = "}"
For Each rng In ActiveSheet.Range("A185:A185")
rngtxt = rng.Text
Select Case CountChar(rngtxt, searchstr)
Case 0
GoTo weiter
Case 1
rngtxt = rng.Text
If rng.Offset(0, 1) = "*" Then
replstr = rng.Offset(0, 1).Text
insans = Mid(rngtxt, InStr(rngtxt, searchstr), InStr(rngtxt, searchend) - InStr(rngtxt, _
searchstr) + 1)
rng = Replace(rngtxt, insans, replstr)
ElseIf rng.Offset(0, 2) "" Then
replstr = rng.Offset(0, 2).Text
insans = Mid(rngtxt, InStr(rngtxt, searchstr), (InStr(rngtxt, searchend) - InStr(rngtxt, _
searchstr) + 1))
rng = Replace(rng.Text, insans, replstr)
End If
Case 2
'erstes INSANS
rngtxt = rng.Text
replstr = rng.Offset(0, 1).Text
insans = Mid(rngtxt, InStr(rngtxt, searchstr), InStr(rngtxt, searchend) - InStr(rngtxt, _
searchstr) + 1)
rng = Replace(rngtxt, insans, replstr)
insans = ""
replstr = ""
'zweites INSANS
rngtxt = rng.Text
replstr = rng.Offset(0, 2).Text
insans = Mid(rngtxt, InStr(rngtxt, searchstr), InStr(rngtxt, searchend) - InStr(rngtxt, _
searchstr) + 1)
rng = Replace(rngtxt, insans, replstr)
End Select
weiter:
Next
End Sub
Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Integer
CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, ""))
End Function
Danke im Voraus für eure Hilfe,
Grüße gs