VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Fehlermeldung abfangen

Gruppe

Allgemein

Bereich

Meldung

Thema

Fehlermeldung abfangen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Meldung