ich habe ein Makro so anpassen können das ich einen Datenexport von einem Tabellenblatt machen kann. Allerdings möchte ich nicht das gesamte Tabellenblatt exportieren sondern nur bis Spalte F und dem letzten Datensatz von unten:
So sieht das Makro aus:
Public Sub CSV_Artikel_Click() 'Optionbutton
'On Error GoTo Fehler
'MsgBox Application.International(xlListSeparator)
Call Var_Bel
Call Pfad_prüfen
If CSVError Then Exit Sub ' Pfad fehlt
With TB2
LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
If LR > 1 Then
'*** Namen zusammenbauen
CSVName = "Import_Bestellung_" & Format(Now, "YYYYMMDD_hh_mm_ss") & Ext
'*** Blatt als eigene xlsx erstellen
.Copy
Set WB2 = ActiveWorkbook
'*** als csv abspeichern und beenden
Application.DisplayAlerts = False
WB2.SaveAs Filename:= _
Pfad & CSVName, FileFormat:=xlCSVUTF8, CreateBackup:=False, Local:=True
Application.Wait (Now + TimeValue("0:00:03")) 'Warten
WB2.Close , False
Else
MsgBox "Keine Daten für CSV vorhanden"
End If
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
Application.DisplayAlerts = True
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
TB2 ist mein Tabellenblatt.
Könntet mir jemand helfen?
Gruß
Maris