Ausführen von multiplen Makros in demselben Blatt

Question

Ich versuche, ein Makro auszuführen, das das Datum und die Uhrzeit einfügt, wenn etwas aktualisiert wurde, aber ich muss es zweimal in derselben Zeile passieren.

Ich habe es bis in Spalte B + C zu füllen, wenn Initialen in Spalte A eingegeben werden, aber ich würde gerne laufen, wenn jemand einem anderen Wert in der Spalte tritt N

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim A As Range, B As Range, Inte As Range, r As Range 
    Set A = Range("A:A") 
    Set Inte = Intersect(A, Target) 
    If Inte Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
    For Each r In Inte 
     If r.Value > 0 Then 
      r.Offset(0, 1).Value = Date 
      r.Offset(0, 1).NumberFormat = "mm-dd-yy" 
      r.Offset(0, 2).Value = Time 
      r.Offset(0, 2).NumberFormat = "hh:mm AM/PM" 
     Else 
      r.Offset(0, 1).Value = "" 
      r.Offset(0, 2).Value = "" 
     End If 
    Next r 
End Sub 

Answer 1

Sie müssen nur testen, was die Adresse/Ort des Zielbereich ist:

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.EnableEvents = False 

    Select Case Target.Column 
     Case 1 ' "A" 

      Dim A As Range, B As Range, Inte As Range, r As Range 
      Set A = Range("A:A") 
      Set Inte = Intersect(A, Target) 
      If Inte Is Nothing Then Exit Sub 
      For Each r In Inte 
       If r.Value > 0 Then 
        r.Offset(0, 1).Value = Date 
        r.Offset(0, 1).NumberFormat = "mm-dd-yy" 
        r.Offset(0, 2).Value = Time 
        r.Offset(0, 2).NumberFormat = "hh:mm AM/PM" 
       Else 
        r.Offset(0, 1).Value = "" 
        r.Offset(0, 2).Value = "" 
       End If 
      Next r 

     Case 14 ' "N" 
       ' Do something else 

    End Select 

    Application.EnableEvents = True ' <-- Don't forget to turn this back on! 

End Sub 

da ferner ein solcher Ansatz unhandlich bekommen, ist es oft eine gute Idee, Ihre Methoden zu brechen. (. Kleinere Methoden sind fast immer besser)

Private Sub Worksheet_Change(ByVal Target As Range) 

    Application.EnableEvents = False 

    Select Case Target.Column 
     Case 1, ' "A" 
      Call AddDatesAfterInitialsEntered(Target) 

     Case 14 ' "N" 
      ' Do something else 

    End Select 

    Application.EnableEvents = True ' <-- Don't forget to turn this back on! 

End Sub 

Private Sub AddDatesAfterInitialsEntered(Target As Range) 

    Dim A As Range, B As Range, Inte As Range, r As Range 
    Set A = Range("A:A") 
    Set Inte = Intersect(A, Target) 
    If Inte Is Nothing Then Exit Sub 
    For Each r In Inte 
     If r.Value > 0 Then 
      r.Offset(0, 1).Value = Date 
      r.Offset(0, 1).NumberFormat = "mm-dd-yy" 
      r.Offset(0, 2).Value = Time 
      r.Offset(0, 2).NumberFormat = "hh:mm AM/PM" 
     Else 
      r.Offset(0, 1).Value = "" 
      r.Offset(0, 2).Value = "" 
     End If 
    Next r 

End Sub