der erste Code:
Sub Codes_löschen1()
With ThisWorkbook.VBProject.VBComponents("Tabelle34").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
funktioniert wunderbar. Beim zweiten:
Sub Codes_löschen()
With ActiveWorkbook.VBProject.VBComponents(29).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
passiert überhaupt nichts. Ich muss das Blatt aber über den Sheet.Index ansprechen.
Das Makro:
Private Sub Worksheet_Activate()
Range("I4") = ActiveSheet.Index
End Sub
gibt mir in Zelle I4 den Wert 29 aus
im ProjectExplorer heisst das entsprechende Blatt Tabelle34(Leer(2))
Wo liegt mein Fehler??
Ich bitte um Eure Hilfe.
Grüsse
Wolfgang