Kopieren bestimmter Zeilen
13.01.2010 11:07:02
Dave
hallo zusammen,
ich versuche spezielle Zeilen (jede 4.Zeile des wks6 auf die wks2 zu kopieren), leider wird mit diesem Befehl nur die Formatierung (Hintergrundfarbe etc.) kopiert und nicht die Zahlenwerte?!
Kennt jemand den Fehler?
Grüße, Dave
Dim wks2 As Worksheet, wks6 As Worksheet
Dim Zeile As Long
Set wks2 = Worksheets("Tabelle2")
Set wks6 = Worksheets("Tabelle6")
For Zeile = 15 To 39
wks6.Range(wks6.Cells((19 + 4 * (Zeile - 14)), 3), wks6.Cells((19 + 4 * (Zeile - 14)), 12)). _
Copy wks2.Range(wks2.Cells(Zeile, 3), wks2.Cells(Zeile, 12))
Next Zeile