0043 anstatt +43
15.06.2021 15:39:17
Helmut
If Not Intersect(Target, Range("M:M")) Is Nothing Then 'reagiert nur in Splate M
Target.NumberFormat = "@" 'Format als Text
If Target "" Then 'Code lauft nur wenn Zelle nicht leer ist, sonst Fehler beim loeschen
Speicher = Target.Value 'die Nummer wird an Variable uebergeben
Application.EnableEvents = False 'Events ausschalten, sonst laeuft der Worksheet_Change event wieder von vorn los
Target.Value = "0" & Speicher 'die Null wieder vor die Nummer setzen und einfuegen
Application.EnableEvents = True 'Events wieder einschalten
End If
End If
Ich kopiere zb aus dem Inet eine TelNr mit 660123456, dann wird die fehlende 0 hinzugefügt. Kopiere oder gebe ich die TelNr 0660123456 ein, erhalte ich 00660123456. (Das erscheint mir Logisch)
Nun kopiere oder gebe ich die TelNr +43660123456 ein; Ergebnis lautet: 0+43660123456 (Erschein mir auch logisch)
Gibt es Jedoch die Möglichkeit das zb +43 oder auch +49 immer gegen "00" ersetzt wird oder wenn ich 0660123456 eingebe, nicht 00660123456 erscheint?
Besten Dank im voraus, LG Helmut