Laufzeitfehler 91

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Laufzeitfehler 91
von: Horst
Geschrieben am: 14.07.2002 - 12:49:36

Hallo das folgende Makro habe ich aufgezeichnet. Es sucht einfach einen Begriff "Hallo" in einer Spalte.
Wenn ich das Makro unter VBA aufrufe erfolgt immer die Fehlermeldung "Laufzeitfehler 91"
Objektvariable oder With Blockvariable nicht festgelegt.
Was mache ich falsch ?
Danke im Voraus
Gruß Horst


Range("A1").Select
Cells.Find(What:="Hallo", After:=ActiveCell, LookIn:=xlValues, LookAt :=xlPart, SearchOrder:=xlByColumns,SearchDirection:=xlNext
,MatchCase:= False).Activate


nach oben   nach unten

Re: Laufzeitfehler 91
von: Rolf, Lgh.
Geschrieben am: 14.07.2002 - 16:50:09

Hallo Horst,
"nicht gefunden" mußt Du abfangen:

Sub Suchen()
  On Error GoTo ERRORHANDLER
  With Worksheets(1)
    Range("A1").Select
    Cells.Find _
    (What:="Hallo", After:=ActiveCell, LookIn:=xlValues, _
     LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
     MatchCase:=False).Activate
  End With
  Exit Sub
ERRORHANDLER:
  MsgBox "Suchbegriff nicht gefunden!"
End Sub

'Schau Dir auch mal das an:

'StandardModule: mHWH
'Suchen und weitersuchen
Sub Auswahl()
    Dim gZelle As Range, sBegriff$
    sBegriff = InputBox("Bitte Suchbegriff eingeben:", _
        Application.UserName)
    If sBegriff = "" Then Exit Sub
    Set gZelle = ActiveSheet.Columns("A:F").Find(sBegriff)
    If gZelle Is Nothing Then
        Beep
        MsgBox "Suchbegriff nicht gefunden!", , _
            Application.UserName
        Exit Sub
    End If
    gZelle.Select
    MsgBox gZelle.Address(False, False)
    gZelle.Offset(1).Select
    While ActiveCell.Address <> gZelle.Address
        Cells.FindNext(After:=ActiveCell).Activate
        If ActiveCell.Address = gZelle.Address Then Exit Sub
        MsgBox ActiveCell.Address(False, False)
    Wend
End Sub


Gruß Rolf
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler 91"