Tabellenblätter löschen

Liebe Excel-Gemeinde,
das hier ist mein erster Beitrag im Forum. Ich bin 26 Jahre alt und meine Kenntnisse in VBA beschränken sich im Wesentlichen auf den Recorder. Ich beschäftige mich erst seit gestern überhaupt mit VBA, da ich bisher meine Probleme immer mit Formeln lösen konnte.
Ich habe folgendes Problem: Ich möchte gerne alle Tabellenblätter in meiner Excelmappe löschen, wenn in der Zelle A1 der Bezug zu einer Formel fehlt (#BEZUG!). Ich habe nun einen Code zusammen gebastelt, der zwar keine Fehlermeldung ausspuckt, aber auch kein Ergebnis erzielt:

Sub Makro1()
Dim wks As Worksheet
For Each wks In Worksheets
If Cells(1, 1).Text = "#BEZUG!" Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next
End Sub

Sieht jemand meinen Fehler? Vielen Dank schon einmal! :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Flo,
herzlich Willkommen hier im Forum und Glückwunsch zur Entscheidung, dass Du nun auch VBA lernen möchtest :-)
Die Fehlerwerte in Tabellenblätter werden intern mit einem Fehlercode gespeichert und im Tabellenblatt in der jeweiligen Landessprache der Anwendung angezeigt - in deutschsprachigen Excel-Versionen mit #BEZUG!.
Um diese Fehlerwerte per VBA auszuwerten darf man daher nicht die deutsche anzeige (also die Übersetzung) verwenden, sondern den internen Code. Dazu gibt es die Typenkonvertierungsfunktion CVERR() - das steht für "ConVertERRor()". Als Argument in der Klammer gibt man den Fehlercode ein bzw. die dazugehörige Excel-Fehler-Konstante - für den #BEZUG! Fehler ist das xlErrRef (also "Excel Fehler Reference" - die englische Übnersetzung für den BEZUGS-Fehler).
So sieht das dann im fertigen (etwas modifizierten) VBA-Code aus :

Sub LoeschenZelleA1_BEZUGsfehler()
Dim wks As Worksheet
Application.DisplayAlerts = False 'Keine Nachfrage beim Löschen des Blattes
For Each wks In Worksheets
If Application.CountIf(wks.Cells(1, 1), CVErr(xlErrRef)) Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next
Application.DisplayAlerts = True
End Sub

Viel Spaß noch beim VBA-Lernen mit Excel,
Gruß, NoNet

Hast Du Interesse, andere Excel-Begeisterte kennenzulernen ? - Dann komme zum
Exceltreffen 11.-13.10.2013 in Duisburg
http://www.exceltreffen.de/index.php?page=230
Anmeldungen sind noch bis 31.07.2013 möglich ! - Schau doch mal rein !

Sub Makro1() Dim wks As Worksheet For Each wks In Worksheets If wks.Cells(1, 1).Text = "#BEZUG!" Then Application.DisplayAlerts = False wks.Delete Application.DisplayAlerts = True End If Next End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread