Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mit VBA Zellen koppieren

mit VBA Zellen koppieren
Horst
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

  • 3
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Benutzer
    Anzeige
    AW: mit VBA Zellen koppieren
    08.01.2010 09:55:18
    welga
    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
    AW: mit VBA Zellen koppieren
    08.01.2010 10:23:47
    Horst
    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
    Anzeige
    AW: mit VBA Zellen koppieren
    08.01.2010 10:23:14
    Luschi
    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

    299 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige