tabellen per makro loeschen
27.07.2005 09:07:34
roland_k
habe was gebastelt :
Sub modul_tab_loeschen()
'On Error Resume Next
Dim Ex As Variant
Dim a As Variant
Dim jn As Boolean
For a = 1 To 12
For Each Ex In ThisWorkbook.Sheets
If Ex.Name = a Then
MsgBox "wird geloescht"
Sheets(a).Delete
End If
Next Ex
Next a
End Sub
es geht darum: in ner mappe sollen alle tabellen von 1 - 12 geloescht werden
sofern vorhanden
komme da nicht klar Sheets(a).Delete stimmt das so ? oder sheets("a") ?
irgendwie stimmt denke ich im gesamten code was nicht ?
danke wenn sich jemand die muehe macht das zu berichtigen
gruss roland_k