Stehe vor folgender Herausforderung:
Habe ein Excel-File "ABC" mit mehreren Datenblättern, nun möchte ich das Datenblatt "Akquise" als CSV-Format an einen bestimmten Pfad exportieren & es soll den Excel-Filenamen bekommen.
Meine gefilterte Tabelle beginnt im Datenblatt mit der Überschrift ab dem Zellenbereich B16 bis Q16. (Zeile 1-15 darf nicht exportiert werden) je nach Filter können 1 bis 4000 Datensätze übertragen werden. Wenn möglich soll die Ergebniszeile der gefilterten Tabelle nicht übertragen werden.
Mit untenstehendem Modul kann ich exportieren, aber weis nicht wie die gefilterte Tabelle zu definieren ist.
Danke im Voraus für Eure VBA Hilfe.
Gruss Jacques
Sub CSVExport()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim strMappenpfad As String
strMappenpfad = ActiveWorkbook.FullName
strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")
strDateiname = "C:\JJ\TEST-Datenimport\IundExport\" & ActiveWorkbook.Name & ".csv"
If strDateiname = "" Then Exit Sub
strTrennzeichen = ","
If strTrennzeichen = "" Then Exit Sub
Set Bereich = ActiveSheet.UsedRange
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
End Sub