Code funktioniert nicht
18.10.2020 13:02:08
Guesa
Bin mal wieder am Ende mit meiner Weisheit.
Folgender Code, gefunden im Netz von Beverly, funktioniert so lange ich nur 5 Grundblätter eingefügt habe wo nicht gesucht werden soll. Jetzt habe ich 3 Blätter hinzu gefügt, den Code von 5 auf 8 erhöht aber jetzt funktioniert er nicht mehr. Alle Blätter die neu hinzu gefügt werden und wo dann auch gesucht werden soll, sind alle gleich aufgebaut, Suchbegriff in Spalte B ab Zeile 8. Schon mal vor ab ein Danke schön für Eure Hilfe.
Gruß, Guesa
Sub zellinhalt_suchen_intabellen_undZeileLöschen()
Dim raZelle As Range
Dim strSuchbegriff As Variant
Dim wsTabele As Worksheet
strSuchbegriff = StPl_löschen.ComboBox1
For loTabelle = 5 To Worksheets.Count
With Worksheets(loTabelle).Columns(2)
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
raZelle.EntireRow.Delete
End If
End With
Next loTabelle
End Sub
Anzeige