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
Was soll das Makro machen: Ich habe in meiner Excel ein Blatt "Optionen" dort trage ich in einer Spalte Nummern ein, für die per Button, also mit einem weiteren Makro, neue Excel Blätter erstellt werden. Die neuen Excel Blätter erhalten durch das "Makro_kopieren", welches in dem Hauptmakro per Call integriert ist, jeweils immer den VBA Code von dem Blatt "Optionen". Nun kommt das komische, manchmal funktioniert das Makro, manchmal aber nicht und der Debugger zeigt mir an, dass die erste Zeile von "Makro_kopieren" den Fehler auslöst. Hat jemand eine Idee?Vielen Dank und Grüße
Nico