habe ein Makro erstellt und will dieses nun mit einer xlt Datei verknüpfen.
Wenn das Makro aus der xlt heraus gestartet werden soll, wird versucht, die xls datei zu starten unter der das Makro entwickelt wurde. Wie kann ich das ändern ?
Gruß
Andreas
W.
'Variablen festlegen
Dim TB As Worksheet
Dim Sheetname, Pfad As String
'Schleife für drei Tabellenblätter
For i = 2 To 4
Set TB = ThisWorkbook.Worksheets(i)
'Speicherort ermitteln
Pfad = ThisWorkbook.Path
'Tabellenname lesen für exportfile
Sheetname = TB.Name
'Exportfile Pfad angeben
exportfile = Pfad + "\" & Sheetname & ".csv"
'Exportfile öffnen
Open exportfile For Output As #1
'Spalten zählen
x = TB.UsedRange.Columns.Count
'Zeilen zählen und Ausgabe
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To x
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
'Nächste Spalte
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #1, TMP
TMP = ""
'Nächste Zeile
Next z
'Exportfile schliessen
Close #1
'Schleife für drei Tabellenblätter Ende
Next i
MsgBox ("Die Katalogdaten wurden gespeichert")
End Sub