Sicherheitsabfrage bei unterschiedlichem Wert
26.06.2015 15:09:49
Stefan
wenn eine Zelle in Spalte "G" frei gelassen wird, dann soll das Makro prüfen, ob es sich in Spalte "D" (gleiche Zeile) um ein anderes Datum handelt als in der Zeile zuvor (die leer gelassen wurde). Vielleicht habt ihr einen Tip. Mit Offset funktioniert es anscheinend nicht.
If Not Bereich Is Nothing Then
For Each Zelle In Bereich
With Zelle
If Zelle.Row > 1 Then
If Zelle.Offset(-1, 0) = "" And Zelle "" Then
If ActiveCell.Offset(rowOffset:=0, columnOffset:=-3).Value
ActiveCell.Offset(rowOffset:=-1, columnOffset:=-3).Value Then
If MsgBox("Sind sie sicher?", vbYesNoCancel, "Zeilen Löschen") = vbYes Then
Exit Sub
Else
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End If
End If
End With
Next Zelle
End If
Viele Grüße,
Stefan