Microsoft Excel

Herbers Excel/VBA-Archiv

Kopieren

Betrifft: Kopieren von: Sylvia
Geschrieben am: 13.10.2020 14:47:44

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

Betrifft: AW: Kopieren
von: Nepumuk
Geschrieben am: 13.10.2020 14:52:38

Hallo Sylvia,

warum kopierst du die Zellen nicht in einem Stück?

Gruß
Nepumuk

Betrifft: AW: Kopieren
von: SF
Geschrieben am: 13.10.2020 15:26:46

Hola,

zur Info...

https://www.ms-office-forum.net/forum/showthread.php?t=370497

Gruß,
steve1da