noch mehr Platzhalter möglich?
08.11.2007 20:05:59
Wolfgang
der untenstehende Code liegt hinter einem bestimmten Tabellenblatt und überwacht, ob ein Text in C6:C26 oder E6:E26 eingefügt wird der als Platzhalter ein * enthält. Wenn ja, erscheint eine Inputbox, um das * durch den entsprechenden Text zu ersetzen. Wäre denkbar, den Code auf 3 Platzhalter auszuweiten (*,#,$), wobei dann für jeden Platzhalter eine getrennte Inputbox erscheinen würde? - Danke schon jetzt für die Rückmeldungen.
Gruß - 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
End If
End If
End If
End Sub