title image


Smiley Codeänderung
Hi joschi,



sollte so funktionieren:









Sub export_CSV()



Close #1

fileSaveName = Application.GetSaveAsFilename(fileFilter:="CSV Files (*.csv), *.csv", Title:="Als CSV beliebiges Trennzeichen separiert speichern")



If fileSaveName <> False Then

  Open fileSaveName For Output As #1



  'Hier entweder eingeben lassen oder alternativ:

  'Trennzeichen = ","

  trennzeichen = InputBox("Bitte geben Sie das gewünschte Trennzeichen ein: ", "Trennzeichen", ",")



  zeileMax = Sheets("Preise").UsedRange.Rows.Count + Sheets("Preise").UsedRange.Row - 1

  spalteMax = Sheets("Preise").UsedRange.Columns.Count + Sheets("Preise").UsedRange.Column - 1



  For zeile = 1 To zeileMax

    Text = ""

      For spalte = 1 To spalteMax

        Text = Text & Sheets("Preise").Cells(zeile, spalte).Value

          If i <> spalteMax Then

            Text = Text & trennzeichen

          End If

      Next spalte

    Print #1, Text

  Next zeile



  Close #1

End If



End Sub







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: