Zwei fast gleiche Makros zusammenfassen
26.05.2009 20:02:11
Raoul
Bin Unwissender, sitze immer noch im Büro und moechte aus zwei "Makro-Schnipseln" ein funktionierendes machen. Jedes Makro für sich allein macht was ich brauche. Meine Frage: Was genau muss ich ändern, damit beide Makros ihren dDienst in meinem Tabellenblatt verrichten?
Hier der Code und tausend Dank im voraus! Raoul
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Q:Q")) Is Nothing Then Exit Sub
Cells(Target.Row, 18) = Application.UserName & " - " & CDate(Format(Now, "dd.mm.yy hh:mm"))
Cells(Target.Row + 1, 1).Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("V:Y")) Is Nothing Then Exit Sub
Cells(Target.Row, 27) = Application.UserName & " - " & CDate(Format(Now, "dd.mm.yy hh:mm"))
Cells(Target.Row + 1, 1).Select
End Sub
Anzeige