da ich nicht der OberVBA Guru bin, das Makro funktioniert (Ist Teil von Mehreren Operationen, aber mir geht es hier nur um das Kopieren):
Kann man das beschleunigen, indem man des Code "besser" macht? Momentan teste ich es noch mit wenigen Daten (ca 100 Zeilen), es braucht 2-3 Sekunden (was ok ist), aber es werden deutlich mehr Daten und meine Befürchtung ist, dass es dann doch sehr langsam wird.
Wenn ihr euch fragt, warum ich dies oder jenes so gemacht habe, ich weiß es schlichtweg nicht besser, lerne aber gerne dazu. Vielen Dank für die Tipps. Georg
Sub Datenkop()
Dim wshMonat As Worksheet
dim i as long
dim z as long
'ThisWorkbook.Worksheets(2).Activate
Set wshMonat = Sheets(2)
With ThisWorkbook.Worksheets("Jahresdaten")
'Letzte Zeile in Jahresdaten
lRowJahresdaten = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 2 To lastRow
For z = 1 To 12
.Cells(lRowJahresdaten, z).Value = wshMonat.Cells(i, z).Value
Next z
lRowJahresdaten = lRowJahresdaten + 1
Next i
End With
'format spalte L in %
With ThisWorkbook.Worksheets("Jahresdaten")
For i = 2 To lRowJahresdaten
.Cells(i, 9).NumberFormat = "0.00%"
Next i
End With
End Sub