Früheres Datum NICHT löschen und einfügen?
02.09.2006 01:52:42
Peter
1) Ich möchte verhindern, dass Zeilen versehentlich gelöscht werden können, die VOR dem heutigen Datum liegen (also gestern, oder noch früher). Es sollte
eine JA / NEIN-Box erscheint, mit dem Hinweis älteres Datum!!! Wirklich löschen?. Das Löschen darf nur geschehen, wenn ich mit JA bestätige.
WICHTIG: Löschen bedeutet die komplette Zeile einer aktiven Zelle!!!
2) Außerdem möchte ich das Gegenteil von oben erreichen, nämlich dass Zeilen VOR dem heutigen Datum (gestern oder noch früher) in die Tabelle EINGEFÜGT werden. Wieder mit einer JA / NEIN-Box
älteres Datum!!! Wirklich einfügen? Das Einfügen darf nur geschehen, wenn ich mit JA bestätige.
WICHTIG: Einfügen bedeutet eine komplette Zeile UNTERHALB einer aktiven Zelle!!!
Nur vergangene Datum sollen mit der Sicherheitsabfrage belegt sein!!!
Das Datum steht in Spalte A
Bisher hab ich diesen Code zum löschen mit zwei Sicherheitsabfragen:
-----------------------------------
Sub zeile_löschen_mit_sicherheitsabfrage_und_hinweis_das_nicht_gelöscht_werden_kann()
' strg. + l (löschen)
Dim i As Byte
If WorksheetFunction.CountIf(Range("A:A"), _
Cells(ActiveCell.Row, 1).Value) = 1 Then
MsgBox ("Ein Trainingstag kann nicht komplett gelöscht werden!!!")
Exit Sub
End If
If ActiveCell.Offset(1, -1) = ActiveCell Or ActiveCell.Offset(1, 1) = ActiveVell Then
i = MsgBox("Trainingseinheit wirklich löschen ?", _
vbYesNo + vbQuestion, _
"Frage an " & Application.UserName & ":")
If i = vbYes Then ActiveCell.EntireRow.Delete
End If
End Sub
-----------------------------------------------
und diesen Code zum Einfügen ohne Sicherheitsabfrage
-----------------------------------------------
Sub zeile_einfügen()
' strg. + e (einfügen)
ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
End Sub
------------------------------------------------
Ich hoffe ihr könnt mir eine Lösung anbieten
Gruß
Peter