Ich habe ein Problem mit meinem Suchen-Makro.
Das Teil funktioniert nur wenn die Seite WKN geöffnet und aktiv ist.
Das Makro aber soll funktionieren, während ich auf einem andern
Arbeitsblatt bin. Wie muss das Makro verändert werden?
Sub suchen()
Dim myC As Range
Application.ScreenUpdating = False
Workbooks("Überwachung-Erweiterung").Sheets("WKN") _
.Range("D9:D526").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
gruss Uli