Inhalt Combobox in csv exportieren

[fritz09]

Hallo,

weil Du den Pfad auch nicht verwendest. Somit: Open DstPfad & DstFileName

Gruß

Nach deiner Aussage müsste es so auch nicht funktionieren. Aber so nimmt er den den Pfad!

Sub SaveAsCSV()
  Dim DstFileName As String, DstPfad As String
  Dim Delimiter As String
  Dim strZe As String
  Dim lRow As Long, lCol As Integer
  Dim Ze As Long, Sp As Integer
  Dim ff As Integer

Dim strDateiname As String

  On Error GoTo ErrorHandler
  DstPfad = "T:\" 'Anpassen, muss bereits existieren
  strDateiname = InputBox("Bitte den Namen der CSV-Datei angeben." & vbNewLine & "Als Name nur die Kommissionsnummer angeben.")
  DstFileName = DstPfad & strDateiname & "_CSV-Export.csv"
  Delimiter = ";"

  With ActiveSheet
Range("A6").Value = Worksheets("Eingabe").TextBox4.Text
Range("A7").Value = Worksheets("Eingabe").TextBox1.Text
Range("A8").Value = Worksheets("Eingabe").TextBox2.Text
      lRow = .Cells.Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
      lCol = .Cells.Find(what:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
      ff = FreeFile
      Open DstFileName For Output As #ff
usw...