Makro mit Makro löschen...
robert
ich habe bei einem freund unten stehendes makro eingebaut.
excel 2003 wie bei mir...
bei mir ohne fehler, bei meinem freund wird die zeile:
For Each Ding In ActiveWorkbook.VBProject.VBComponents
mit fehler und abbruch gemeldet.
feehlermeldung hab ich leider keine,wir sind ca 60 Km auseinander, bzw.
ist er nicht in der lage,die korrekte meldung zu senden-sorry :-(
hat jemand trotzdem eine ahnung?
gruß
robert
Sub Ohne()
Dim Ding As Object
Dim zeile
For Each Ding In ActiveWorkbook.VBProject.VBComponents
'Type 100 = DieseArbeitsmappe und alle Tabellen
If Ding.Type = 100 Then
With ActiveWorkbook.VBProject.VBComponents(Ding.Name).CodeModule
For zeile = 1 To .CountOfLines
.DeleteLines 1
Next zeile
End With
End If
Next
'ActiveWorkbook.SaveAs sdateiname
End Sub