ich habe eine Matrix mit Werten(ca. 300x160) die ich je nach Inhalt in ein Tabellenformat kopiere. Das klappt auch soweit gut, das Problem ist nur die Laufzeit bei zunehmenden Werten in der Matrix. Anbei der Code:
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim Spalte As Long
Dim ZeileMax As Long
Dim SpalteMax As Long
Dim n As Long
Dim i As Long
With Tabelle3
ZeileMax = .UsedRange.Rows.Count
SpalteMax = .UsedRange.Columns.Count
n = 5
i = 2
For Zeile = 52 To ZeileMax
For Spalte = 5 To SpalteMax
If .Cells(Zeile, Spalte).Value 0 Then
.Cells(1, Spalte).Copy Destination:=Tabelle7.Cells(i, n)
.Cells(Zeile, 1).Copy Destination:=Tabelle7.Cells(i, 1)
.Cells(Zeile, 2).Copy Destination:=Tabelle7.Cells(i, 2)
.Cells(Zeile, 3).Copy Destination:=Tabelle7.Cells(i, 3)
.Cells(Zeile, 4).Copy Destination:=Tabelle7.Cells(i, 4)
i = i + 1
End If
Next Spalte
Next Zeile
End With
MsgBox ("Kopieren abgeschlossen")
End Sub
Was kann ich tun um die Laufzeit von aktuell mehreren Stunden zu reduzieren.
Vielen Dank für eure Hilfe!
VG
Christopher