Microsoft Excel

Herbers Excel/VBA-Archiv

mit VBA Zellen koppieren | Herbers Excel-Forum


Betrifft: mit VBA Zellen koppieren von: Horst
Geschrieben am: 08.01.2010 09:41:09

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

  •   

    Betrifft: AW: mit VBA Zellen koppieren von: welga
    Geschrieben am: 08.01.2010 09:55:18

    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


      

    Betrifft: AW: mit VBA Zellen koppieren von: Horst
    Geschrieben am: 08.01.2010 10:23:47

    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


      

    Betrifft: AW: mit VBA Zellen koppieren von: Luschi
    Geschrieben am: 08.01.2010 10:23:14

    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


    Beiträge aus den Excel-Beispielen zum Thema "mit VBA Zellen koppieren"