bei Platzhalter = Text aus E5+E6
09.03.2008 09:51:00
Wolfgang
der untenstehende Code (befindet sich jeweils hinter dem Tabellenblatt) bewirkt, dass ein Text der die Platzhalter # * $ enthält, über eine Eingabemaske ergänzt wird. Wie müßte ich den Code ergänzen, wenn ich über einen weiteren Platzhalter -z.B. µ- erreichen möchte, dass dann dieser Platzhalter durch den vorhandenen Text in Zelle E5 und E 6 ersetzt wird? Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strText As String
If Target.Count = 1 Then
If Target.Row >= 4 And Target.Row 0 Then
Application.EnableEvents = False
Beep
strText = InputBox(Target.Value, "Bitte den Stern durch den jeweiligen Text _
ersetzen! ", " * ")
Target.Value = Application.WorksheetFunction.Substitute(Target.Value, "*", _
strText)
Application.EnableEvents = True
End If
If InStr(1, Target, "#") > 0 Then
Application.EnableEvents = False
Beep
strText = InputBox(Target.Value, "Bitte Dollar durch den jeweiligen _
Textersetzen! ", " # ")
Target.Value = Application.WorksheetFunction.Substitute(Target.Value, "#", _
strText)
Application.EnableEvents = True
End If
If InStr(1, Target, "$") > 0 Then
Application.EnableEvents = False
Beep
strText = InputBox(Target.Value, "Bitte Nummernzeichen durch den jeweiligen _
Text ersetzen! ", " $ ")
Target.Value = Application.WorksheetFunction.Substitute(Target.Value, "$", _
strText)
Application.EnableEvents = True
End If
End If
End If
End If
End Sub
Anzeige