löschen NICHT möglich wenn Datum nur 1x vorhanden
01.09.2006 00:32:31
Peter
ich möchte verhindern, dass ich irrtümlicher weise ein Datum komplett aus der Tabelle entferne.
Habe in Spalte A das Datum stehen:
.......A
1 .. 01.01.06
2 .. 02.01.06
3 .. 02.01.06
4 .. 02.01.06
5 .. 03.01.06
6 .. 03.01.06
usw.
hab bereits diesen Code zum entfernen von Zeilen über eine Sicherheitsabfrage.
Sub zeile_löschen_und_sicherheits_abfrage()
' strg. + l (löschen)
Dim i As Byte
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
Der Code sollte so ergänzt werden, dass sobald ein Datum nur 1 x in der Tabelle vorkommt (wie im Beispiel A1 - 01.01.06 -)und gelöscht werden soll, eine MSGBox
aufgeht mit dem Hinweis "letztes Datum -- löschen nicht möglich". Sobald ein Datum mehrere male vorkommt soll beim löschen die Sicherheitsabfrage aus dem Code erscheinen. So soll verhindert werden, dass ein Datum komplett aus der Tabelle gelöscht wird.
Ich hoffe ihr könnt mir helfen.
Gruß
Peter