AW: bestimmte Tabellen aus Workbook speichern
22.01.2005 15:22:00
Ramses
Hallo
Das hat GraFri mal hier platziert.
'---------------------------------------------
'Von GraFri
' Code in das erste Tabellenblatt (nach "DieseArbeitsmappe"), da der Löschvorgang
' in der Richtung "letzten Tabelle" zur "ersten Tabelle verläuft". Zuerst "Module",
' dann "Userformen" und zuletzt "Ereignisprozeturen (Code in einem Tabellenblatt) löschen"
'Diese Prozedur zum Löschen aufrufen
Sub Alles_löschen()
Call Lösche_Module
Call Lösche_Userformen
Call Lösche_Ereignisprozeduren
End Sub
Sub Lösche_Module()
'Löscht Module:
For n = ThisWorkbook.VBProject.VBComponents.count To 1 Step -1
If ThisWorkbook.VBProject.VBComponents(n).Type = 1 Then
ThisWorkbook.VBProject.VBComponents(n).Collection.Remove ThisWorkbook.VBProject.VBComponents(n)
End If
Next
End Sub
Sub Lösche_Userformen()
'Löscht Userforms:
For n = ThisWorkbook.VBProject.VBComponents.count To 1 Step -1
If ThisWorkbook.VBProject.VBComponents(n).Type = 3 Then
ThisWorkbook.VBProject.VBComponents(n).Collection.Remove ThisWorkbook.VBProject.VBComponents(n)
End If
Next
End Sub
Sub Lösche_Ereignisprozeduren()
'Löscht Ereignisprozeduren:
For n = ThisWorkbook.VBProject.VBComponents.count To 1 Step -1
For i = 1 To ThisWorkbook.VBProject.VBComponents(n).CodeModule.CountOfLines
If ThisWorkbook.VBProject.VBComponents(n).Type <> 1 And ThisWorkbook.VBProject.VBComponents(n).Type <> 3 Then _
ThisWorkbook.VBProject.VBComponents(n).CodeModule.DeleteLines 1
Next
Next
End Sub
'-------------------------------------------------------
Gruss Rainer