Per Makro prüfen, ob Zellen verbunden sind

Computer: Software & Programmierung Office Software
#1

Hallo,

Wie kann ich per Makro prüfen ob Zellen miteinander verbunden sind?

konkretes Beispiel:

Zelle C3 ist mit 3 umliegenden Zelln verbunden C2, B2, B3
gegeben Zelle C3, wie kann ich abfragen mit welchen Zellen
diese Zelle verbunden ist?
In VBA !!! ,so in EXCEL kann ich das natürlich sehen.

besten Dank im Voraus
Bernd

#2

Hallo Bernd

Wie kann ich per Makro prüfen ob Zellen miteinander verbunden
sind?

konkretes Beispiel:

Zelle C3 ist mit 3 umliegenden Zelln verbunden C2, B2, B3
gegeben Zelle C3, wie kann ich abfragen mit welchen Zellen
diese Zelle verbunden ist?
In VBA !!! ,so in EXCEL kann ich das natürlich sehen.

Heisst das, in Zelle C3 steht eine FORMEL und du willst wissen, welche Zellen darin vorkommen?
Wenn ja, kann man mit einem Makro die Formel analysieren; dabei muessen jedoch nicht nur direkte Zelladressen, wie „C2“ etc. abgefragt werden, sondern auch andere Bezuege, z.B. via OFFSET aufgerufene Zellen; ueberdies koennten gewisse Zellen auch einen NAMEN haben.
Koennetest du bitte die Frage entsprechend verfeinern?
Gruss
Erich

#3

Hallo Bernd

Wie kann ich per Makro prüfen ob Zellen miteinander verbunden
sind?

konkretes Beispiel:

Zelle C3 ist mit 3 umliegenden Zelln verbunden C2, B2, B3
gegeben Zelle C3, wie kann ich abfragen mit welchen Zellen
diese Zelle verbunden ist?
In VBA !!! ,so in EXCEL kann ich das natürlich sehen.

Heisst das, in Zelle C3 steht eine FORMEL und du willst
wissen, welche Zellen darin vorkommen?

Nein, ich meine:
Zellen formatieren -> Ausrichtung -> Zellen verbinden

DIESES Zellen verbinden

Offset würde mir reichen
z.B. 1 Zelle nach oben und 1 Zelle nach links (in diesem Beispiel)

Danke für die schnelle Antwort
Bernd

#4

Zelle C3 ist mit 3 umliegenden Zelln verbunden C2, B2, B3
gegeben Zelle C3, wie kann ich abfragen mit welchen Zellen
diese Zelle verbunden ist?
In VBA !!! ,so in EXCEL kann ich das natürlich sehen.

Sub mergedtest()

If Selection.MergeCells Then
 MsgBox "die Gewählte Zelle ist ein Zellverbund und gehört zur Range: " + Selection.Address
Else
 MsgBox Selection.Address + " ist eine unverbundene Zelle"
End If


End Sub
#5

Vielen Dank,
hat mir sehr geholfen und VIEL Zeit gespart!

Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]