Wie zwei Private Sub Worksheet_Change zusammenführ
29.03.2015 10:45:47
Karel
Guten Morgen Community,
wie bekomme ich zwei
Private Sub Worksheet_Change Makros zusammen?
einmal Datum Setzen und Anschließend Sortieren
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Column <> 4 Or Target.Count > 1 Then Exit Sub
If Target.Column <> 4 Then Exit Sub
Cells(Target.Row, 20).Value = Format(Now, "dd.mm.yyyy")
'Cells(Target.Row, 21).Value = Time
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("T11:T100")) Is Nothing Then
Range("B11:AC150").Sort Key1:=Range("T11"), Order1:=xlAscending, Header:=xlNo
End If
End Sub
Habe es schon mit "Next" dazwischen versucht, will aber nicht recht.
Ich bedanke mich schon mal für das lesen und das sich annehmen meines Problemes!
freundliche Grüsse
Karel