suchen und Makro Ende mit Kommentar wenn nicht gefunden

Dieses Thema im Forum "Excel und VBA" wurde erstellt von Daniel, 12 Juli 2017.

  1. Daniel

    Daniel
    Expand Collapse
    Member Deluxe

    Registriert seit:
    7 April 2001
    Beiträge:
    333
    Zustimmungen:
    0
    Hallo

    Ich habs bestimmt schon mal gelöst find aber nicht mehr wie :-(

    Suche nach einer Zelle mit bestimmtem Inhalt (Name1),

    Selection.Find(What:=Name1, After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate

    nun kann es aber sein dass es den nicht gibt.
    Da möchte ich nicht einen Run-time error sondern eine Message und das Macro beenden.
     
  2. RO_SCH

    RO_SCH
    Expand Collapse
    Moderator

    Registriert seit:
    27 August 2006
    Beiträge:
    2.436
    Zustimmungen:
    14
    Hi Daniel,

    Code:
    Dim Rng As Range
    
    Set Rng = Worksheets("Tabelle1").Cells.Find(What:="Name1", After:=ActiveCell, LookIn:= _
    xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False)
    If Not Rng Is Nothing Then
      '*** Tu was
      MsgBox Rng.Address
    End If
    
     
    Daniel gefällt das.
  3. Daniel

    Daniel
    Expand Collapse
    Member Deluxe

    Registriert seit:
    7 April 2001
    Beiträge:
    333
    Zustimmungen:
    0
    Vielen Dank :)
     
Die Seite wird geladen...

Diese Seite empfehlen