Tabelle kopieren mit Reihen- & Zeilenzählen
01.04.2020 19:54:34
Lasse
hoffe ihr könnt mir helfen!
Ich arbeite aktuell an einer großen Datei und möchte Werte aus Spalten von einem Arbeitsblatt ins nächste kopieren. Die Tabelle geht von F3 bis AV602.
Ich möchte aus Blatt 1 F3 bis F602 in Blatt 2 G3 bis G602 kopieren und dann aus Blatt 1 G3 bis G602 in Blatt 2 I3 bis I602 kopieren. Also in Blatt 2 immer eine Spalte frei lassen.
Bestenfalls sollten Zahlen und Spalten gezählt werden, jedoch krieg ich das nicht hin ..
Mein aktueller Versuch sieht so aus:
Sub Ziel_Zulieferung()
Dim i As Long, z As Long, g As Long
Application.ScreenUpdating = False
z = 6
g = 7
With ThisWorkbook.Worksheets("Zielwerte")
For z = 6 To 49
.Range(z & 3 & z & 602).Copy ThisWorkbook.Worksheets("Auswertung").Range(g & 3 & g & _
602)
g = g + 2
Next z
End With
End Sub
Jedoch kriege ich das "Zählen" nicht hin und es funktioniert auch nicht wirklich ...
Bin für jeden Hinweis dankbar und Danke im Voraus
Lasse