Wichtig EILT Was ist defekt ?
02.03.2006 15:34:16
walter
habe (natürlich) über das Forum diese Makro bekommen, funktioniert auch leider auf einmal nicht:
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"
'Wenn Eingabe mit 06 beginnt:
' ElseIf Left(.Text, 2) = "06" Then
' ElseIf Left(.Text, 2) = "06" Or Left(.Text, 1) = "6" Then 'von Matthias
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
Wieso funktioniert nicht mehr die Darstellung , nach der Eingabe:
0-33312345 und soll 0 - 333 12345 anzeigen oder bei der Eingabe:
0644412345 soll 06 444 12345 anzeigen.
Die Berechnung von Excel ist auf Automatik gestellt.
Ich teste jetzt schon seit 2h, weiß einfach nicht mehr weiter, obwohl ich nichts am Makro verändert habe,
danke für die Unterstützung,
gruß Walter