CSV Export - Alle Spalten exportieren

hkoepp63 · 2023-06-09T12:42:44+00:00

Hallo Zusammen, ich habe in einer früheren Anfrage schon den eigentlichen Export angefragt und dankender Weise eine Lösung dafür bekommen. Beim Importversuch beim Kunden ist jedoch aufgefallen das der Export vom Blatt "export_csv" ab Spalte I - L "exportiert. Ich aber in den Spalten A - H die Verlinkung in die neue Datei exportiere. Dies hat dann zur Folge, daß der Importer beim Kunden eine Fehlermeldung bringt. Es dürfen also nur die Inhalte exportiert werden, ähnlich wie I - L. https://www.herber.de/bbs/user/159517.xlsm Vielen Dank schon einmal im Voraus für Eure Hilfe. Beste Grüße und ein schönes Wochenende. hkoepp63

Guten Morgen Zusammen,
@onur, kannst Du Dir bitte noch einmal den code ansehen.
die anderen Spalten funktionieren, nur ich müsste aus den Spalten A-H auch nur den Inhalt exportieren, nicht die hinterlegte Formel mit übernehmen in die CSV Datei.
Hier noch einmal der Code

Sub Exporten()
       Dim LR As Integer, i As Integer, Z1 As Integer
       Dim TB1 As Worksheet, TB2 As Worksheet
       Dim SRV As String, Mng As String, LTxt As String, STxt As String
       Dim Pfad As String, Datei As String, Ext As String
       
       Sheets("export_csv").Select
              
       Set TB1 = Sheets("aufmass")
       Set TB2 = Sheets("export_csv")
       Z1 = 11 'erste Datenzeile
       
       Pfad = ThisWorkbook.Path 'mit \ am Ende
       Ext = ".csv"
       
       'reset
       TB2.Range("I2:L2").ClearContents
       
       With TB1
           LR = .Cells(.Rows.Count, "C").End(xlUp).Row 'letzte Zeile der Spalte
           
           For i = Z1 To LR
               If .Cells(i, 3) > "" Then
                   SRV = SRV & ";" & .Cells(i, 3)
                   Select Case .Cells(i, 7)
                       Case "", 0, 1
                           Mng = Mng & ";" & .Cells(i, 14)
                       Case Else
                           Mng = Mng & ";" & .Cells(i, 14) & "*" & .Cells(i, 7)
                   
                   End Select
                   
                   LTxt = LTxt & ";"
                   STxt = STxt & ";"
                   
               End If
           Next
           
           
       End With
       With TB2
           Datei = .Cells(2, 1)
           
           
           .Cells(2, 9) = Mid(SRV, 2)    'erstes Semi wird weggelassen
           .Cells(2, 10) = Mid(Mng, 2)
       
           .Cells(2, 11) = LTxt
           .Cells(2, 12) = STxt
           
           'Blatt auswählen, nur das Aktive wird exportiert
           
           .Activate
       
       End With
       
       Application.DisplayAlerts = False ' "Schon vorhanden" abschalten
       Sheets("export_csv").Select
       ThisWorkbook.Sheets("export_csv").Copy
       ActiveWorkbook.SaveAs filename:=Datei & Ext, FileFormat:=xlCSVUTF8, Local:=True
       Application.DisplayAlerts = True
       'Sheets("Aufmass").Select
       
   End Sub

Beste Grüße
hkoepp63

CSV Export - Alle Spalten exportieren

Forumthread: CSV Export - Alle Spalten exportieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

CSV Export - Alle Spalten exportieren

Forumthread: CSV Export - Alle Spalten exportieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread