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