Private Sub Worksheet_Change(ByVal Target As Range)
Dim e
If Not Intersect(Target, Columns("X:X").Cells) Is Nothing And Target.Offset(0, -3) = "" Then
If Target.Text = Sheets(2).Cells(5, 5).Value Then
Do
e = InputBox("Please enter the DFMEA need cancelled date: (dd.mm.yyyy)")
Loop Until IsDate(e) = True
Target.Offset(0, -3) = CDate(e)
End If
End If
If Not Intersect(Target, Columns("X:X").Cells) Is Nothing And Target.Offset(0, -9) = "" Then
If Target.Text = Sheets(2).Cells(6, 5).Value Then
Do
e = InputBox("Please enter the DFMEA need validated date: (dd.mm.yyyy)")
Loop Until IsDate(e) = True
Target.Offset(0, -9) = CDate(e)
End If
End If
If Not Intersect(Target, Columns("X:X").Cells) Is Nothing And Target.Offset(0, -5) = "" Then
If Target.Text = Sheets(2).Cells(12, 5).Value Then
Do
e = InputBox("Please enter the Final report delivered date: (dd.mm.yyyy)")
Loop Until IsDate(e) = True
Target.Offset(0, -5) = CDate(e)
End If
End If
end sub
es funktioniert alles einwandfrei solange ich die letzten beiden Schleifen aus dem code entferne, diese sind jedoch nur angepasste kopien der ersten... wtf mache ich falsch? Danke für eure Hilfe...
Liebe grüße
Adrian