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