Thema Datum  Von Nutzer Rating
Antwort
07.12.2017 14:27:50 phil
Solved
07.12.2017 15:19:37 Gast16624
NotSolved
07.12.2017 15:31:18 Gast63062
NotSolved
10.12.2017 05:53:04 Gast44137
NotSolved
12.12.2017 07:37:48 phil
NotSolved
Blau Suchen
 12.12.2017 07:48:06 phil
NotSolved

Ansicht des Beitrags:
Von:
phil		 Datum:
12.12.2017 07:48:06		 Views:
608		 Rating:
     
Antwort:
  Ja
Thema:
Suchen

Den ersten Fehler hab ich jetzt rausbekommen, aber nun kommt ein anderer zum Vorschein:

Nach der Suche wird zwar jetzt in allen Arbeitsblättern das Suchergebnis markiert, ich kann jedoch nicht weiterspringen und das nächste Suchergebnis auswählen, da die Massagebox nun folgendes ausgibt:

"Objekt unterstützt diese Eigenschaft oder Methode nicht"

 

Sub Suchen_Click()
Dim suche As String
Dim z As Long
Dim Zelle As Range
Dim Blatt As Worksheet

suche = InputBox("Suchen nach", , "Suchbegriff eingeben")

z = 0
If suche = "" Then Exit Sub

For Each Blatt In ActiveWorkbook.Worksheets
  For Each Zelle In Blatt.UsedRange
    If Zelle = suche Then
      z = z + 1
      Zelle.Interior.ColorIndex = 43
    End If
  Next Zelle

Next Blatt

    
  Set rngFind = ActiveWorkbook.Find(suchfenster, LookIn:=xlValues)
    If Not rngFind Is Nothing Then
        strFirst = rngFind.Address
        Do
            rngFind.Select
            If MsgBox(rngFind.Address, vbOKCancel) = vbOK Then
                Set rngFind = ActiveWorkbook.FindNext(rngFind)
            Else
                Exit Sub
                End If
                
                Loop While Not rngFind Is Nothing And rngFind.Address <> strFirst
            Else
     

MsgBox suche & " wurde " & z & " mal gefunden."
End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.12.2017 14:27:50 phil
Solved
07.12.2017 15:19:37 Gast16624
NotSolved
07.12.2017 15:31:18 Gast63062
NotSolved
10.12.2017 05:53:04 Gast44137
NotSolved
12.12.2017 07:37:48 phil
NotSolved
Blau Suchen
 12.12.2017 07:48:06 phil
NotSolved