Bildschirm flackert
05.03.2016 12:15:10
Uli
Ich bräuchte mal wieder Hilfe.
Das unten stehende Makro läuft. Aber der Bildschirm flackert grässlich.
Wie muss das Makro umgeschrieben werden, um Select zu vermeiden?
Sub suchen()
Dim myC As Range
Application.ScreenUpdating = False
Workbooks("Überwachung-Erweiterung").Sheets("WKN").Select
Range("D3:D523").Select
For Each myC In Selection
If myC.Value = Range("D1").Value Then
myC.Select
ActiveCell.Offset(0, -1).Copy
End If
Next
Application.ScreenUpdating = True
End Sub
mfg Uli