ich gebe über eine UserForm Daten in ein Tabellenblatt ein z.B. in Spalte A 4511, 4117... und in Spalte B T1, T2...
Eine Kombination wie 4511/T1 oder 4117/T1 soll nur einmal vorkommen. Um eine doppelte Eingabe auszuschließen habe ich folgende Zeilen in mein Makro zum Abspeichern eingefügt.
If Application.CountIf(Sheets("TitelVorg").Range("Kost"), ComboBox1)_
& Application.CountIf(Sheets("TitelVorg").Range("Titel1"), ComboBox2) > 0 Then
MsgBox "Der Titel ist schon vorhanden", vbExclamation
Exit Sub
End If
Leider stimmt meine Syntax noch nicht, da jetzt schon bei einer Übereinstimmung die MsgBox erscheint. Es soll aber nur bei beiden Übereinstimmungen reagiert werden. ".Range"Kost")" und "Range("Titel1")" sind dynamisch wachsende, benannte Bereiche in Spalte A bzw. B die sich mit jeder Eingabe erweitern.
Ich hoffe jemand sieht meinen Fehler und hilft mir.
Gruß DieterL