|
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
|