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
Rot Suchen
 12.12.2017 07:37:48 phil
NotSolved
12.12.2017 07:48:06 phil
NotSolved

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

Ob das so ähnlich funktionieren würde, kann ich leider auch nicht sagen, da ich einen Fehler nicht rausbekomme:

"Fehler beim Kompilieren: For ohne Next"

 

Sub Suchen_Click()
Dim suche As String
Dim rngFind As Range
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
    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
    
End If
    
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
Rot Suchen
 12.12.2017 07:37:48 phil
NotSolved
12.12.2017 07:48:06 phil
NotSolved