Office: Arbeitsblätter mit ungeraden Nummern löschen

Das Programm unten meckert. Woran kann es liegen? Vielen Dank für eure Hilfe

Sub udalittbl1()
Dim nom As Integer
Dim n As String
Dim m, k As String
Dim wks As Worksheet
n = "Tabelle"
On Error Resume Next
For nom = 1 To Sheets.Count Step 2
m = n & Str(nom)
k = Left(m, 7) & Right(m, 1)

For Each wks In Worksheets
If wks.Name = k Then
MsgBox "Tabelle vorhanden"
Application.DisplayAlerts = False
Worksheets(k).Delete
Application.DisplayAlerts = True

Exit For

End If
Next wks
Next nom
If Err 0 Then Exit Sub


End Sub

:)

 

Hi,

probiere es mal so:

Code:

 

Danke, Jurgen.

Leider funktioniert dein Programm nicht. Fehler "Typen unverträglich"

Svetlana

 

Hi Svetlana,

wie heißen denn bei Dir die Tabellenblätter, ich bin davon ausgegangen, daß die Tabellenblätter Tabelle1, Tabelle2, Tabelle3 usw heißen. Ich habe mit 1000 Tabellenblättern in der Mappe getestet, da hat es ohne Probleme funktioniert. ;o)

 

Jürgen,


vielen Dank. Die letzte Tabelle hatte den Namen "Übersicht". Ich habe die Korrekturen bereits vorgenommen. Alles funktioniert jetzt prima.

Schade, dass ich den Fehler in meinem Programm nicht finden konnte. Deine Lösung ist sehr schön.

Gruss
Svetlana

 

Moin Svetlana,

ich habe es nicht getestet, aber es ist ähnlich dem Löschen von Zeilen. Hier empfiehlt es sich den Schleifenzähler rückwärts laufen zu lassen, damit dieser sich nicht verhaspelt.

For nom = 1 To Sheets.Count Step 2

besser:

Dim blaetter as Integer
blaetter = Sheets.Count
For nom = blaetter to 1 Step -2
...

 

Hi Svetlana,

so funktioniert der Code

Code: