|
Hi liebe community,
ich bin mit meinem Code nicht zufrieden. Folgendes Schnipsel kopiert Werte und Format von Blatt1 in Blatt2
Private Sub CopyButton_Click()
'Format übertragen
Worksheets(1).Range("A1:B5").Copy
Worksheets(2).Range("A1").PasteSpecial Paste:=xlPasteFormats
' Werte übertragen
Worksheets(1).Range("A1:B5").Copy
Worksheets(2).Range("A1").PasteSpecial Paste:=xlPasteValues
' Irgendwie die Selektion loswerden
Worksheets(1).Range("A1").Select
Worksheets(1).Range("A1").Activate
End Sub
Die Werte und das Format wird zwar übertragen, aber es bleibt nach Paste die Auswahl in Worksheet(1). Da es keinen unselect Befehl gibt, wollte ich die Selektion mit dem letzten Zweizeiler loswerden, aber es klappt nicht.
Es soll wirklich nur Wert und Format, also keine Formeln übertragen werden. Deswegen kann ich sagen wie
Worksheet(2).Range("A1").Value = Worksheet(1).Range("A1:B5").Value
nicht benutzen, genausowenig
Worksheets(1).Range("A1:B5").Copy Destination:=Worksheets(2).Range("A1")
Danke für die Hilfe!
nbt
|