Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1784to1788
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
Inhaltsverzeichnis

Kopieren

Kopieren
13.10.2020 14:47:44
Sylvia
Hallo Ich hoffe hier kann mir jemand helfen.
Ich habe zwei Tabellen hierbei möchte ich aus der Tabelle 1 die Zellen
E19 nach Tabelle 2 Zelle A19
F19 nach A20
G19 nach A21
E20 nach A22
F20 nach A23
F20 nach A24 usw. Kopieren.
Ich gehe mal davon aus das mach für den Wechsel von 19 nach 20 eine Schleife brauche. Leider weiß ich nicht wie und wo ich so was schreibe.
Das habe ich bisher aufgenommen:

Sub Makro1()
' Makro1 Makro
Windows("Tabelle 1.xls").Activate
Application.Left = 10
Application.Top = 8.8
Selection.Copy
Application.Left = 735.4
Application.Top = 7.6
Windows("Tabelle 2.xls").Activate
Range("A19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Tabelle 1.xls").Activate
Range("F19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Tabelle 2.xls").Activate
Range("A20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Tabelle 1.xls").Activate
Range("G19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Tabelle 2.xls").Activate
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Tabelle 1.xls").Activate
Range("E20").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Windows("Tabelle 2.xls").Activate
Application.Goto Reference:="Makro1"
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren
13.10.2020 14:52:38
Nepumuk
Hallo Sylvia,
warum kopierst du die Zellen nicht in einem Stück?
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige