Thema Datum  Von Nutzer Rating
Antwort
Rot Dopplungen in diversen Spalten erkennen
14.11.2018 15:42:21 BG
NotSolved
14.11.2018 17:52:24 Werner
NotSolved
14.11.2018 18:27:40 BG
NotSolved
14.11.2018 18:41:09 Werner
NotSolved
15.11.2018 09:20:39 BG
NotSolved
15.11.2018 10:30:38 Werner
*****
NotSolved
15.11.2018 17:38:37 Gast51597
NotSolved
03.01.2019 08:37:06 BG
NotSolved

Ansicht des Beitrags:
Von:
BG
Datum:
14.11.2018 15:42:21
Views:
146
Rating: Antwort:
  Ja
Thema:
Dopplungen in diversen Spalten erkennen

Hallo zusammen,

sicher habt ihr recht schnell die Lösung parat.

Ich prüfe mit nachstehenden Makro aktuell, ob in Zeile G2 bis G10 Doppeleingaben durchgeführt werden und verhindere dies. Das funktioniert auch wunderbar. 
Jetzt möchte ich aber weitere Spalten z.B. K2 bis K20 ebenfalls prüfen. Wie muss ich den Code umbauen, um weitere Bereiche abzufragen.

Wichtig ist, dass nicht per union die Bereiche zusammengelegt werden, sondern z.B. K2 bis K20 gesondert zu den weiteren Bereichen auf "Einmaligkeit" geprüft werden. 

Vielen Dank vorab für die Unterstützung!

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich1 As Range
Set Bereich1 = Range("G2:G10")
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich1, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich1, Target.Value) > 1 Then
    MsgBox ("Doppelter Eintrag nicht zulässig")
    Application.EnableEvents = False
    Target.Value = ""
    Application.EnableEvents = True
    Target.Select
End If
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Dopplungen in diversen Spalten erkennen
14.11.2018 15:42:21 BG
NotSolved
14.11.2018 17:52:24 Werner
NotSolved
14.11.2018 18:27:40 BG
NotSolved
14.11.2018 18:41:09 Werner
NotSolved
15.11.2018 09:20:39 BG
NotSolved
15.11.2018 10:30:38 Werner
*****
NotSolved
15.11.2018 17:38:37 Gast51597
NotSolved
03.01.2019 08:37:06 BG
NotSolved