Bereich als Wert mit Quellformatierung
03.02.2022 09:23:20
Sabrina
ich bin am verzweifeln. Ich benötige eure Hilfe!
Ich kopiere aus einem Tabellenblatt einen Bereich, diesen füge ich in die zweite freie Zeile eines anderen Tabellenblatts ein. Eingefügt werden dürfen aber nur Werte und die Formatierung soll bestehen bleiben.
Über den Makrorecorder habe ich folgenden Code erhalten:
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Hier zeigt er mir aber nur den Wert ohne die Formatierung an.
Ich habe mir den Code so abgeändert:
'kopieren aus der Auswertung
Sheets("Auswertung").Select
Range("A74:H79").Select
Selection.Copy
'Einfügen in der Historie als Quellformatierung
Sheets("Historie").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Hier hat er dann die Formatierung aber noch die Formeln aus der Auswertung drin ich benötige aber nur die Werte.
Ich wollte jetzt mit einer Verknüpfung arbeiten und dann einfach den Bereich kopieren und als Wert einfügen. Soweit so gut, allerdings funktioniert der Befehl:
Sheets("Historie Stakeholder").Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).PasteSpecial Link:=True nicht.
ich bekomme einen Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler ausgespuckt.
Ich habe schon gegoogelt und mich in Foren belesen aber leider keine funktionierende Lösung gefunden.
Kann mir jemand von euch helfen?
Danke!
Viele Grüße
Sabrina