Macros aus Textdatei in Excelmappe
03.03.2022 17:30:57
Vincent
über das Forum hier bekam ich die Hilfe wie man Makros aus einer Textdatei importiert.
Leider werden die Umlaute nicht korrekt importiert bzw in Sonderzeichen umgewandelt.
Da ich auf einen Laufwerkspfad verweisen muss, in welchem Umlaute verwendet werden, kann ich das Makro an dieser Stelle nicht umschreiben.
Hat jemand hierfür einenTrick
Sub Mac_aktualisieren()
'aktualisiert Code der Excelsheets
Dim Pfad As String
Dim VBKomp As Object
Dim wb As Workbook
Pfad = "K:\Überprüfungen\"
Set wb = ActiveWorkbook
On Error Resume Next
Set VBKomp = wb.VBProject.VBComponents("DieseArbeitsmappe")
With VBKomp.codeModule
.DeleteLines Startline:=1, Count:=.CountOfLines
.AddFromFile Pfad & "Workbook_Macros.mac" ' Code aus Textdatei einfügen
End With
On Error GoTo 0
End Sub
If von_dieser_Probe_ist_etwas_zu_tun = True Then
Löschpfad = "K:\LABOR\Pharma-Verknüpfungen\"
CreateLink ThisWorkbook.FullName, Löschpfad & Löschstring
End If
Danke für eure Hilfe