Spalten vergleichen
30.01.2015 20:09:15
Dieter.G
Guten Abend zusammen,
ich habe zwei Spalten "H5:I1000" in die nur ein Datum eingegeben wird.
Mein Problem: Es soll aber in diesem Bereich nur eine Datumseingabe pro Zeile möglich sein. Wenn also z.B. in "Zeile 5" in "Spalte H" oder umgekehrt in "Zeile 5" in "Spalte I" bereits ein Datum eingetragen wurde, dann darf es nicht möglich sein in die benachbarte Zelle "I5" bzw. "H5" ein weiteres Datum einzutragen.
Dieses Makro überwacht immer eine ganze Zeile.
Kann man das vielleicht so umbauen, damit es nur den oben genannten Bereich "H5:I1000" überwacht?
Private Sub Worksheet_Change(ByVal rngTarget As Range)
If WorksheetFunction.CountIf(Rows(rngTarget.Row), LCase("X")) > 1 Then
MsgBox "X kann nur einmal eingegeben werden!", 48, "Hinweis"
Application.EnableEvents = False
Application.Undo
rngTarget.Select
Application.EnableEvents = True
End If
End Sub
Danke im Voraus
Gruß Dieter