title image


Smiley Re: Mit Makro Tabellenblatt in csv exportieren
Hi joschi,



probiere es mal damit:









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 = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1

  spalteMax = ActiveSheet.UsedRange.Columns.Count + ActiveSheet.UsedRange.Column - 1



  For zeile = 1 To zeileMax

    Text = ""

      For spalte = 1 To spalteMax

        Text = Text & ActiveSheet.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: