Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblatt kopieren ohne Zellbezüge (VBA)

Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.
Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möchte ich nicht.
Nun habe ich bereits versucht, im Zieldokument einfach per Copy & PasteSpecial die Zellbezüge zu entfernen. Leider zerschiesst Excel mir dabei aber die verbundenen Zellen.
Ich benötige also eine Methode, um den Inhalt des Tabellenblattes komplett (inkl. der Diagramme) in ein neues Tabellenblatt zu kopieren - mit gleicher Formatierung, aber nur mit den Werten.
Vielen Dank schon einmal!
Gruss,
S. Lutz
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Tabellenblatt kopieren ohne Zellbezüge (VBA)
11.08.2009 11:38:01
{Boris}
Hi,
alle Zellen in den Schutzeigenschaften als "Ausgeblendet" markieren und Blatt schützen. Jetzt kopieren und einfügen.
Grüße Boris
Ohne grösseren Aufwand
11.08.2009 11:42:19
Ramses
Hallo
Nach dem Kopieren
Sub test()
With ActiveSheet.UsedRange
.Value = .Value
End With
End Sub

Fertig
Gruss Rainer
Anzeige
AW: Ohne grösseren Aufwand
11.08.2009 11:49:46
S.
Hallo Rainer,
danke für deinen Tipp. Das funktioniert genauso, wie ich es haben möchte.
Dank natürlich auch an Boris!
Gruss
S. Lutz

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt kopieren ohne Zellbezüge in Excel


Schritt-für-Schritt-Anleitung

Um ein Excel-Arbeitsblatt zu kopieren ohne Zellbezüge zu übernehmen, kannst du die folgende Methode verwenden:

  1. Öffne das Excel-Dokument, das das Tabellenblatt enthält, das du kopieren möchtest.

  2. Öffne den VBA-Editor mit ALT + F11.

  3. Füge ein neues Modul hinzu:

    • Rechtsklicke auf "VBAProject (DeinDokumentName)".
    • Wähle "Einfügen" und dann "Modul".
  4. Kopiere den folgenden Code in das Modul:

    Sub CopySheetWithoutLinks()
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Sheets("DeinTabellenblattName") ' Ändere den Namen entsprechend.
    
        ws.Copy ' Kopiere das gesamte Blatt.
        With ActiveSheet.UsedRange
            .Value = .Value ' Konvertiere Zellbezüge in Werte.
        End With
    End Sub
  5. Ändere "DeinTabellenblattName" im Code auf den tatsächlichen Namen des zu kopierenden Blattes.

  6. Führe das Makro aus, indem du im VBA-Editor F5 drückst oder das Makro aus dem Excel-Menü startest.

Mit dieser Methode wird das komplettes Blatt kopieren durchgeführt, ohne die Zellbezüge zur Originaldatei zu übernehmen.


Häufige Fehler und Lösungen

  • Fehler: Zellbezüge bleiben erhalten

    • Lösung: Stelle sicher, dass die Zeile .Value = .Value im Code enthalten ist. Diese Zeile wandelt alle Zellinhalte in Werte um.
  • Fehler: Diagramme werden nicht kopiert

    • Lösung: Wenn Diagramme fehlen, überprüfe, ob sie im ursprünglichen Blatt vorhanden sind, und stelle sicher, dass das gesamte Blatt kopiert wird.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die manuelle Methode ausprobieren:

  1. Wähle das Tabellenblatt aus, das du kopieren möchtest.
  2. Klicke auf Strg + C, um das Blatt zu kopieren.
  3. Gehe zum Ziel-Dokument und klicke mit der rechten Maustaste auf die gewünschte Position.
  4. Wähle „Inhalte einfügen“ und dann „Werte“, um nur die Werte ohne Zellbezüge zu übernehmen.

Diese Methode kann jedoch zeitaufwendig sein, wenn viele Diagramme oder formatierten Inhalte vorhanden sind.


Praktische Beispiele

  1. VBA-Methode für das Kopieren eines Arbeitsblatts:

    Sub CopyAndPasteSpecial()
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Sheets("Verkauf")
        ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        With ActiveSheet.UsedRange
            .Value = .Value
        End With
    End Sub
  2. Manuelles Kopieren:

    • Du kannst auch mehrere Tabellenblätter in ein Tabellenblatt kopieren, indem du die Inhalte der jeweiligen Blätter nacheinander in ein neues Blatt einfügst und dabei die „Werte“ Paste-Option verwendest.

Tipps für Profis

  • Nutze die Kai Methode, um effizienter mit Arbeitsblättern zu arbeiten, insbesondere wenn du häufig kopierst und einfügst.
  • Erstelle eine Liste aller Tabellenblätter ohne VBA, um einen besseren Überblick über deine Blätter zu erhalten.
  • Wenn du mehrere Tabellenblätter in ein Tabellenblatt kopieren ohne Makro möchtest, kannst du die "Gruppieren" Funktion nutzen, um die Blätter gleichzeitig auszuwählen und dann die Inhalte zu kopieren.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Tabellenblätter gleichzeitig kopieren?
Du kannst mehrere Tabellenblätter auswählen, indem du Strg und die gewünschten Blätter anklickst. Danach kannst du sie mit der oben beschriebenen Methode kopieren.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die Methoden funktionieren in den meisten Excel-Versionen, die VBA unterstützen. Achte darauf, dass du die VBA-Entwicklung in deinen Excel-Einstellungen aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige