Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Debuggen verhindern

Debuggen verhindern
15.12.2004 14:34:09
Michael
Hallo alle zusammen
Mit unterem Code verhindere ich doppelte Einträge. Der funktioniert auch tadellos. Das Problem ist aber: Wenn ich am Tabellenblatt etwas kopieren will oder mehrere Zeilen löschen will, dann wirds zum debuggen. Kann mir vielleicht irgendwer helfen

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountIf(Range("A12:C1500"), Target.Value) > 1 Then
Target.ClearContents
MsgBox "ist schon vorhanden"
Cells.Find(What:=Target.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
).Activate
End If
End Sub

Danke
Michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Debuggen verhindern
u_
evtl so:
an den Anfang:
If Target.cells.count&gt 1 then exit sub
Danke
15.12.2004 15:02:33
Michael
Danke
es funktioniert
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige