Worksheet_Change
Mathias
habe mal ne Frage? Ich habe folgenden Code geschrieben, welcher folgendes bewirken soll. Eine Nummer z.B. 78451263L0 (hat immer 10 Stellen und an vorletzter Stelle einen Buchstaben) soll nach der Formatierung so aussehen: 7845 1263 L0 (das heißt ausgehend von der ersten Stellen nach jeder 4. ein Leerzeichen). Lasse ich den Code über einen Commandbutton laufen funktioniert es, jedoch beim Worksheet_Change Ereignis ist es so als ob eine Schleife abläuft. Kann mir jemand erkären warum.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Errorhandler
Target = UCase(Target)
Target = Left(Target.Value, 4) & " " & Right(Target.Value, 6)
Target = Left(Target.Value, 9) & " " & Right(Target.Value, 3)
Errorhandler: Exit Sub
End Sub
Mfg Mathias
Anzeige