2 Datums-Macros zusammen
03.09.2017 11:46:00
kevikev
Ich möchte 2 Macros im selben Tabellenblatt benutzen.
Nummer 1 soll eine Zelle weiter links das Datum eintragen wenn etwas in die Zelle geschrieben wird.
Nummer 2 soll bei dem Wert "100" das aktuelle Datum eine Zelle weiter rechts schreiben.
Beide funktionieren im selben Tabellenblatt einzeln. Ich weiß nur leider nicht wie der Code aussehen muss, dass beide gleichzeitig funktionieren.
hier der Code für 1:
Private Sub Worksheet2_Change(ByVal Target As Range)
If Intersect(Range("b7:b500"), Target) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, -1).Value = ""
Else
Target.Offset(0, -1).Value = Date
End If
End Sub
Und hier der für 2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("q7:q500"), Target) Is Nothing Then Exit Sub
If Target.Value "100" Then
Target.Offset(0, 1).Value = ""
Else
Target.Offset(0, 1).Value = Date
End If
End Sub
Anzeige