Selection & Find
27.04.2008 13:14:00
Dirk
mit untenstehendem Makro suche ich u.a. nach einem übereinstimmenden Einträg auf einem anderen Blatt u. markiere diesen. Funktioniert soweit auch bestens...
Doch nun habe ich folgendes Problem:
Der Eintrag, der gefunden werden soll, muss immer an der ersten Stelle der Selection stehen.
Nun suche ich nach einer Variante, wo ich z.B. in einer Zeile die Zellen A bis F selectiere, dann aber auf Übereinstimmung des Eintrags in B prüfen kann.
Ist das möglich u. was ist an dem Makro zu ändern ?
MfG Dirk
Sub Markieren1()
Dim rng As Range
Set Auswahl = Selection '***
Cells(Selection.Row, 12) = "auch auf MM-FP"
Application.ScreenUpdating = False
Sheets("Media-FP").Activate
ActiveSheet.CommandButton2.Enabled = True
Set rng = Cells.Columns(5).Find(what:=Auswahl, lookat:=xlWhole, LookIn:=xlValues) '***
rng.Select
Application.ScreenUpdating = True
Range(rng.Offset(0, 0), rng.Offset(0, 7)).Select
End Sub
Anzeige