Thema: mit VBA Zellen koppieren | Herbers Excel-Forum

Hallo,
ich möchte aus dem Blatt "Berechnung " in eine "Zielblatt" Werte koppieren.
Das klappt mit dem folgenden Code einwandfrei, wenn die Zellen nicht verbunden sind.
Im Quellblatt und im Zielblatt sind jedoch zwei Zellen verbunden.
Im Quellblatt sind F7 und G7 und im Zielblatt P9 und Q9 verbundene Zellen.
VBA meldet jedoch, dass verbundene Zellen die gleich Größe haben müssen.
Aber die beiden verbundenen Zellen haben doch die gleiche Größe.
Ich hoffe es hat jemand einen Tip für mich.
Vielen Dank im Voraus
Gruß Horst.

Worksheets("Berechnung").Range("F7").Copy
With Worksheets("Zielblatt").Range("P9")
.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False

Hallo Horst,
definiere zuerst im Zielblatt die Zelle P9 wie du sie später willst.
Dann versuche es mal wie folgt:
Dim a As Variant
a = Worksheets("Berechnung").Range("f7")
Worksheets("Zielblatt").Range("p9") = a
Grundsätzlich sollte man wenn es irgendwie geht meiner Meinung nach verbundene Zellen vermeiden. Mit diesen ist gemäß meiner Erfahrung immer etwas kompliziert zu evrfahren.
Gruß
welga

Hallo Welga,
super, so geht es.
Es geht sogar auch ohne a
Also:
Worksheets("Zielblatt").Range("p9") = Worksheets("Berechnung").Range("f7")
Manchmal sind komlizierte Dinge ganz einfach, aber man sieht es halt nicht.
Warum meine Lösung nicht geht .....
Vielen Dank nochmals
Gruß Horst

Hallo Horst,
so funktioniert das Kopieren von verbundenen Zellen:
ActiveSheet.Range("F7").MergeArea.Copy
'hier ist der Select-Befehl wirklich nötig
ActiveSheet.Range("P9").MergeArea.Select
'und das ist kein Schreibfehler
ActiveSheet.Paste
Application.CutCopyMode = False
Gruß von Luschi
aus klein-Paris