Excel 2010 ProPlus - Ziffernfolge in Zeichenfolge nach Enter umwandeln durch Funktion
Hallo Community,
ja ich weiß, es steht bestimmt irgendwo im Detail in der Wissensabteilung; da ich aber at work an ner Eskalationshotline bin hab ich grad leider nicht die Zeit mich ausreichend und umfassend einzulesen.
Wie bekomme ich das mit ner Funktion oder Formatierung hin, dass, wenn ich ne Ticketnummer von Remedy mit 7 Ziffern eingebe, diese automatisch um ein "XX000000" vorneweg erweitert wird wenn ich mit <Enter> bestätige.
mfGruß vom siebten...
ja ich weiß, es steht bestimmt irgendwo im Detail in der Wissensabteilung; da ich aber at work an ner Eskalationshotline bin hab ich grad leider nicht die Zeit mich ausreichend und umfassend einzulesen.
Wie bekomme ich das mit ner Funktion oder Formatierung hin, dass, wenn ich ne Ticketnummer von Remedy mit 7 Ziffern eingebe, diese automatisch um ein "XX000000" vorneweg erweitert wird wenn ich mit <Enter> bestätige.
mfGruß vom siebten...
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 243564
Url: https://administrator.de/forum/excel-2010-proplus-ziffernfolge-in-zeichenfolge-nach-enter-umwandeln-durch-funktion-243564.html
Ausgedruckt am: 23.12.2024 um 06:12 Uhr
2 Kommentare
Neuester Kommentar
Moin,
Wenn der Wert ansonsten tatsächlich in der Zelle stehen soll. mit einem VBA Makro das einen bestimmten Bereich von Zellen überwacht und bei Änderung entsprechend den String vorne anfügt (einzufügen im Code-Abschnitt des jeweiligen Worksheets) / Range in dem die Zahlen eingegeben werden sollen, muss dann noch in Zeile 3 angepasst werden:
Hier auch ein Demo-Sheet dazu.
Grüße Uwe
Wenn der Wert ansonsten tatsächlich in der Zelle stehen soll. mit einem VBA Makro das einen bestimmten Bereich von Zellen überwacht und bei Änderung entsprechend den String vorne anfügt (einzufügen im Code-Abschnitt des jeweiligen Worksheets) / Range in dem die Zahlen eingegeben werden sollen, muss dann noch in Zeile 3 angepasst werden:
Private Sub Worksheet_Change(ByVal Target As Range)
'Range bei dem eine Änderung etwas bewirken soll
Set changeRange = Range("A1:A10")
If Not Application.Intersect(changeRange, Target) Is Nothing And Target.Count = 1 Then
If Target.Value = "" Then
Exit Sub
Else
If Not Left(Target.Value, 2) = "XX" Then
Target.Value = "XX000000" & Target.Value
End If
End If
End If
End Sub
Grüße Uwe