Sub Klassenmodul_kopieren()
Dim oSourceBook As Object
Dim sPfad As String
Dim sDatei As String
Dim int_Datensatz As Integer
Dim str_Mitarbeiter As String
Dim str_Pfad As String
Dim str_Datei As String
int_Datensatz = 7
Do While x < 135
str_Mitarbeiter = tbl_Honig.Cells(int_Datensatz, 2).Value
str_Pfad = "Z:\Honig\Anwesenheit\"
str_Datei = str_Pfad & str_Mitarbeiter & "\" & "Anwesend_" & str_Mitarbeiter & "_2018.xlsm"
If str_Datei <> "" Then
Set oSourceBook = Workbooks.Open(str_Datei, True)
Dim StrCode As String
With ThisWorkbook.VBProject.VBComponents _
("DieseArbeitsmappe").CodeModule
StrCode = .Lines(1, .CountOfLines)
End With
ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe"). _
CodeModule.AddFromString StrCode
ActiveWorkbook.Protect ("181801818")
ActiveWorkbook.SaveAs str_Datei, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
End If
int_Datensatz = int_Datensatz + 1
Loop
Application.ScreenUpdating = True
Set oSourceBook = Nothing
End Sub