Zahlenreihe und Buchstaben mit Bindestrich versehen

[Franke]

Hallo,

ich habe Eingabefelder in den  ich folgendes Eingeben muss.

89-250.123 das habe ich so gelöst ##.-###.### über Zellen formatieren.Ergebnis 89.-250.123
Wenn ich jetzt aber folgendes eingebe funktioniert es nicht mehr.
B5012123 das könnte ich so lösen "B"0.-000.000 Ergebnis B0.-123.456

Nun ist mein Problem das ich einmal den Buchstaben benötige oder die Zahl. eine Hilfsspalte kann ich nicht einfügen.
Gibt es da eine andere Lösung z.b über VBA .

[BoskoBiati]

Hi,

wenn ich 89-250.123 in eine Zelle eingebe, dann steht das auch so in der Zelle. Ich verstehe Dein Problem nicht!

[cysu11]

Hallo Franke,

versuche es mal so, das im Modul des Arbeitsblattes reinkopieren und in Spalte A dann entsprechend testen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As String
c = Target.Value
If (Target.Column = 1) And Mid(c, 3, 1) <> "." Then
Target.Value = Left(c, 2) & ".-" & Mid(c, 3, 3) & "." & Right(c, 3)
Else
Exit Sub
End If
End Sub

LG, Alexandra

[Franke]

Hallo Alendra,

danke für die schnelle Lösung.Funktioniert einwandfrei.
Noch eine Frage. Wie bekomme ich den Punkt weg. war ein Tipphehler ist  89.-123.456   soll 89-123.456

@ BoskoBiati zur Info.
Ich gebe  89123456 ein und Excel soll mir automatisch das Format in 89-123.456 ändern.

Danke schon mal im voraus.

---

Hat sich erledigt.

Hab es hinbekommen.

Danke noch mal.
Gruß Franke

[cysu11]

Hi,

dann so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As String
c = Target.Value
If (Target.Column = 1) And Mid(c, 3, 1) <> "-" Then
Target.Value = Left(c, 2) & "-" & Mid(c, 3, 3) & "." & Right(c, 3)
Else
Exit Sub
End If
End Sub

LG, Alexandra