For schleife immer Außerhalb Index
06.09.2007 16:53:56
Corben
ich habe eine Arbeitsmappe mit 4 Blättern (durchnummeriert mit 1-4).
Nun wende ich folgden
Sub an
Sub löschen()
Dim e As Integer
Dim WB As Workbook
Set WB = ThisWorkbook
For e = 1 To WB.Sheets.Count
If WB.Sheets(e).Name = "3" = True Then
WB.Sheets(e).Delete
End If
Next
WB.Worksheets.Add before:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = "3"
End With
Dim DS As Worksheet
Set DS = WB.Sheets(Worksheets.Count)
End Sub
Wieso läuft die For schleife immer Außerhalb des Index (Zumindest bei mir)?
Ratlos!
Gibt es da ne Lösung oder mach ich was falsch?!
Gruß Corben