Tabellenblatt kopieren und Verknüpfungen löschen
Schritt-für-Schritt-Anleitung
Um ein Excel-Blatt in eine andere Datei zu kopieren und dabei die Verknüpfungen zu löschen, kannst du die folgende VBA-Prozedur verwenden:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu starten.
- Klicke auf
Einfügen > Modul, um ein neues Modul zu erstellen.
- Füge den folgenden Code ein:
Sub Werte_Format()
Workbooks.Add ' Neue Arbeitsmappe erstellen
' Formeln ersetzen durch Werte mit Formate
Workbooks("Auftragsverwaltung.xls").Worksheets("Einbau von BG").Cells.Copy
With ActiveSheet.Range("A1")
.PasteSpecial Paste:=xlValues ' Werte einfügen
.PasteSpecial Paste:=xlFormats ' Formate einfügen
End With
Application.CutCopyMode = False
End Sub
- Schließe den VBA-Editor und führe das Makro aus.
Diese Anleitung hilft dir, das Excel-Tabellenblatt zu duplizieren, ohne die Verknüpfungen zu übertragen.
Häufige Fehler und Lösungen
-
Fehler: Die Formatierungen sind nach dem Kopieren verloren gegangen.
Lösung: Stelle sicher, dass du .PasteSpecial Paste:=xlFormats verwendest, um die Formatierungen zu erhalten.
-
Fehler: Das neue Tabellenblatt wird nicht in einer neuen Datei geöffnet.
Lösung: Achte darauf, dass Workbooks.Add im Code verwendet wird, um eine neue Arbeitsmappe zu erstellen.
Alternative Methoden
Es gibt auch die Möglichkeit, das Excel-Blatt manuell zu kopieren:
- Markiere das gesamte Blatt, indem du auf den Tab des Blattes mit der rechten Maustaste klickst und
Verschieben oder Kopieren auswählst.
- Wähle
Neue Arbeitsmappe aus und aktiviere die Option Kopie erstellen.
- Klicke auf
OK. Danach kannst du die Verknüpfungen manuell löschen, falls notwendig.
Praktische Beispiele
Wenn du das Excel-Blatt "Einbau von BG" aus der Datei "Auftragsverwaltung.xls" kopieren möchtest, kannst du einfach den oben genannten VBA-Code anpassen. Ersetze die Namen entsprechend, wenn du ein anderes Blatt oder eine andere Datei verwenden möchtest.
Beispiel für das Kopieren und Löschen von Verknüpfungen:
Sub Kopieren_und_Verknüpfungen_löschen()
Workbooks.Add
Workbooks("Auftragsverwaltung.xls").Worksheets("Einbau von BG").Cells.Copy
With ActiveSheet.Range("A1")
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
End Sub
Tipps für Profis
- Verwende
Application.ScreenUpdating = False, um das Flackern des Bildschirms während des Kopiervorgangs zu vermeiden.
- Füge eine Fehlermeldung hinzu, wenn die Datei oder das Blatt nicht existiert, um deinen Code robuster zu machen.
Beispiel:
If Not Evaluate("ISREF('Auftragsverwaltung.xls'!Einbau von BG)") Then
MsgBox "Das Blatt existiert nicht!"
Exit Sub
End If
FAQ: Häufige Fragen
1. Wie kann ich Verknüpfungen in Excel löschen?
Verknüpfungen können manuell entfernt werden, indem du die Zellen mit Verknüpfungen auswählst und Bearbeiten > Inhalte einfügen > Werte wählst.
2. Welche Excel-Version benötige ich für das VBA-Skript?
Das Skript sollte in Excel-Versionen ab Excel 2003 funktionieren. Es kann jedoch geringfügige Unterschiede in der Benutzeroberfläche geben.