Schleife beschleunigen
19.11.2013 09:19:39
karl
ich habe hier eine schleife(verschachtelt) mit der ich aus Tabelle1 daten in tabelle2
übertrage.Klappt soweit, dauert aber recht lange.
https://www.herber.de/bbs/user/88147.xls
lässt sich hier was besser oder schneller machen
For c = 8 To 31 Step 2
For a = 2 To 32
For b = 7 To 371
If Sheets("Tabelle2").Cells(c, a).Value = Sheets("Tabelle1").Cells(b, 1).Value Then
Sheets("Tabelle2").Cells(c + 1, a).Value = Sheets("Tabelle1").Cells(b, i).Value
Else
Sheets("Tabelle1").Cells(c + 1, a).Value = ""
End If
Next b
Next a
Next c
Wie immerrechtherzlichen dank
karl