29.03.2015, 16:54
Hi,
ich mache eine Wetterstatistik und muß da diverse Daten kopieren.
Kann ich das auch über ein Array machen, geht das dann schneller?
ich mache eine Wetterstatistik und muß da diverse Daten kopieren.
Code:
For i = loLetzte24 To loLetzte
With Workbooks("Wetterdaten-Stunde.xlsb").Sheets(strJahr)
' "Wetterdaten-Stunde" Spalte B bekommt Wert aus "Wetterdaten" Spalte B
.Range("B" & loNeueTarget).Value = Range("B" & i + 1).Value ' Datum
.Range("C" & loNeueTarget).Value = Range("F" & i + 1).Value ' Außen-Temp
.Range("D" & loNeueTarget).Value = Range("O" & i + 1).Value ' letzte Stunde
.Range("E" & loNeueTarget).Value = Range("P" & i + 1).Value ' 24 Stunden
.Range("F" & loNeueTarget).Value = Range("Q" & i + 1).Value ' Woche
.Range("G" & loNeueTarget).Value = Range("R" & i + 1).Value ' Monat
.Range("H" & loNeueTarget).Value = Range("S" & i + 1).Value ' Total
End With
loNeueTarget = loNeueTarget + 1
' "Wetterdaten" Spalte X bekommt Wert aus "Wetterdaten" Spalte B
Range("X" & i).Value = Range("B" & i).Value
Range("Y" & i).Value = Range("F" & i).Value
Range("Z" & i).Value = Range("O" & i).Value
Range("AA" & i).Value = Range("P" & i).Value
Range("AB" & i).Value = Range("Q" & i).Value
Range("AC" & i).Value = Range("R" & i).Value
Range("AD" & i).Value = Range("S" & i).Value
With Sheets("Zusammenfassung")
' "Wetterdaten" Sheet "Zusammenfassung" Spalte B bekommt Wert aus "Wetterdaten" Spalte B
.Range("A" & i).Value = Range("B" & i).Value
.Range("B" & i).Value = Range("F" & i).Value
.Range("C" & i).Value = Range("O" & i).Value
.Range("D" & i).Value = Range("P" & i).Value
.Range("E" & i).Value = Range("Q" & i).Value
.Range("F" & i).Value = Range("R" & i).Value
.Range("G" & i).Value = Range("S" & i).Value
End With
Next i
Kann ich das auch über ein Array machen, geht das dann schneller?