Suchoptionen
25.02.2008 18:11:31
Jürgen
mit nachfolgenden Makro suche ich Auftragsnummern.
Wie erreicht man das nach ausführen des Makros in den Suchoptionen
das Häkchen "Gesamten Zellinhalt vergleichen" wieder entfernt wird.
Gruß Jürgen K
Sub SuchFA()
Dim a As Range
Dim b As Range
Dim c As Integer
On Error GoTo weiter
Set a = ActiveSheet.Cells(1, 3)
Set b = ActiveSheet.Range("A7:A5000")
b.Find(What:=a, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
ActiveWindow.ScrollRow = ActiveCell.Row
Exit Sub
weiter:
MsgBox "Auftragsnummer nicht vorhanden !", , "Meldung !"
End Sub