Übertragen Makro dauert sehr lange
28.01.2016 22:11:48
Sigi
zur Weiterverarbeitung der Daten aus WksAufZu, werden die einzelnen Positionen
horizontal in Workbooks("F_Daten.xlsm").Worksheets("Auf_Journal") eingelesen.
Die Anz = Variabel
Bei 86 Zeilen dauert das Makro 3:30 Min.
Mache ich hier einen Fehler?
Danke!
Gruß
Sigi
Sub Uebertrag()
Dim Z as Integer, Anz as Integer
Dim bytR as Byte
Set WkbD = Workbooks("F_Daten.xlsm")
Set WksAufJ = wkbd.Worksheets("Auf_Journal")
Set WksAufZu = ThisWorkbook.Worksheets("Auf_Zu")
Anz = 86
bytR = 2
With WksAufJ
For Z = 8 To WksAufZu.Cells(Rows.Count, 1).End(xlUp).Row
If WksAufZu.Cells(Z, 5).Value "" Then
If WksAufZu.Cells(Z, 1).Value "" Then
.Cells(bytR, Anz).NumberFormat = "@"
.Cells(bytR, Anz) = WksAufZu.Cells(Z, 1).Value
Else
.Cells(bytR, Anz) = ""
End If
.Cells(bytR, Anz + 1) = WksAufZu.Cells(Z, 3).Value
.Cells(bytR, Anz + 2) = WksAufZu.Cells(Z, 4).Value
.Cells(bytR, Anz + 3) = WksAufZu.Cells(Z, 5).Value
.Cells(bytR, Anz + 4) = WksAufZu.Cells(Z, 6).Value
.Cells(bytR, Anz + 5) = WksAufZu.Cells(Z, 7).Value
Anz = Anz + 7
End If
Next Z
End With