Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Laufzeitfehler´91´: ???????

Betrifft: Laufzeitfehler´91´: ??????? von: Michael
Geschrieben am: 02.09.2004 15:02:48

Hallo liebes Forum.
Ich habe ein hoffentlich für Euch einfaches Problem.
Mit dem u.g. Makro wird die Suchfunktion geöffnet.
Wenn der gesuchte Begriff in der Tabelle nicht vorhanden ist wird der der folgende VB Fehler angezeigt:

Laufzeitfehler´91´:
Objektvariable oder With-Blockvariable nicht festgelegt.

Ich würde gerne das mir einfach angezeigt wird das der gesuchte Begriff in der Tabelle nicht vorhanden ist.

Leider habe ich selber fast Null Ahnung von VBA.... würde mich daher über Eure Hilfe sehr freuen.

1000 Dank
Michael

Sub Suchen()
    Dim Suchbegriff As String
    Suchbegriff = InputBox("Geben Sie den Suchbegriff ein")
    Cells.Find(Suchbegriff).Activate
End Sub

  


Betrifft: AW: Laufzeitfehler´91´: ??????? von: Dieter Maj
Geschrieben am: 02.09.2004 15:18:31

Hallo Michael
vielleicht so: (vereinfachte Ausführung)
Sub Suchen()
    Dim Suchbegriff As String
    On Error GoTo Fehlerbehandlung
    Suchbegriff = InputBox("Geben Sie den Suchbegriff ein")
    Cells.Find(Suchbegriff).Activate
    Exit Sub
Fehlerbehandlung:
   MsgBox "Suchbegriff nicht gefunden"
   Suchen
End Sub


Gruß Dieter
PS.:
das Forum lebt auch von Rückmeldungen


  


Betrifft: AW: Laufzeitfehler´91´: ??????? von: P@ulchen
Geschrieben am: 02.09.2004 15:20:40

Hi Micha,

Sub Suchen()
    Dim Suchbegriff As String
    Suchbegriff = InputBox("Geben Sie den Suchbegriff ein")
    Set xFind = Cells.Find(Suchbegriff)
    If Not xFind Is Nothing Then 
        xFind.Select
    Else
        MsgBox "Suchbegriff nicht gefunden !"
    End If
End Sub




Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: Perfekt ! DANKE von: Michael
Geschrieben am: 02.09.2004 15:26:25

Perfekt !!!
Vielen Dank

Toll das man sich auf Euch verlassen kann.

Grüße
Michael


  


Betrifft: Perfekt ! DANKE von: Michael
Geschrieben am: 02.09.2004 15:26:30

Perfekt !!!
Vielen Dank

Toll das man sich auf Euch verlassen kann.

Grüße
Michael


 

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler91: ???????"