gleiche zahlen löschen
04.06.2005 14:52:17
Udo
danke UweD habe ich es geschafft zahlen die untereinander doppelt vorkommen zu löschen (s.formel) leider ist es erst ein teil von dem was ich mir vorstelle.
ich hätte halt auch gerne das wirklich jede zahl die in der tabelle doppelt vorkommt automatisch gelöscht wird wenn ich eine zahl irgendwo in meiner tabelle rein schreibe.
es geht hier jetzt um die zeile 3,11,17,23,31,37 und in den reihen c-q wo keine doppelten zahlen vor kommen sollen
hier ist der beitrag zu finden den ich gestern geschrieben habe.
https://www.herber.de/forum/archiv/616to620/t619354.htm#619354
vielen lieben dank für euere hilfe
Udo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SP%
SP = Target.Column
On Error GoTo Fehler
Application.EnableEvents = False
Select Case Target.Row
Case 1
If Cells(3, SP) = Target Then Cells(3, SP).ClearContents
If Cells(5, SP) = Target Then Cells(5, SP).ClearContents
Case 3
If Cells(1, SP) = Target Then Cells(1, SP).ClearContents
If Cells(5, SP) = Target Then Cells(5, SP).ClearContents
Case 5
If Cells(1, SP) = Target Then Cells(1, SP).ClearContents
If Cells(3, SP) = Target Then Cells(3, SP).ClearContents
End Select
Fehler:
Application.EnableEvents = True
End Sub