Thema Datum  Von Nutzer Rating
Antwort
Rot Delete Worksheet
 11.08.2021 16:14:53 Saka
NotSolved
11.08.2021 16:41:21 Gast29644
NotSolved

Ansicht des Beitrags:
Von:
Saka		 Datum:
11.08.2021 16:14:53		 Views:
710		 Rating:
     
Antwort:
  Ja
Thema:
Delete Worksheet

Hallo zusammen,

ich würde gerne, dass mein Skript durch alle Worksheets geht und alle dieser Sheets bis auf eines (Variable) löscht.

Dies ist mein Code doch leider funktioniert es nicht und ich komme einfach nicht auf die Lösung.

 

    Dim fileName As Variant
    Dim int_IC As Integer

        Application.DisplayAlerts = False
        For Each Worsheet In Workbooks(fileName).Worksheets
            If Worksheet.Name <> CStr(int_IC) Then
                Worksheets.Delete
            End If
        Next
        Application.DisplayAlerts = True

 

Könnte mir jemand helfen?

 

Danke vielmals und VG
Saka

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Delete Worksheet
 11.08.2021 16:14:53 Saka
NotSolved
11.08.2021 16:41:21 Gast29644
NotSolved