Hallo Leute,
ich habe folgendes Problem:
Ich hab ein Makro geschrieben das in der Lage ist eine Exceldatei für den Upload in SAP vorzubereiten. Das benötigte Format dazu ist xlcsvMSDOS, es funktioniert soweit alles super. Nur sobalt ich die Datei schließe mit close im Makro und das nächste Mal öffne sind die Daten nicht mehr in unterschiedlichen Zellen, sondern durch Kommata getrennt. Um im SAP hier Daten hochladen zu können müssen die Daten in unterschiedlichen Zellen stehen. Das ganz funktioniert seltsamerweiße auch wenn ich von Hand speicher. Also das Makro abreche in die erstellte neue Datei gehe und von Hand als CSV MSdos speicher. Denn dann sind die Werte in unterschiedlichen Zellen.
Ich hoffe ihr könnt mir helfen, ich versuche das Problem schon seit 2 Tagen zu lösen und finde nichts dazu im Internet, denn die meißten benötigen diese Kommatatrennung.
Das Makro sieht im relevanten Teil so aus:
'Exportdatei erstellen
ActiveWindow.SmallScroll ToRight:=3
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Export SAPSEMBCS").Select
Sheets("Export SAPSEMBCS").Copy
Sheets("Export SAPSEMBCS").Select
Jahr = Range("e2").Value
monat = Range("f2").Value
Version = Range("c2").Value
Subversion = Range("d2").Value
strDate = Format(Date, "ddmmyyyy")
'Datei als csv speichern und Sheet umbenennen
Sheets("Export SAPSEMBCS").Select
ActiveSheet.Name = "Upload_" & Version & "_" & Jahr & "_" & monat & "_" & Subversion & "_" & strDate 'neuer Blattname
nameneu = ThisWorkbook.Path & "\" & "Upload_" & Version & "_" & Jahr & "_" & monat & "_" & Subversion & "_" & strDate & Extension 'neuer Dateiname
ActiveWorkbook.SaveAs Filename:=nameneu, FileFormat:=xlCSVMSDOS
ActiveWindow.Close