Geht das besser?

Bild

Betrifft: Geht das besser?
von: Frank
Geschrieben am: 08.12.2003 18:02:22

Hallo miteinander,
kann man dieses Makro besser machen?
Danke im voraus. Frank
Selection.Copy
Sheets("Tabelle2").Select
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tabelle1").Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tabelle1").Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets("Tabelle2").Select
Range("C6").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Bild


Betrifft: AW: Geht das besser?
von: xXx
Geschrieben am: 08.12.2003 18:09:51

Hallo,
selection.copy destination:=sheets("Tabelle2").Range("A6")
oder wenn du einfach nur Werte übertragen willst:
sheets("Tabelle2").Range("A6")=selection

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S.Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter.


Bild


Betrifft: AW: Geht das besser?
von: Frank
Geschrieben am: 09.12.2003 19:53:43

Hallo Udo,
habe deinen Vorschlag ausprobiert.
Kann aber leider nur markierte Zelle in A6 kopieren.
Möchte aber auch die Zellen neben der markierten Zelle in
andere Zellen kopieren.
Dank an dich.
Gruß Frank.


Bild


Betrifft: man kann!
von: Josef Ehrensberger
Geschrieben am: 08.12.2003 18:13:54

Hallo Frank,

z.B. so.


Sub Kopieren()
Dim rng As Range
Set rng = Selection
rng.Copy Sheets("Tabelle2").Range("A6")
rng.Offset(0, 1).Copy Sheets("Tabelle2").Range("B4")
rng.Offset(0, 2).Copy Sheets("Tabelle2").Range("C6")
End Sub


Gruß Sepp


Bild


Betrifft: AW: man kann!
von: Frank
Geschrieben am: 09.12.2003 19:46:03

Hallo Sepp,
bin absolut begeistert von deinem Vorschlag!
Vielen Dank und Grüße.
Frank


Bild

Beiträge aus den Excel-Beispielen zum Thema " Formel"