Suchen.....
28.01.2003 21:11:57
Frank
Beim der Makro Aufnahme fuktioniert der Suchbefehl (unter Bearbeiten/Suchen) einwandfrei und findet den Artikel. Lasse ich dann das Makro ablaufen, so erhalte ich einen Laufzeitfehler '91', mit der Meldung "Objektvariable oder With-Blockvariable nicht festgelegt"
Wo liegt der Fehler ?
Kann ich festlegen, dass nur in den Spalten A gesucht werden soll ?
Sub Artikelsuche()
Dim Anr As String
Anr = ActiveCell
Windows("Offertbasis61").Activate
Sheets(Array("Artikel", "Scenofix")).Select
Sheets("Artikel").Activate
Range("A2").Select
Cells.Find(What:=Anr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveSheet.Select
End Sub
Anzeige