Makrofehler
07.03.2006 11:30:24
Michael
ich habe folgendes Problem.
ich habe eine Arbeitsmappe mit ca. 50 Blättern. Diese Blätter sollen als txt Dateien abgespeichert werden (zum Upload in ein ERP System). Der Name der Datei besteht aus einen festen teil und einer Variable, die aus einer bestimmten Zelle des jeweiligen Sheets bezogen wird.
ich klicke also immer durch die Blätter und erzeuge meine txt-files. Das klappt soweit ganz gut. Allerdings klappt das ganze in einer datei nicht. Es tritt folgender Fehler auf:
Der Name wird korrekt erzeugt, aber der Dateiinhalt besteht immer aus den Daten des letzten Sheets.
hier mal der Code des Macros:
Sub Speichern_TXT()
'Format 0.00
ActiveSheet.Columns("C:C").NumberFormat = "0.00"
Dim name As String
ChDir "T:\Projekte\Upload"
name = "T:\Projekte\Upload\PSPPLAN_" & Range("B4").Value & ".txt"
ActiveWorkbook.SaveAs Filename:=name, FileFormat:=xlTextMSDOS, CreateBackup:=False
End Sub
hat jemand eine Idee woran das liegen könnte?
Micha