Thema Datum  Von Nutzer Rating
Antwort
Rot Blätter löschen wenn Wert in Celle <>
 10.03.2015 13:04:37 Sascha
NotSolved
10.03.2015 13:15:07 Gast23495
Solved
10.03.2015 13:21:59 Gast71522
NotSolved

Ansicht des Beitrags:
Von:
Sascha		 Datum:
10.03.2015 13:04:37		 Views:
1540		 Rating:
     
Antwort:
  Ja
Thema:
Blätter löschen wenn Wert in Celle <>

Hallo zusammen.

Ich versuche mich krampfhaft an folgendem Problem:

 

Ich habe ein Workbook mit einem Makro. Aufgrund des Makros werden aus einem Verzeichnis sämtliche xls eingelesen und als Tabellenblätter hinter das Startblatt gehängt. Nun sollen die Blätter durchsucht werden, und wenn der Wert in A2 ungleich eines vorgegeben Wertes ist, soll das Blatt gelöscht werden usw.
Die Variable besteht aus einem Text und einer Zahl, zB Gruppe12

Dim Blatt As Worksheet

Application.DisplayAlerts = False
 For Each Blatt In Worksheets
    If Cells(2, 1).Value <> Variable Then
    Blatt.Delete
    End If
 Next
 

Erstaunlicherweise läuft das Makro durch, ohne einen Fehler zum Debuggen auszugeben aber es bleiben leider die Tabellenblätter vorhanden, auch wenn in A2 z.B. Gruppe10 steht :(

Kann mir jemand sagen, wo ich einen Denkfehler habe?

 

Gruß

Sascha

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 Blätter löschen wenn Wert in Celle <>
 10.03.2015 13:04:37 Sascha
NotSolved
10.03.2015 13:15:07 Gast23495
Solved
10.03.2015 13:21:59 Gast71522
NotSolved