Ich habe folgendes geschrieben, aber es wird immer nur eine Zelle kopiert.
Was ist falsch? Kann es jemand bitte korrigieren?
[code]
Private Sub But_Zurueck_Click()
Sheets(3).Select
Selection.Copy
Sheets(2).Select
ActiveSheet.Paste
End Sub
[/code]
Private Sub But_Zurueck_Click()
Sheets(3).Select
Selection.Copy
Sheets(2).Select
ActiveSheet.Paste
End Sub
Private Sub But_Zurueck_Click()
Sheets(3).Cells.Select
Selection.Copy
Sheets(2).Select
Cells.Select
ActiveSheet.Paste
End Sub
Sub test()
Sheets(1).UsedRange.Copy Destination:=Sheets(2).[a1]
End Sub
Sub tt()
r = Worksheets(3).UsedRange.Row
c = Worksheets(3).UsedRange.Column
Worksheets(3).UsedRange.Copy Destination:=Worksheets(2).Cells(r, c)
End Sub