Das es eine große Datei ist
15.09.2010 09:09:42
Kurt
Guten Morgen Frank,
dass es eine große Datei ist, kann ich im Moment nicht durchführen.
Habe mal im Google nachgeforscht und habe diese Ansätze gefunden:
''
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
''On Error GoTo ErrHandler
''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
'' 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
''End If
''ErrHandler:
''Application.EnableEvents = True
''End Sub
werde gleich mal versuchen, etwas anzupassen,
mfg Kurt B