Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
660to664
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
beim durchsuchen von tabellen zwei auslassen
30.08.2005 15:15:15
tabellen
Hallo Excels,
ich brauch hilfe.
Mit diesem Code, der stammt auch aus diesem Forum, denn ich angepasst habe durchsuche ich beim Eintrag in eine Userform ob es denn Eintrag schon in anderen Tabellen gibt.
Klappt auch alles super. Nun muss ich aber bei der Suche zwei Tabellen ausklammern.

Sub suchen2()
Application.ScreenUpdating = False
Dim Tabelle As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Dim blatt
blatt = Application.ActiveSheet.name
SBegriff = Einschreiben.TextBox2
If SBegriff = "" Then Exit Sub
For Each Tabelle In Worksheets
Tabelle.Activate
Set GZelle = Tabelle.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
Application.ScreenUpdating = False
GZelle.Activate
'Hier mein Versuch
'wenn der suchbegriff in einer dieser Blätter gefunden wird soll er einfach weiter suchen
' und eben nicht die userform schliessen sondern einfach weitersuchen
'If GZelle.Address = ThisWorkbook.Sheets("Buchen").Activate or ThisWorkbook.Sheets("kvas").ActivateThen
' next Tabelle
'End If
Unload Einschreiben
Exit Sub
Set GZelle = Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Tabelle
ThisWorkbook.Sheets(blatt).Activate
' MsgBox "Ende der Suche!"
End Sub

Gruss Peter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: beim durchsuchen von tabellen zwei auslassen
30.08.2005 15:27:47
tabellen
Moin,
ich verstehe zwar den code zwischen Do und Loop nicht genau, aber egal...
wenn Du 2 Tabellenblätter ausschließen willst, dann folgende Möglichkeit
For Each Tabelle In Worksheets
If Not Tabelle.Name = "Buchen" Or Not Tabelle.Name = "kvas" Then
' DEIN CODE, WENN ES EIN TABELLENBLATT IST, DAS DURCHSUCHT WERDEN SOLL
End If
next Tabelle
Gruß RALF
AW: beim durchsuchen von tabellen zwei auslassen
30.08.2005 15:37:23
tabellen
Hallo Ralf,
das ist schon mal ein Anfang.
Die Bedingung sieht schon besser als meine aus.
Aber mit Tabelle Next funktioniert nicht.
Gruss
Peter
AW: beim durchsuchen von tabellen zwei auslassen
30.08.2005 16:35:49
tabellen
Moin,
Die Schleife ist For...Next
Du kannst nicht 2x Next angeben
Die IF-Schleife von mir prüft ja die Tabellennamen "Buchen" und "kvas". Wenn die aktuelle Tabelle anders heißt, dann wird der code in der IF-Schleife ausgeführt.
Wenn die aktuelle Tabelle "Buchen" oder "kvas" heißt, dann wird keine Suche ausgeführt....
so in dem Stil:
For Each Tabelle In Worksheets
If Not Tabelle.Name = "Buchen" Or Not Tabelle.Name = "kvas" Then
'suche in dem Tabellenblatt nach einer bestimmten Zelle
' wenn gefunden, dann mache was auch immer
' sonst nix
End If
next Tabelle
Gruß RALF
Anzeige
AW: beim durchsuchen von tabellen zwei auslassen
31.08.2005 07:00:52
tabellen
Hi Ralf,
der Code bleibt bei "next Tabelle" stehen.
Fehlermeldung : Next ohne For
Gruss
Peter
AW: beim durchsuchen von tabellen zwei auslassen
31.08.2005 10:17:46
tabellen
Moin,
beliebte Fehlermeldung von VBA, auch wenn es sich um eine unvollständige If-Schleife oder Do-Loop-Schleife handelt. Der ist da nicht so kleinlich.
Wenn das nicht der Treffer ist, dann stell nochmal den kompletten code ein.
Gruß RALF
AW: beim durchsuchen von tabellen zwei auslassen
31.08.2005 15:04:22
tabellen
Hi Ralf,
den kompleten Code habe ich doch bei meiner Fragestellung schon reingestellt.
Ich schreibe in die TextBox2 in einer Userform eine Zahl ein, nun sucht der Code in ALLEN Tabellen der Mappe nach dieser Zahlenfolge. Findet er diese Zahlenfolge wird die Userform geschlossen und der Curser steht in der gefundenen Zelle.
Nun soll dieses Macro einfach die beiden Tabellen "Buchen" und "Kvas" bei der suche auslassen.
Gruss peter
Anzeige
AW: beim durchsuchen von tabellen zwei auslassen
01.09.2005 11:30:56
tabellen
Moin,
für eine eindeutige Suche ist das hier der code:

Sub suchen2()
Application.ScreenUpdating = False
Dim Tabelle As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Dim blatt
blatt = Application.ActiveSheet.Name
SBegriff = Einschreiben.TextBox2
If SBegriff = "" Then Exit Sub
For Each Tabelle In Worksheets
If Not Tabelle.Name = "Buchen" Or Not Tabelle.Name = "kvas" Then
Tabelle.Select
Set GZelle = Tabelle.Cells.Find(what:=SBegriff, LookAt:=xlWhole)
If Not GZelle Is Nothing Then
GZelle.Select
Unload Einschreiben
Exit Sub
End If
End If
Next Tabelle
Sheets(blatt).Select
MsgBox "Ende der Suche!" & vbCr & vbCr & "Kein Eintrag gefunden"
End Sub

wenn Du eine teilweise Übereistimmung haben willst, dann muß Du eben noch ein bisschen dran tunen.
Gruß RALF
Anzeige
AW: beim durchsuchen von tabellen zwei auslassen
02.09.2005 06:54:35
tabellen
Hi Ralf,
super, ich werde das gleich mal testen.
Erst eimal Danke für deine mühe.
Gruss
Peter

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige