Hallo habe ...
16.03.2006 08:30:30
walter
Guten Morgen Luc,
habe die Zeile gelöscht, neu eingegeben jetzt: 021641101 es erscheint: 0 - 216 41101.
Es ist merkwürdig, das Format wird wird mittels Makro gesetzt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G:G")) Is Nothing Or _
Not Intersect(Target, Range("AA:AA")) Is Nothing Then
Application.EnableEvents = False
With Target
'Wenn - an 2.Stelle:
If Mid(.Text, 2, 1) = "-" Then
.Value = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Target, "-", ""), " ", "")
.NumberFormat = "0 ""-"" 000 00000"
ElseIf Left(.Text, 2) = "00" Or Left(.Text, 1) >= "0" Then
.Value = Application.WorksheetFunction.Substitute(Target, " ", "")
.NumberFormat = "00 000 00000" 'so stand es
End If
End With
Application.EnableEvents = True
End If
End Sub
Dies ist von "Experten" aus dem Forum, HUT ab, die haben es drauf, ich nicht !
Mir ist das aufgefallen, weil ich die Daten in eine eine Listbox reinhole und dort werden diese halt so angezeigt 011177665, ich möchte aber das andere Format mit Leerstellen haben, muß halt ein wenig basteln wie ich das Format da auch variabel
ändern kann. Damit bei der Eingabe 0611112345 auch so erscheint 06 111 12345.
Meine Zeile für die Listbox lautete:
arrValues(6, intRowU) = ActiveSheet.Cells(intRow, 7)
In der Textbox der Eingabemaske habe ich das:
ActiveCell.Offset(0, 4) = Me.TextBox3
If Mid(Me.TextBox3, 2, 1) = "-" Then
Me.TextBox3 = Format(ActiveCell.Offset(0, 4).Value, ("0 - 000 00000"))
Else
Me.TextBox3 = Format(ActiveCell.Offset(0, 4).Value, ("00 000 00000"))
End If
Vielleicht hast Du eine Idee ???
Gruß Walter