Range mehrere Bereiche setzen
24.09.2014 20:27:41
Sascha
Hallo liebe Experten,
Ich steh auf dem Schlauch.
Ich möchte eine doppelte Eingabe Abfangen.
Wenn ich nur einen Bereich angebe funktioniert es tadellos.
Mehrere Bereiche zu definieren, schaffe ich nicht.
Obwohl ich den Range-Bereich im sub test() genau gleich angebe. Beim sub test() markiert es mir aber die Bereiche so wie ich es will.
Kann mir jemand helfen?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A3:A15,B3:B9,C3:C9")
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Intersect(Bereich, Target) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Bereich, Target.Value) > 1 Then
MsgBox ("Doppelter Eintrag nicht zulässig")
Application.EnableEvents = False
Target.Value = ""
End If
End Sub
Sub test()
Sheets("Hilf").Range("A3:A15,B3:B9,C3:C9").Select
End Sub
Liebe GrüsseSascha