Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Geht das besser?

Forumthread: Geht das besser?

Geht das besser?
08.12.2003 18:02:22
Frank
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Geht das besser?
08.12.2003 18:09:51
xXx
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.
Anzeige
AW: Geht das besser?
09.12.2003 19:53:43
Frank
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.
man kann!
08.12.2003 18:13:54
Josef Ehrensberger
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
Anzeige
AW: man kann!
09.12.2003 19:46:03
Frank
Hallo Sepp,
bin absolut begeistert von deinem Vorschlag!
Vielen Dank und Grüße.
Frank
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige