Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Objekte in neues Tabellenblatt kopieren

Forumthread: Objekte in neues Tabellenblatt kopieren

Objekte in neues Tabellenblatt kopieren
27.01.2009 15:22:00
Bertram
Hallo zusammen,
ich kopiere ein komplettes Tabellenblatt per VBA in ein (temporäres) neues Tabellenblatt ohne den Code des TBs zu kopieren, verschiebe dieses und speichere es als neue Datei ab. Soweit so gut. Allerdings habe ich auch 4 Kästchen (OK1 bis OK4) auf meinem Tabellenblatt, die ich nachher auch wieder brauche.
Das Kopieren der Kästchen ist auch noch nicht das Problem, ABER:
OK2 bis OK4 werden an die richtige Stelle kopiert. OK1 aber NICHT. Das muss ich hinterher erst wieder an die passende Position rücken (der Teil ist im Code aktuell auskommentiert, damit ihr seht was ich meine).
Kann mir das jemand erklären, warum das so ist?
Beispiel hier: https://www.herber.de/bbs/user/58836.xls
Danke und Gruß
Bertram
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Objekte in neues Tabellenblatt kopieren
27.01.2009 15:53:00
Tino
Hallo,
habe ich dich richtig verstanden?
Hiermit sind die Kästchen genau an der Stelle wie im Originale.
Dim mytab As Worksheet, aktSheet As Worksheet
Set aktSheet = Sheets(1)
Set mytab = Sheets.Add
aktSheet.Cells.Copy mytab.Cells
Gruß Tino
AW: Objekte in neues Tabellenblatt kopieren
27.01.2009 16:04:46
Tino
Hallo,
oder so, wenn Du nur die Werte haben möchtest ohne Formel.

Dim mytab As Worksheet, aktSheet As Worksheet
Set aktSheet = Sheets(1)
Set mytab = Sheets.Add
aktSheet.Cells.Copy mytab.Cells
mytab.UsedRange.Value = mytab.UsedRange.Value


Gruß Tino

Anzeige
Sieht gut aus:-)
27.01.2009 16:20:45
Bertram
Hallo Tino,
habe das mal in mein Original gestrickt und auf den ersten Blick scheint alles zu passen.
Hätte auch selber drauf kommen können, das .PasteSpecial xlValues durch .Value = .Value zu ersetzten. Aber wenn man die ganze Zeit draufstiert, siehrt man nix mehr:-)
Danke dir. Nu hab ich auch meine ollen Kasterl mit dabei.
Gruß
Bertram
Anzeige
;

Forumthreads zu verwandten Themen

Kopieren eines Bereiches in ein neues Arbeitsblatt
Anett

Hallo,
ich habe ein Problem bei dem ich nicht weiterkomme:
Ich möchte einen Bereich aus einem Arbeitsblatt in ein anderes von insgesamt 20 Arbeitsblatt kopieren. Allerdings gibt es noch eine Schwierigkeit: Der zu kopierende Bereich hat 124 Zeilen. Jede Zeile soll abhängig von Ihrem Inha...
10.09.2008 11:12:00
Thread-ID: 1008687
2 Beiträge
Letzte Zeile in neues Blatt kopieren
Matthias

Hallo zusammen,
ich habe zwar in der Suche einiges über die LETZTE ZEILE gefunden, aber mein Problem konnte ich dennoch nicht richtig lösen.
Hier, was ich habe:
- In einer Excel-Datei mehrere Tabellen, die Anzahl kann sich ändern (z.B. Tabelle1, Tabelle2, Tabelle3...Tabelle 30)
...
11.09.2008 07:20:00
Thread-ID: 1008963
7 Beiträge
Variablen Bereich in neues Blatt kopieren
robert

Ein Hallo an Alle
ich hätte gerne Hilfe zu meiner Aufgabe
es geht um das kopieren von einem variablen Bereich von Blatt Daten auf Blatt Auswertung
genauere Beschreibung in der Datei
https://www.herber.de/bbs/user/58797.xls
Bitte um Hilfe und Gruß
Robert
26.01.2009 12:43:27
Thread-ID: 1043840
16 Beiträge
Mittelwerte in ein neues Blatt kopieren per VBA
Drusilla

Hallo liebe Profis
Da mir letztes Mal so gut geholfen wurde, würde ich euch gerne nochmals fragen. Ich möchte per Makro folgendes erreichen:
-neues Blatt generieren mit dem Namen „Uebersicht“
-dort Mittelwerte (sind schon berechnet, schreibe das nur, damit ihr wisst, dass in der...
06.05.2009 09:51:09
Thread-ID: 1073265
2 Beiträge
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 Beiträge
Anzeige
Autofilter, kopieren in neues Blatt fehlerhaft
Günther

Guten Morgen,
mit folgendem Code prüfe ich, ob der Eintrag "TED" vorkommt, lasse dann entsprechend filtern und in das eigene Blatt TED kopieren.
Funktioniert aber nur, wenn tatsächlich ein TED-Eintrag besteht. Ist keiner vorhanden kopiert _ es ALLE Datensätze. Kann man hier evtl. mit e...
01.12.2009 11:08:07
Thread-ID: 1121160
3 Beiträge
Kopieren von Daten in ein neues Arbeitsblatt
Daten

Hallo liebe Excel-Freunde,
ich habe folgendes VBA-Problem:
Bei betätigen eines Buttons möchte ich, dass VBA mir den Bereich "B9:N13" und den Bereich "B18:22" in das Arbeitsblatt "History" kopiert.
Hierbei möchte ich, dass VBA automatisch die erste freie Zeile aktiviert und von dort...
19.02.2010 11:00:56
Thread-ID: 1139693
5 Beiträge
Bereich kopieren, in neues Blatt einfügen.
Chris

Hallo zusammen,
ich habe mir folgendes Makro geschrieben, dass mir ein neues Tabellenblatt erzeugt und den Name des Blattes aus einer Zelle liest. Läuft soweit.
Nun bräuchte ich noch den Zusatz, dass vom Ausgangsblatt ("Tabelle1"), der Bereich D1:F28 kopiert wird und
jeweils in das...
13.09.2011 23:44:34
Thread-ID: 1229775
11 Beiträge
30 Tabellen in ein Blatt untereinander kopieren
Bernhard

Hallo liebe Excel-Gemeinde,
ich habe 2 Stunden im Forum gesucht, aber leider erfolglos. Daher bitte ich nunmehr um Eure Hilfe.
In einem Verzeichnis "B:\Quelldaten" liegen 30 Dateien mit jeweils 1 Blatt. Die Dateien - jede hat ein Blatt - weisen alle eine gleiche Spalten-Struktur auf. Le...
28.01.2012 23:10:05
Thread-ID: 1248427
7 Beiträge
Kopieren von Blatt in neues Blatt...
Blatt

Hi,
ich habe in einer Datei das Problem, dass ich einen Bereich kopiere,
den ich nicht in ein anders Blatt einfügen kann.
Die Einfügeoptionen werden nicht angezeigt, Cells.Reset hat nichts gebracht.
Workbook oder Worksheets- Ereignisse sind nicht vorhanden.
Woran kann es lie...
06.12.2012 18:20:04
Thread-ID: 1289659
5 Beiträge
INDIREKT Befehl auf neues Datenblatt übertragen
Pogonatherum

Hallo,
habe folgende Formel in meiner Datei:
=SUMME(INDIREKT("AO"&SVERWEIS(Q32;$AC:$AD;2;FALSCH)):INDIREKT("AO"&SVERWEIS(Q32;$AC:$AE;3;FALSCH)))
in AC, AD und AE stehen Zahlen die durch den Indirekten Befehl eine gezielte Zelle ansteuern.
Ich möchte diese Formel in ein a...
20.04.2013 21:25:47
Thread-ID: 1309664
4 Beiträge
Anzeige
Auswahl von Zeilen in neues Blatt kopieren
Wolfgang

Ein Gruss an die Spezialisten,ich würde gerne aus einer Excel-Tabelle Zeilen nach bestimmten Kriterien (Text) auswählen und alle Zeilen, die mit diesem Kriterium übereinstimmen, in eine andere (bestehende) Excel-Tabelle übertragen. Da diese Funktion immer dann laufen soll, wenn man die (bestehe...
09.07.2002 14:04:18
Thread-ID: 135075
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Objekte in neues Tabellenblatt kopieren

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Modul einfügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei)", wähle "Einfügen" und dann "Modul".

  3. Code einfügen: Kopiere den folgenden VBA-Code in das neue Modul:

    Sub KopiereTabellenblatt()
    Dim mytab As Worksheet, aktSheet As Worksheet
    Set aktSheet = Sheets(1) ' Aktuelles Tabellenblatt
    Set mytab = Sheets.Add ' Neues Tabellenblatt hinzufügen
    aktSheet.Cells.Copy mytab.Cells ' Kopiere alle Zellen
    mytab.UsedRange.Value = mytab.UsedRange.Value ' Nur Werte kopieren
    ' Kästchen kopieren
    aktSheet.OLEObjects("OK1").Copy
    mytab.PasteSpecial
End Sub

  4. Kästchen anpassen: Stelle sicher, dass die Kästchen korrekt benannt sind (OK1 bis OK4). Füge gegebenenfalls Code hinzu, um deren Positionen nach dem Kopieren anzupassen.

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.

Häufige Fehler und Lösungen

  • Kästchen werden nicht korrekt kopiert: Überprüfe die Namen der Kästchen. Sie müssen exakt mit dem im Code übereinstimmen (z.B. "OK1").
  • Fehler beim Einfügen: Stelle sicher, dass das Zielblatt aktiv ist, wenn Du die Kästchen einfügst.
  • Formeln bleiben erhalten: Wenn Du nur Werte möchtest, benutze .Value = .Value wie im Codebeispiel gezeigt.

Alternative Methoden

  • Manuelles Kopieren: Du kannst auch die Kästchen manuell kopieren, indem Du sie auswählst, STRG + C drückst und im neuen Blatt STRG + V einfügst.
  • Power Query: Verwende Power Query, um Daten aus einem Tabellenblatt in ein anderes zu übertragen, falls Du komplexere Datenverarbeitung benötigst.

Praktische Beispiele

  • Kopieren einer kompletten Excel-Tabelle: Um eine gesamte Excel-Tabelle in ein neues Blatt zu kopieren, kannst Du den oben genannten VBA-Code verwenden.
  • Spezifische Kästchen kopieren: Wenn Du nur bestimmte Kästchen, wie "OK1", kopieren möchtest, kannst Du diese gezielt im Code ansprechen.

Tipps für Profis

  • Kästchen positionieren: Wenn Du die Kästchen an bestimmten Positionen auf dem neuen Blatt einfügen möchtest, kannst Du die Top und Left Eigenschaften der Kästchen anpassen, um sie exakt zu platzieren.
  • Code optimieren: Überlege Dir, wie Du den Code modularisieren oder Schleifen verwenden kannst, um mehrere Kästchen effizient zu kopieren.

FAQ: Häufige Fragen

1. Kann ich auch mehrere Tabellenblätter gleichzeitig kopieren?
Ja, Du kannst eine Schleife in Deinem VBA-Code verwenden, um mehrere Tabellenblätter nacheinander zu kopieren.

2. Wie kann ich nur bestimmte Zellen kopieren?
Anstelle von aktSheet.Cells.Copy kannst Du einen spezifischen Bereich angeben, z.B. aktSheet.Range("A1:B10").Copy.

3. Was mache ich, wenn die Kästchen nicht angezeigt werden?
Überprüfe, ob die Sichtbarkeit der Kästchen in den Eigenschaften auf "Visible" gesetzt ist. Du kannst dies im VBA-Editor anpassen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige