Tabellenblattcode
chrissi92
mit untem stehenden code möchte ich einen Tabellenblattcode einlesen.
Die Tabelle1 heißt eigendlich "Preisliste" wenn ich dies statt "Tabelle1" eingebe
funktioniert es nicht.
Nun ist es so das zwar der Code importiert wird, jedoch aus "Tabelle1" "TagCode" wird.
Was mache ich falsch?
Danke!
Gruß, Nina
Sub Code_Einlesen()
sPath = ThisWorkbook.Path & "\"
With Workbooks("Tag.xlsx")
ActiveWorkbook.VBProject.VBComponents("Tabelle1").CodeModule.AddFromFile (sPath & "TagCode. _
bas")
End With
End Sub
Anzeige