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
Beim zweiten geht es darum, dass ich bei einer Dropdown Liste auch eine Mehrfachauswahl treffen kann(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
Nun habe ich herausgefunden, dass es immer nur ein Sub dieser Art in einer Tabelle geben kann und dass man diese beiden nun kombinieren müsste.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