CSV Export - Alle Spalten exportieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

CSV Export - Alle Spalten exportieren

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread