Bevor Datum, erst Bedingung beachten.
14.02.2016 17:31:36
Josef_T
möchte in unten stehem Code, noch bevor das Datum (ausgelöst durch Doppelklick in J:J wird ein Häckchen gesetzt)
, Prüfen Ob in Spalte G:G ein Betrag steht. Wenn Kein Betrag in der Spalte-Zeile steht, soll das Datum nicht geschrieben werden, sondern eine Meldung erscheinen "Kein Eintrag" oder ähnliches.
Ich wäre sehr dankbar, wenn Ihr mir behilflich wäret. Ich bekomme es nicht auf die Reihe.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:J")) Is Nothing Then
If Target(1).Value "" Then
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "K").Value = Now
End If
End If
End Sub
Danke schon mal
Gruß
Josef
Anzeige