Hilfe beim einfügen eines zusätzlichen Datums.
08.07.2016 16:50:42
Josef_T
kann mir bitte jemand helfen, beim lösen folgenden Problems.
Habe ein Dropdown mit den beiden Texten: "Reparaturannahme" und "Ausgeliefert".
Wenn ich in Spalte J den Text "Reparaturannahme" auswähle, wird in Spalte
K, das heutige Datum eingetragen. Funktioniert alles.
Nun mein Problem, ist es möglich, wenn ich über das Dropdown "Ausgeliefert" auswähle,
das in Spalte L ebenfalls das Tagesdatum eingetragen wird? Wenn Ja, wie geht das?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("A9", Cells(Range("A65536").End(xlUp).Row, Cells(9, 256).End(xlToLeft).Column)).Sort _
_
_
_
Key1:=Range("A10"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
ElseIf Target.Column = 10 Then
If Target.Count = 1 Then
If Target = "Reparaturannahme" And Target.Offset(, 2) = "" Then
Target.Offset(, 2) = Format(Date, "dd.mm.yyyy")
'ElseIf Target = "Ausgeliefert" And Target.Offset(, 3) = "" Then
'Target.Offset(, 3) = Format(Date, "dd.mm.yyyy")
'Target.Offset(, 2).ClearContents
End If
End If
End If
End Sub
Danke schon mal
Gruß
Josef
Anzeige