vor dem Export
08.05.2007 22:28:00
Roger
Hallo Matthias,
danke für Deine Antwort. Ist es auch möglich vor dem Export bearbeitungen vorzunehmen?
Hier einmal der verwendete Code!
Sub CSV_Export()
Dim Bereich As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Dim Verzeichnis As String
Dim Datei As String
Verzeichnis = ActiveWorkbook.Path & "\"
Datei = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".csv"
Set Bereich = Tabelle1.Range("A1:C50")
Open Verzeichnis & Datei For Output As #1
Print #1, "/TABLE;89"
For Each Zeile In Bereich.Rows
If Zeile.Cells(2) "" And Zeile.Cells(3) "" Then
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & ";"
Next Zelle
s = Left(s, Len(s) - 1)
Print #1, s
End If
s = ""
Next Zeile
Close #1
MsgBox "Die Datei wurde erfolgreich exportiert." & Chr(13) & _
"Sie befindet sich unter:" & Chr(13) & Chr(13) & _
Verzeichnis & Datei, vbOKOnly, "CSV Export"
End Sub
Kann ich jetzt nicht vor dem Export am Anfang der Tabelle eine neue Spalte einfügen in der ich den Wert aus einer Inputbox einfülle?
Alternativ könnte ich ja die Tabelle kopieren in ein neues Blatt einfügen, neue Spalte einfügen, exportieren und hilfsblatt wieder löschen.
Was meinst Du dazu?
Gruss Roger