Application.intersect problem

Hallo Zusammen
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.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("F13"), Target) Is Nothing Then If Range("C13").Value "" Then Application.EnableEvents = False Target.Value = "" Application.EnableEvents = True MsgBox "C13 hat Wert" Else MsgBox "C13 ist leer" End If Else If Not Intersect(Range("C13"), Target) Is Nothing Then If Range("F13").Value "" Then Application.EnableEvents = False Target.Value = "" Application.EnableEvents = True MsgBox "F13 hat Wert" Else MsgBox "F13 ist leer" End If End If End If End Sub

Salü Michael
Danke für die schnelle Antwort aber das ist nicht das was ich meinte... evtl. habe ich mich etwas missverständlich ausgedrückt. Der Code den ich gepostet habe, tut eigentlich was er soll.
Wenn Zelle A beschrieben wird und Zelle B beschrieben ist dann lösche zelle B.
Wenn Zelle B beschrieben wird und Zelle A beschrieben ist dann lösche zelle A.
die msgbox und das else kann man getrost vergessen im moment. das problem was ich habe ist... der code funktioniert in einem neuen excel aber nicht in der excelmappe in der ich es brauche und ich verstehe nicht warum.
habe es auf meine privaten und dem geschäfts pc ausprobiert und zwischen den versuchen wo es geklappt hat und nicht habe ich keine Einstellungen verändert.

Private Sub Worksheet_Change(ByVal Target As Range) Const adRelZ1$ = "C13", adRelZ2$ = "F13" With Application .EnableEvents = False If Target.Address(0, 0) = adRelZ2 And _ Target "" And Me.Range(adRelZ1) "" Then Me.Range(adRelZ1) = "": MsgBox adRelZ1, vbExclamation, "Löschung" ElseIf Target.Address(0, 0) = adRelZ1 And Target "" And _ Target "" And Me.Range(adRelZ2) "" Then Me.Range(adRelZ2) = "": MsgBox adRelZ2, vbExclamation, "Löschung" End If .EnableEvents = True End With End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread