Makro optimieren, wenn es geht?
edie
das nachfolgende Makro, aus dem Archiv, habe ich angepasst und es funktioniert
auch, leider bei ca. 15.000 Zeilen in der "DB" ist es langsam.
Eine Datumsreihe in Spalte A der "Tabelle1" wird mit der Spalte A der "DB" verglichen
und bei Übereinstimmungen der Wert aus Spalte C der "DB" in Spalte C der "Tabelle1" kopiert.
Nun meine Frage: Kann das Makro optimiert werden?
Sub Go()
Dim z%, z1%, lz%, lz1%
Dim sh As Worksheet
Dim sh1 As Worksheet
Set sh = Worksheets("Tabelle1") Aktuelle Tabelle
Set sh1 = Worksheets("DB") Datenbank
lz = sh.Cells(Rows.Count, 1).End(xlUp).Row
lz1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
For z = 4 To lz
For z1 = 4 To lz1
If sh.Cells(z, 1) = sh1.Cells(z1, 1) Then
sh.Cells(z, 3) = sh1.Cells(z1, 3)
End If
Next
Next
End Sub
Für jede Hilfe bin ich sehr dankbar. Danke im Voraus.Grüße