Hallo, ich bin neu hier und habe wie viele andere ein Problem bei dem ich Hilfe benötige.
Im allgemeinen geht es um eine Tabelle die als CSV Datei gespeichert werden soll und die für einen Import in ein anderes System benötigt wird. Soweit nicht ganz so kompliziert. Ich habe auch schon ein Makro gefunden mit dem es funktioniert. Jetzt zu dem eigentlichen Problem von mir bei dem ich nicht weiterkomme. Ich möchte erwirken, dass bei der Ausführung des Makros mehrere CSV Dateien erstellt werden, die abhängig von einer Positionsnummer sind z.B. Position 1 - 1.99.99.99 und dann eine weitere Datei für die Positionen 2 - 2.99.99.99 usw. also eigentlich >=1 & =2 & Hier der Code
strMappenpfad = "C:\Users\Pfad\\Stücklistenimport\" & ActiveSheet.Name
strDateiname = InputBox("Bitte den Namen der CSV-Datei angeben.", "CSV-Export", strMappenpfad & ".csv")
strTrennzeichen = ";"
Set Bereich = ActiveSheet.UsedRange
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If blnAnführungszeichen = True Then
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Export erfolgreich. Datei wurde exportiert nach" & vbCrLf & strDateiname
End Sub
Über eine Hilfestellung oder Hinweise zur Umsetzung wäre ich sehr dankbar.