Office: Sheet kopieren ohne Verknüpfung

Macanudo · 27. Januar 2018

Guten Morgen in die Runde,

mit dem unten angefügten Code kopiere ich ein Tabellenblatt in eine andere Datei. Das klappt auch wunderbar bis zu dem Augenblick, als ich in dem Ausgangstabellenblatt eine Verknüpfung erstellt habe. Nun kopiert er mir diese mit.

Kann man diesen Code anpassen, dass er das nicht macht?

Vielen Dank.

Viele Grüße

Uwe
Code:

Sub kopieren()
Application.ScreenUpdating = False
Worksheets("Rechnung").Select

Dim NeuerTabellenName As String

NeuerTabellenName = Worksheets("Diverses").Range("B6").Value
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.UsedRange.Cells = ActiveSheet.UsedRange.Cells.Value
Sheets(Sheets.Count).Name = NeuerTabellenName

Workbooks.Open Filename:="C:UsersrittePicturesRechnungen 2017Mappe1.xlsx"
ThisWorkbook.Activate
ActiveSheet.Move After:=Workbooks("Mappe1.xlsx").Sheets(Workbooks("Mappe1.xlsx").Sheets.Count)
Workbooks("Mappe1.xlsx").Save
Workbooks("Mappe1.xlsx").Close
'Call PDF
Application.ScreenUpdating = True
'Call Listeeintragen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

drambeldier · 28. Januar 2018

Moin,

was ist

eine Verknüpfung
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

- ein Hyperlink? Dann geh ins Blatt, Macrorecorder ein, Hyperlink entfernen, Macrorecorder aus, Code kopieren und anpassen.

Macanudo · 28. Januar 2018

Hallo,

kein Hyperlink, ein Bezug auf eine andere Zelle in einem anderen Tabellenblatt. Ich kenne es unter dem Namen "Verknüpfung".

Wenn das Tabellenblatt kopiert wurde und ich öffne diese Datei, dann möchte er diese Verknüpfung aktualisieren. Aber diese Verknüpfung kann ich auch nicht löschen.

Vielen Dank.

Viele Grüße
Uwe

aloys78 · 28. Januar 2018

Hallo Uwe,

...ein Bezug auf eine andere Zelle in einem anderen Tabellenblatt. Ich kenne es unter dem Namen "Verknüpfung".
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich nehme einmal an, diese Verknüpfung läge in A1.

Dann sehe ich 2 Möglichkeiten: Code:

NeuerTabellenName = Worksheets("Diverses").Range("B6").Value
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.UsedRange.Cells = ActiveSheet.UsedRange.Cells.Value
Sheets(Sheets.Count).Name = NeuerTabellenName

' Alternative 1: Verknüpfung löschen, aber Wert belassen
With ActiveSheet
.Range("A1") = .Range("A1").Value
End With

' oder Alternative 2: Zelle löschen
With ActiveSheet
.Range("A1").ClearContents
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Macanudo · 29. Januar 2018

Hallo Aloys,

Alternative 1 wäre die Wahl. Es sind 4 Bezüge. Muss ich da für jeden Bezug so einen Code:

With ActiveSheet
.Range("A1") = .Range("A1").Value
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code schreiben? Es sind die Zellen E26,E29,E32,E35.

Vielen Dank für Deine Hilfe.

Viele Grüße
Uwe

aloys78 · 29. Januar 2018

Hallo Uwe,

probier es doch mal mit E26.

Gruß
Aloys

Macanudo · 29. Januar 2018

Hallo Aloys,

ich habe die Alternative 1 ausprobiert und es kam wieder die Aktualisierungsaufforderung.

Jetzt habe ich Alternative 2 ausprobiert und etwas experimentiert. Jetzt funktioniert es einwandfrei.

Zu meiner Schande muss ich gestehen, dass es sich nicht um eine einfache Verknüpfung handelte, sondern um ein Dropdownfeld, welches den Fehler verursachte und immer mitkopiert wurde.

Mit der modifizierten Alternative 2 klappt es einwandfrei.

Vielen Dank für Deine Hilfe.

Anbei mein Ergebniscode.

Code:

Sub kopieren()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Rechnung").Select

Dim NeuerTabellenName As String

NeuerTabellenName = Worksheets("Diverses").Range("B6").Value
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.UsedRange.Cells = ActiveSheet.UsedRange.Cells.Value
Sheets(Sheets.Count).Name = NeuerTabellenName

With ActiveSheet
.Range("E26").Clear
End With
With ActiveSheet
.Range("E29").Clear
End With

With ActiveSheet
.Range("E32").Clear
End With

With ActiveSheet
.Range("E35").Clear
End With

'Workbooks.Open Filename:="C:UsersrittePicturesRechnungen 2017Mappe1.xlsx"
ThisWorkbook.Activate
ActiveSheet.Move After:=Workbooks("Mappe1.xlsx").Sheets(Workbooks("Mappe1.xlsx").Sheets.Count)
Workbooks("Mappe1.xlsx").Save
Workbooks("Mappe1.xlsx").Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank.

Viele Grüße
Uwe

aloys78 · 29. Januar 2018

Hallo Uwe,

Zu meiner Schande muss ich gestehen, dass es sich nicht um eine einfache Verknüpfung handelte, sondern um ein Dropdownfeld, welches den Fehler verursachte und immer mitkopiert wurde.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wäre ich Hellseher, wäre ich selbst darauf gekommen !

Gruß
Aloys

Macanudo · 29. Januar 2018

Hallo Aloys,

man kann nicht alles sein. *wink.gif*

Vielen Dank für Deine Hilfe, damit schließe ich das Thema.

Viele Grüße

Uwe

Office: Sheet kopieren ohne Verknüpfung

Sheet kopieren ohne Verknüpfung

Sheet kopieren ohne Verknüpfung

Sheet kopieren ohne Verknüpfung

Sheet kopieren ohne Verknüpfung

Sheet kopieren ohne Verknüpfung - Similar Threads - Sheet kopieren Verknüpfung

Spalte kopieren ohne Dublikate in anderes Sheet

Sheet in neues Workbook Object kopieren

Sheet ansprechen und Daten kopieren

Sheets in ein anderes Workbook kopieren/verschieben

Einfaches Kopieren geht nicht in bestimmte Sheets

Laufzeitfehler beim Sheet kopieren

Range direkt kopieren ohne Sheet zu aktivieren?