ich möchte um im Hilfe frage, wie man eine Aufgabe schneller in Excel machen kann, als das Script unten. Es geht also um "Tuning".
Die Aufgabe:
In einer festgelegten Spalte soll bei jeder Zelle gesucht werden, ob sie eine Formel enthält, wenn ja, dann soll die Formel mit beibehaltenen absoluten Bezug in andere Zellen in derselben Zeile kopiert werden. Der Code hier unten macht das, ist aber unglaublich langsam, wenn man grosse Tabellen (Spaltenlänge > 500) hat.
Bin für jeden Tipp zu einem Ansatz dankbar.
Mit Range wird es wohl schneller laufen, aber da bekomme ich die Bezüge nicht hin.
Gruss,
Markus
Sub ZelleMitFormelabsolut()
'Suche in Spalte A von Zeile 1 bis 100 nach Zellen mit Formel
For a = 1 To 100
Set Zelle = Worksheets("Tabelle1").Cells(a, 1)
' Wenn Zelle eine Formel enthält kopiere die Formel mit beibehaltenem
' absoluten Bezug in derselben Zeile in Spalten 2 bis 5
If Zelle.HasFormula Then
For b = 2 To 5
Cells(a, b).Formula = Zelle.Formula 'Local
Next b
End If
Next a 'Zelle
End Sub