Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

if not zelle=suche

if not zelle=suche
15.07.2015 07:23:34
Chris
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

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

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

AW: if not zelle=suche
15.07.2015 08:26:43
hary
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

Anzeige
AW: if not zelle=suche
15.07.2015 08:33:40
Chris
Danke! TOP!
Chris

AW: Bitte, dann zu. gruss owT
15.07.2015 08:38:31
hary
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige