Excel - nur teil abspeichern als csv

Computer: Software & Programmierung Visual Basic
#1

Hallo,
kenne mich mit vb überhaupt nicht aus, aber ich brauche das ganz dringend.

ICh habe eine excel-datei mit 2 Blättern (unten die Reiter). Nun möchte ich vom zweiten Blatt nur einen bestimmten Bereich als csv abspeichern. Das ganze soll über einen Button gesteuert werden, dass der Anwender nix weiter machen muss.

Nun habe ich schon mal folgendes gemacht:

Button eingefügt,
Private Sub CSVButton_Click()
’ Datei als csv abspeichern
ActiveWorkbook.SaveAs Filename:=„liste.csv“, FileFormat:= _
xlCSV, CreateBackup:=False
End Sub

so, nun wird zwar nur die zweite Seite als csv gespeichert, aber die wird auch gleich geöffnet. Ich möchte das nur im Hintergrund laufen lassen.
Wie bekomme ich das hin, dass nur ein Teilbereich (Tabelle) übersetzt wird?? Und dass der Filename beibehalten wird?

steffi

#2

Moin Steffi,

das hättest Du besser im Excel-Forum posten sollen.
Da ist viel VBA vertreten.

Hier ist mal eine mögliche Lösung. Die ist aber
nicht sonderlich robust:

Private Sub CSVButton\_Click()
Const Dateiname As String = "Liste.csv"
 Me.Copy
 With Workbooks(Workbooks.Count)
 .SaveAs Dateiname, xlCSV
 .Saved = True
 MsgBox "Gespeichert wurde:" & vbCrLf & .Path & "\" & .Name, vbInformation, "Hinweis"
 .Close
 End With 'Workbooks(Workbooks.Count)
End Sub 'CSVButton\_Click

Kristian