ohne select
16.10.2006 09:55:00
Lisa
Ich habe hier einen Code aufgezeichnet, mit dem Recorder, der beim select hängen bleibt.
Ich habe in der Recherche gelesen, dass man auf select verzichten kann.
Könnet mir evtl. bei diesem Code jemand helfen wie ich diesen umändern kann?
Müsste es dann heißen: Range("A1").Copy
Sheets("Tabelle2").
Range("C3").Paste
wahrscheinlich nicht. Ihr seht schon das ich da keine Ahnung von habe, dafür ihr um so mehr.
Range("A1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("C3").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("D3").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C16").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("A1").Select
End Sub
mfG Lisa