Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopiermakro

Kopiermakro
thomas
Hallo Leut,
folgender Code ist falsch; jemand Verbesserungsvorschläge?
Besten Dank
thomas

Sub Kopieren ()
Range("Grafdata!D48:D49").Select
Selection.Copy
Range("Erfolgssens.-Analyse BM!D17:D18").Select
ActiveSheet.Paste
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kopiermakro
Ulf
Das kannst du mit dem Rekorder aufzeichnen.
Ulf
AW: Kopiermakro
harry
hi, versuchs mit selection.paste
liebe grüße,
harry
AW: Kopiermakro
PeterW
Hallo Thomas,
warum kopieren? Weise doch direkt zu:

Sub Kopieren ()
Sheets("Erfolgssens.-Analyse BM").Range("D17:D18") = Sheets("Grafdata").Range("D48:D49")
End Sub

Gruß
Peter
Sorry...
PeterW
Blödsinn, natürlich so:

Sub Kopieren ()
Sheets("Grafdata").Range("D48:D49").Copy Sheets("Erfolgssens.-Analyse BM").Range("D17:D18")
End Sub

Gruß
Peter
AW: Sorry... - aber warum?
Boris
Hi Peter,
...warum "Blödsinn"? Es fehlte doch nur ein .Value :

Sub Kopieren ()
Sheets("Erfolgssens.-Analyse BM").Range("D17:D18") = Sheets("Grafdata").Range("D48:D49").Value
End Sub

Grüße Boris
Anzeige
Klappt; Besten Dank an alle! o.T.
30.03.2004 20:48:55
thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige