Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen B7:K16 in anderes Blatt kopieren

Zellen B7:K16 in anderes Blatt kopieren
Wolfgang
Hallo,
ich würde gerne erreichen, dass auf Schaltflächendruck aus dem Tabellenblatt "Start" der Bereich B7:K16 in das Tabellenblatt "Archiv" kopiert wird, allerdings immer nach oben -ab B2- als erstes. Vorheriger Text soll nach unten verschoben werden. Habe das mit dem Makrorekorder versucht, stolpere aber über das passende Einfügen. Da wird mir der Bereich immer wieder gelöscht. Kann mir da jemand weiterhelfen? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen B7:K16 in anderes Blatt kopieren
13.02.2011 11:12:08
Beverly
Hi Wolfgang,
beim Aufzeichnen mit dem Rekorder musst du beachten, dass du vor dem Kopieren zuerst die Zeilen 7:16 einfügst (Zeilen markieren -&gt Rechstklick -&gt Zellen einfügen) und sie damit nach unten verschiebst. Anschließend kopieren und in den nunmehr freien Bereich einfügen.

was zeigt denn bei Dir der Rekorder ?
13.02.2011 11:22:05
Matthias
Hallo
probiers doch mal so:
Worksheets("Start").Range("B7:K16").Copy
Worksheets("Archiv").Range("B2").Insert Shift:=xlDown
Gruß Matthias
AW: was zeigt denn bei Dir der Rekorder ?
13.02.2011 11:56:04
Wolfgang
Hallo Matthias,
ich habe Deinen Code probiert, er funktioniert auch grundsätzlich. Ich übersah dabei wohl, dass sich im Bereich auch Formeln befinden, die nicht mit kopiert werden sollen. Es soll also "nur" der Inhalt kopiert und eingefügt werden. Wie könnte ich Deinen Code da anpassen? Danke schon jetzt für die Rückmeldung.
Gruß - Wolfgang
Anzeige
Ergänzung bzw. weitere Fragen
13.02.2011 12:35:03
Wolfgang
Hallo Matthias,
ich habe noch weiter getestet, komme dabei aber "auf keinen grünen Zweig"; Wenn ich nur Inhalte einfüge, dann ist das vorherige Format weg und Daten werden nicht mehr sauber angezeigt. Wäre denkbar, dass das Format doch übernommen wird, aber nicht die Formeln? - Mein Problem mit dem Makrorekorder ist wohl auch, dass der vorherige Text überschrieben wird und nicht nach unten geschoben wird, wie bei Deinem Code. Sorry, dass ich mich so "scheibchenweise" melde.
Gruß - Wolfgang
AW: Beispiel ...
13.02.2011 13:38:56
Wolfgang
Hallo Matthias,
versuche ich, Dein Beispiel bei mir zu integrieren, erhalte ich Fehlermeldung dass Index ausßerhalb des Bereiches liegt. Ich habe nachstehend mal meinen aktuellen Versuch eingefügt, der auch soweit funktioniert. Nur dieses Insert Shift:=xlDown wüßte ich nicht anzubringen, welches wohl dazu dient, die Zeilen vor dem Einfügen nach unten zu verschieben(?) - Danke schon jetzt wieder für Deine Rückmeldung.
Gruß - Wolfgang
  • 
Sub Makro1()
Range("B7:K16").Select
Selection.Copy
Sheets("Archiv").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub

    • Anzeige
    Danke Matthias!!
    13.02.2011 16:31:08
    Wolfgang
    Hallo Matthias,
    soeben wollte ich vermelden, dass ich den Code von Gerd probiert hatte, um Dich nicht noch weiter zu bemühen und zu beschäftigen, da entdecke Deinen neuen Beitrag. Der Code darin funktioniert auch soweit, solange nicht verbundene Zellen "im Spiel" sind. Ich habe tatsächlich mehrere Zellen verbunden, so dass eine Fehlermeldung kommt. An dieser Stelle mein herzlicher Dank für Deine Geduld mit mir. Ich hatte Gerd auch geschrieben, ob evtl. auch ein Fehler darin liegen mag, dass ich die falsche Office-Version genannt hatte? - Meine Frage ist vollends beantwortet und geklärt. Danke!!!
    Gruß - Wolfgang
    Anzeige
    AW: Keine Ahnung ...
    13.02.2011 14:08:22
    Gerd
    Hallo Wolfgang!
    .... weshalb Du den funktionierenden Code von Matthias nicht übernimmst.
    Deiner läuft in einem Blattmodul zwangsläufig in einen Fehler, weil sich im Kontext (nur)
    Range("B2") auf die Tabelle des Moduls/Quelltabelle bezieht.
    Gruß Gerd
    AW: Keine Ahnung ...
    13.02.2011 14:25:45
    Wolfgang
    Hallo Gerd,
    Danke für Deine Rückmeldung. Ich habe den Code von Matthias auch eingebaut und probiert. Mein Problem ist, dass innerhalb des Kopierbereiches Zellen mit Formeln sind die, wenn ich nicht etwas verkehrt übernommen habe, mitkopiert werden und im eingefügten Bereich dann lediglich #Bezug anzeigen und nicht die Zahlen aus dem dem Quellbereich übernommen werden. Hättest Du da evtl. eine Idee, wie der Code umgestellt werden kann, dass tatsächlich "nur" die Werte und das Format, aber alles andere nicht, kopiert werden? - Danke schon jetzt für die Rückmeldung.
    Gruß - Wolfgang
    Ach so., Danke noch für den Hinweis bezüglich Blattmodul, ich hatte hier zunächst wohl den Fehler gemacht und alles immer in ein Blattmodul kopiert.
    Anzeige
    AW: Keine Ahnung ...
    13.02.2011 15:56:30
    Gerd
    Hallo Wolfgang,
    schaue mal, ob dies hinkommt. 
    Sub b()
Dim Q As Range, Z As Range
Set Q = Sheets("Start").Range("B7:K16")
Set Z = Sheets("Archiv").Range("B2:K11")
Z.Copy
Z(Z.Rows.Count + Z.Row - 1, 1).Insert shift:=xlShiftDown
Q.Copy
Z.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
With Z.Cells
.Value = Q.Value
End With
End Sub
    Gruß Gerd
    Das kommt super hin!!!
    13.02.2011 16:14:37
    Wolfgang
    Hallo Gerd,
    erneut herzlichen Dank für Deine Rückmeldung und den Code. Er läuft prima und genauso, wie ich es mir vorgestellt und gewünscht hatte. Mir ist zwar aufgefallen, dass ich evtl. auch einen "Bock" geschossen habe. Ich hatte noch OfficeXP angegeben, arbeite aber auf dem aktuellen PC mit Office 2007, wäre deswegen evtl. denkbar, dass ich den Code von Matthias nicht hinbekam? - Dein Code läuft ja, so dass meine Frage vollends geklärt ist. Nochmals recht herzlichen Dank und einen schönen Sonntag noch.
    Gruß - Wolfgang
    Anzeige
    AW: Das kommt super hin!!!
    13.02.2011 16:31:20
    Gerd
    Hallo Wolfgang,
    schön, dass es passt.
    In den Codes kann ich jetzt auf die Schnelle nichts Versionsspezifisches (03/07) erkennen.
    Gruß Gerd

    310 Forumthreads zu ähnlichen Themen

    Zellinhalt aus anderer Tabelle übernehmen
    Marc

    Hallo zusammen,
    habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
    Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
    21.08.2008 22:08:00
    Thread-ID: 1003658
    3 Beiträge
    Anzeige
    Daten sortiert aus anderem Tabellenblatt auslesen
    Robert

    Hallo,
    bräuchte eure Hilfe bitte.
    Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
    Habe da mal eine Beispieldatei zur besseren Veransch...
    28.08.2008 11:32:00
    Thread-ID: 1005356
    3 Beiträge
    Zeile mit Werten aus anderer Tabelle vergleichen
    onkelbobby

    Hi,
    ich versuche folgendes in meine Datei einzubauen.
    Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
    In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
    29.08.2008 10:37:00
    Thread-ID: 1005722
    3 Beiträge
    Anzeige
    Cursor auf anderes Blatt springen lassen
    KlausF

    Schönen Freitag-Morgen Leute!
    In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
    26.09.2008 08:02:06
    Thread-ID: 1012475
    3 Beiträge
    Übertrag auf anderes Blatt
    Sankt

    Hallo ,
    erstmal vielen Dank für Eue Hilfen.
    Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
    Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
    https://www.herb...
    02.10.2008 14:42:14
    Thread-ID: 1013889
    3 Beiträge
    Übertrag auf anderes Blatt
    Sankt

    Hallo,
    ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

    Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
    Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
    06.10.2008 11:50:21
    Thread-ID: 1014393
    7 Beiträge
    Text aus einer Zelle in ein anderes Tabellenblatt
    grigolet

    Hallo,
    ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
    09.10.2008 11:24:26
    Thread-ID: 1015295
    2 Beiträge
    Übertrag auf anderes Blatt
    Sankt

    Hallo
    ich habe da ein kleines Problem.
    Ich benutze folgende Formel
    =INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
    die funktioniert auch so weit ganz gut.
    Nun habe ich...
    03.11.2008 16:50:00
    Thread-ID: 1021376
    7 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    2
    7
    2
    2
    1
    2
    2
    6
    1
    6
    2
    6
    19
    2
    4
    1
    8
    4
    1
    1
    4
    4
    3
    8
    5