Wie 2 Ereignisse ...
04.11.2012 19:09:08
walter
wie kann man 2 Ereignisse unterbringen ?
Private Sub Worksheet_Change(ByVal Target As Range)
Hier meine Wünsche/Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
'------ das 1. --------------------------------
Dim rngRange As Range
Set rngRange = Intersect(Range("V4:V" & Rows.Count), Target)
If rngRange Is Nothing Then Exit Sub
Application.EnableEvents = False
rngRange.Offset(0, -2).FormulaR1C1 = "=IF(RC2"""",TODAY(),"""")"
rngRange.Offset(0, -2).Value = rngRange.Offset(0, -2).Value
Application.EnableEvents = True
'-------- das 2. -------------------------------
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
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
mfg walter