Application.intersect problem
01.04.2016 18:19:23
SP
Ich möchte euch in einer Sache, bei der ich nicht weiterkomme um hilfe bitten.
Ich habe mir einen code geschrieben, der dafür sorgen soll, dass zwei Zellen nicht gleichzeitig eine Information enthalten dürfen.
Nun bin ich der Meinung, dass der Code so wie geschrieben stimmen müsste. Tatsächlich funktioniert es auch wenn ich ein neues Excel mach und den Code testweise da einfüge. Das Problem kommt auf, wenn ich den Code in die eigentlich dafür vorgesehene Arbeitsmappe integriere. Da, passiert nämlich dann gar nix. Die Arbeitsmappe beinhaltet diverse andere Makros, Formen, usw. und alles funktioniert sehr gut... nur dieser code halt nicht.
Ich hab bereits versucht allen anderen Code zu löschen (entfernen von modulen usw.) so dass gar nix anderes dahinter am laufen ist.... das hat aber leider auch nix gebracht.
Ich hoffe das ich da irgendwas übersehe, was euch evtl. gleich ins Auge sticht.
Hier noch den Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Range("F13"), Range(Target.Address)) Is Nothing And Range("C13"). _
Value "" Then
Cells(13, 6).Value = ""
MsgBox "ddd"
Else
End If
If Application.Intersect(Range("C13"), Range(Target.Address)) Is Nothing And Range("F13"). _
Value "" Then
Cells(13, 3).Value = ""
Else
End If
End Sub
Danke euch im Voraus für etwaige Hilfestellungen.