if not zelle=suche

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label TextBox
Bild

Betrifft: if not zelle=suche
von: Chris
Geschrieben am: 15.07.2015 07:23:34

Hallo Forum
ich möchte per VBA alle vorhandene Worksheets nach einem Begriff durchsuchen.
Das Läuft soweit.
Was ich nicht hinbekomme ist der Fall, wenn keine Übereinstimmung gefunden wurde. If not zelle = suche geht nicht... wo liegt der Fehler..
Dim suche As String
Dim z As Long
Dim Zelle As Range
Dim Blatt As Worksheet
suche = TextBox1.Value
If suche = "" Then Exit Sub
For Each Blatt In ActiveWorkbook.Worksheets
For Each Zelle In Blatt.UsedRange
If Zelle = suche Then
UserForm3.Label1.Caption = suche & Blatt.Name
If Not Zelle = suche Then
UserForm3.Label1.Caption = "nix"
End If
end if
Next Zelle
Next Blatt
Chris

Bild

Betrifft: AW: if not zelle=suche
von: hary
Geschrieben am: 15.07.2015 07:39:08
Moin
Kommt der Suchbegriff nur einmal in allen Blaettern vor?
Besser evtl. mit find arbeiten, statt jede Zelle abzuklappern.
gruss hary

Bild

Betrifft: AW: if not zelle=suche
von: Chris
Geschrieben am: 15.07.2015 08:03:45
Hallo hary,
ja, kommt nur einmal vor.
Gruß
Chris

Bild

Betrifft: AW: if not zelle=suche
von: hary
Geschrieben am: 15.07.2015 08:26:43
Moin
Dann versuch mal so.


Dim suche As String
Dim zelle
Dim Blatt As Worksheet
Label1.Caption = ""
suche = TextBox1.Value
If suche = "" Then Exit Sub
  For Each Blatt In Worksheets
    Set zelle = Blatt.UsedRange.Find(what:=suche, LookIn:=xlValues, lookat:=xlWhole)
      If Not zelle Is Nothing Then
        Label1.Caption = suche & " in " & Blatt.Name
        Exit Sub
      End If
  Next
  If Label1.Caption = "" Then Label1.Caption = "nix"

gruss hary

Bild

Betrifft: AW: if not zelle=suche
von: Chris
Geschrieben am: 15.07.2015 08:33:40
Danke! TOP!
Chris

Bild

Betrifft: AW: Bitte, dann zu. gruss owT
von: hary
Geschrieben am: 15.07.2015 08:38:31
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Optimierung mti Solver"