Hallo,
mit folgendem Code lese ich alle meine Tabellen-Blatt-Namen aus und bei gefundenem Begriff aus einer TextBox soll die Tabelle gelöscht werden:
Dim n As Integer
Application.DisplayAlerts = False
For n = 1 To Worksheets.Count
If Worksheets(n).Name Like txtFirmenname.Text Then Worksheets(n).Delete
Next n
Application.DisplayAlerts = True
Das funktioniert soweit auch aber nicht sehr stabil, also manchmal bleibt das Program an disem Code hängen, gibt es da etwas genaueres wie "match" oder so?
Wenn ja wie müsste der Code dann gehen?
Vielen Dank für Eure Hilfe, dies hier ist das beste Forum überhaupt.
Grüsse
Drazen