Herbers Excel/VBA-Archiv

Prüfen ob Sheet im Workbook vorhanden

• Prüfen ob Sheet im Workbook vorhanden von Daniel vom 04.09.2020 14:00:49
• AW: Prüfen ob Sheet im Workbook vorhanden - von peterk am 04.09.2020 14:07:44
  • Oder ohne Schleife - von Zwenn am 04.09.2020 14:25:29
  • AW: Prüfen ob Sheet im Workbook vorhanden - von Daniel am 04.09.2020 14:25:55
    • wenn gelöst, nicht mehr offen. o.w.T - von Werner am 04.09.2020 14:30:34

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"