Microsoft Excel

Herbers Excel/VBA-Archiv

Prüfen ob Sheet im Workbook vorhanden

Betrifft: Prüfen ob Sheet im Workbook vorhanden von: Daniel
Geschrieben am: 04.09.2020 14:00:49

Hallo zusammen,

ich möchte gerne per VBA prüfen ob sich das Arbeitsblatt "Apfel" in meinem Workbook befindet und wenn ja soll das Blatt gelöscht werden. Ich weiß das es eine leichte If Abfrage ist nur kenne ich leider den Befehl dafür nicht.

Kann mir hierbei jemand weiterhelfen ?

Vielen Dank im voraus und einen lieben Gruß
Daniel

Betrifft: AW: Prüfen ob Sheet im Workbook vorhanden
von: peterk
Geschrieben am: 04.09.2020 14:07:44

Hallo

Ungetest (da schnell geschrieben)
Sub TestA()
 Dim Ws as WorkSheet
 For each Ws in ThisWorkbook.Worksheets
   if ws.name = "Apfel" then 
     ws.delete
     exit for
   end if
 next ws
end Sub



Betrifft: Oder ohne Schleife
von: Zwenn
Geschrieben am: 04.09.2020 14:25:29

Hallo zusammen,

so geht's auch. Man kann den Namen des Worksheets natürlich auch als Parameter übergeben:
Sub TestB()
  On Error Resume Next
  Application.DisplayAlerts = False
  ThisWorkbook.Worksheets("Apfel").Delete
  Application.DisplayAlerts = True
  On Error GoTo 0
End Sub
Viele Grüße,

Zwenn

Betrifft: AW: Prüfen ob Sheet im Workbook vorhanden
von: Daniel
Geschrieben am: 04.09.2020 14:25:55

Hallo Peter,

Funktioniert super!
Vielen Dank dafür und ein schönes Wochenende.

Gruß
Daniel

Betrifft: wenn gelöst, nicht mehr offen. o.w.T
von: Werner
Geschrieben am: 04.09.2020 14:30:34



Beiträge aus dem Excel-Forum zum Thema "Prüfen ob Sheet im Workbook vorhanden"