Kombination von 2x Sub Worksheet_Change
21.02.2018 16:31:06
2x
hier das nächste "Problem".
Ich möchte in meiner Datei zwei verschiedene Subs "Worksheet_Change (ByVal Target as Range) kombinieren.
Geschrieben sind die beiden soweit auch fertig.
Einmal, aktuell auch schon funktionstüchtig, die Funktion, dass bei einer Werteeingabe in Spalte C automatisch das Datum in Spalte B eingefügt wird:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C11:C100")) Is Nothing Then
Cells(Target.Row, "B").Value = Date
End If
End Sub
(Ich hoffe das ist soweit überhaupt richtig, konnte das noch nicht testen):
Private Sub Worksheet_Change2(ByVal Target As Range)
Dim rngDV As Range
Dim wertold As String
Dim wertnew As String
On Error GoTo Errorhandling
If Not Application.Intersect(Target, Range("H11:H50")) Is Nothing Then
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo Errorhandling
If Not Application.Intersect(Target, rngDV) Is Nothing Then
Application.EnableEvents = False
wertnew = Target.Value
Application.Undo
wertold = Target.Value
Target.Value = wertnew
If wertold "" Then
If wertnew "" Then
Target.Value = wertold & ", " & wertnew
End If
End If
End If
Application.EnableEvents = True
End If
Errorhandling:
Application.EnableEvents = True
End Sub
Leider habe ich das mit meinen mehr als bescheidenen VBA Kenntnissen irgendwie noch nicht bewerkstelligen können.
Gibt es vielleicht einen Kundigen, der mir da behilflich sein kann?
Danke & VG
Thomas