AW: So bin wieder da
04.11.2012 19:22:25
Tino
Hallo,
dann trennen wir die beiden Teile voneinander.
Deinen Codeteil habe ich jetzt nicht getestet!
Dim rngRange As Range
Set rngRange = Intersect(Range("B2:B" & Rows.Count), Target)
If rngRange Is Nothing Then
Application.EnableEvents = False
rngRange.Offset(0, -1).FormulaR1C1 = "=IF(RC2<>"""",TODAY(),"""")"
rngRange.Offset(0, -1).Value = rngRange.Offset(0, -1).Value
Application.EnableEvents = True
End If
If Target.Count > 1 Then Exit Sub
If 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
Gruß Tino