Beliebt

Excel - Pr├Ąfix / Suffix Text auf Feld nach Texteingabe - Microsoft-Excel, Arbeitsblatt-Funktion

Ich m├Âchte eine Textfolge in ein Feld eingeben und sobald ich getroffen habe Eingeben dem Text ein konstantes Pr├Ąfix und Suffix hinzuzuf├╝gen - z. wenn ich tippe BuyLinux oder InsultBill in eine Zelle und schlagen Eingeben (oder Tab), um den Text festzuschreiben, sagt das Feld dann NeverBuyLinuxEver oder NeverInsultBillEver, und so weiter. Ich habe angeschaut CONCAT, REPLACE und SUBSTITUTE kann aber nicht klappen (ich bekomme das Zirkul├Ąrer Verweis Error). Irgendwelche Hinweise, Gurus?

Antworten:

0 f├╝r Antwort Ôäľ 1
Private Const prefix As String = "-=prefix=-"
Private Const postfix As String = "-=postfix=-"

Private Sub Worksheet_Change(ByVal Target As Range)
" the flag to avoid recursive calls
Static busy As Boolean
" If this call is recursive then do nothing
If busy Then Exit Sub
" Mark that the action is now performed
busy = True
" When some value on the worksheet is changed we check
" that only one cell is selected (not multicell range)
" and this cell is in column 1 (column A)
If Target.Column = 1 And Target.Cells.Count = 1 Then
" If one cell in column A is altered, update its value
Target.Value = prefix & Target.Value & postfix
End If
" Drop execution mark
busy = False
End Sub