Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Fehlermeldung abfangen

Gruppe

Meldung

Problem

Wenn Excel innerhalb eines Makros einen Suchbegriff in der Tabelle nicht findet, kommt es zu einer Fehlermeldung. Wie kann ich das verhindern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub FindMsg()
   Dim rng As Range
   Dim sFind As String
   sFind = InputBox("Suchbegriff:", , "Hallo!")
   If sFind = "" Then Exit Sub
   Set rng = Columns(1).Find( _
      what:=sFind, lookat:=xlWhole, LookIn:=xlValues)
   If rng Is Nothing Then
      MsgBox "Suchbegriff nicht gefunden!"
   Else
      MsgBox rng.Address(False, False)
   End If
End Sub