Text kopieren

Question

Hi

Wie kann ich mit einem Makro
den Text/Zahlen von Tabelle1 Spalte A nach Tabelle 2 Spalte A
kopieren dann Tabelle 1 Spalte B nach Tabelle 2 Spalte B
wichtig nacheinander nicht alles auf einmal.
Also eine Art Schleife wenn fertig kopiert nächste Spalte usw...
Von Spalte A bis Z in die Tabelle2 kopieren.

lg
Juno

Answer 1

Hallo Juno,

meinst du so?

Option Explicit

Sub CopyColunms()
Dim intI As Integer
For intI = 1 To 26
Worksheets(1).Columns(intI).Copy Worksheets(2).Cells(1, intI)
Application.Wait Now + TimeSerial(0, 0, 2)
Next
End Sub

Das Einfügen erfolgt immer im Rhythmus von 2 s

Gruß
Rainer

Answer 2

Hallo Juno,
versuch es mal so:

In ein Modul einfügen:

Sub Kopieren()
Dim Spalte As Integer
Dim T2Spalte As Integer
Tabelle2.UsedRange.Clear
With Tabelle1
T2Spalte = 1
For Spalte = 1 To .UsedRange.Columns.Count
.Columns(Spalte).Copy Destination:=Tabelle2.Columns(T2Spalte)
T2Spalte = T2Spalte + 1
Next Spalte
End With
End Sub

Gruß
fedjo

Answer 3

Hallo

Danke an euch funktioniert auch
aber wie mache ich das wenn ich nur von Zeile 1 -4 von jeder Spalte kopieren möchte und das immer in die gleiche Spalte von Tabelle 2

Answer 4

Hallo Juno,

hiermit erfolgt der gewünschte Kopiervorgang ohne Verzögerung

Option Explicit

Sub CopyColunms()
Dim intI As Integer
For intI = 1 To 26
Range(Cells(1, intI), Cells(4, intI)).Copy Worksheets(2).Cells(1, intI)
Next
End Sub

Gruß
Rainer