Hallo,
mein Problem:
Ich suche eine Lösung um Werte in ein anderes Tabellenblatt zu kopieren.
Mein Programmcode kopiert allerdings alle Formate mit. Das möchte ich ändern.
Meine Versuche sind bisher erfolglos geblieben, auch PastSpecial habe ich probiert.
'Code funktioniert, allerdings mit Formaten:
Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range("A" & n + 2)
'meine erfolglosen Versuche um nur die Werte einzufügen
'was mache ich falsch?
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range(Range("A" & n + 2))
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range(Range("A" & n + 2).Value)
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy Destination:=Sheets(Kalenderblatt).Range("A" & n + 2).Value
'Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5).Copy.PasteSpecial Paste:=xlPasteValues Destination:=Sheets(Kalenderblatt).Range("A" & n + 2)
Ich würde mich über einen Lösungsansatz sehr freuen.