kann mir einer von Euch sagen warum bei mir folgender Code mit der Fehlermeldung Laufzeitfehler 13
Typen unverträglich stehen bleibt. Ich vermutet das es hier um Zahlen bzw. Text Problem handelt.
Wie müßte der Code aussehen ?
Danke für eine Antwort ;->
Private Sub Worksheet_Change(ByVal target As Range)
Dim Bereich As Range
Set Bereich = Range("a4:a9999")
If target.Value = "" Then Exit Sub
If target.Cells.Count > 1 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 = ""
Application.EnableEvents = True
target.Select
End If
If Tabelle1.Range("g5") = Tabelle2.Range("c3") Then
MsgBox "alle Collis erfasst, Lieferung ist OK"
End If
End Sub