Office: mit Maus-Doppelklick ein "x" in verbundenen Zellen setzen

Hallo liebes Forum,
benötige die Unterstützung bei einem Makro-Problem.

Ich habe ein Makro mit dem ich in definierten Zellen bei einem Doppelklick mit der Maus ein "x" in die Zelle setze kann.
Dieses Makro funktionierte bei nicht verbundenen Zellen auch ohne Probleme.
Jetzt möchte ich diese Funktion aber auch mit verbundenen Zellen (Beispiel: Zellen A1 und B1 ergeben eine gemeinsame Zelle oder aus den 4 Zellen C1,D1 und C2,D2 werden eine gemeinsame Zelle) anwenden. Bisher bekomme ich aber über nur eine Fehlermeldung.
Kann mir da jemand weiter helfen?

Unten der Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("U23:U30,AN23:AN30,I68:I75,I77:I81")) Is Nothing Then Exit Sub
Cancel = True
If Target.Value = "" Then
Target.Value = "x"
Else
Target.Value = ""
End If
Range("A1").Activate
End Sub

:)

 

UPS,
ich glaube ich bin im falschem Themengebiet, bei meiner Frage handelt es sich um ein VB-Problem

Es handelt sich bei dem verwendeten Exel um die Version 2003 Pro mit SP3

Kann jemand mir schreiben wie man Beiträge in andere Themengebiete verschiebt, da ich neu hier bin hab ich da noch nachholbedarf

Danke auch für Euer Verständniß

MfG
NetMaster

 

Moin, NetMaster1001,

Benutzer können keine Beiträge verschieben oder löschen - dies Recht ist den Administratoren und Moderatoren vorbehalten.

Zum Problem: Wenn Dein Zielgebiet aus mehreren Zellen besteht, kannst Du damit nicht so vorgehen wie mit einer einzigen Zelle, sondern musst eigentlich die Zellen als Range durchlaufen. Verbundene Zellen bilden da eine Ausnahme, denn zum Einen sollte man generell auf die Verwendung dieses Malheurs verzichten (siehe Deine Fehlermeldung), zum Anderen kann man das wegen des Zusammenfassens des Inhaltes aller Zellen auf die jeweils erste Zelle beschränken und wie folgt lösen:

Code:

Thread wird nach Excel verschoben.

 

Danke jinx,
das hat geklappt so wollte ich es haben.*Smilie
Und zus. was gelernt, was will man mehr!
gruß NetMaster

 

\@jinx:

Ist das beim Doppelklicken überhaupt möglich?

 

Moin, FW,

gemeint waren in diesem Zusammenhang verbundene Zellen, nicht einzelne Zellen.