Makro kopieren löst Fehler aus
24.07.2020 09:25:44
Nico
ich habe ein Makro geschrieben, bei dem ich teilweise auch aus dem Internet vorhandene Makros kopiert habe, Mit solch einem Makro habe ich leider ein Problem. Es ist das folgende:
Private Sub Makro_kopieren()
'Kopiert das Makro aus dem Objekt "Optionen" in die neuen Excel Blätter
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.InsertLines 1, ThisWorkbook.VBProject.VBComponents(Sheets("Optionen").CodeName). _
CodeModule.Lines(1, ThisWorkbook.VBProject.VBComponents(Sheets("Optionen").CodeName).CodeModule. _
CountOfLines)
End With
End Sub
Vielen Dank und Grüße
Nico
Anzeige