das folgende Makro habe ich mit meinen bescheidenen Kenntnissen aus im Forum gefundenen Beiträge zusammengestellt. Es soll ein neues TB entsprechend der Eingabe in "neu" h11 erstellt werden. Funktioniert.
Danach soll der im alten TB enthaltene Code ins neue TB übernommen werden. Der Name des erstellten neuen TB steht in "neu"f5.
Ich erhalte die Fehlermeldung: Objekt unterstützt diese Eigenschaft nicht.
diese Zeile .VBComponents(wks.CodeName).CodeModul ist markiert.
Kann mir bitte jemand helfen.
Sub neuestab()
Titel = Sheets("neu").Range("h11").Value
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count) 'neues Blatt am Ende der Tabelle
Sheets(Worksheets.Count).Name = Titel
Dim wksCodeName As String
wksCodeName = Sheets("neu").Range("f5").Value
' Code einfügen in neues TB
Dim wks As Worksheet
Set wks = ActiveSheet
With ActiveWorkbook.VBProject _
.VBComponents(wks.CodeName).CodeModul
End With
End Sub
Vielen Dank und liebe GrüßeGisela