|
Hallo habe ein Problem mit folgendem Code:
______________________________________________________________________________________________
Set Bereich = ActiveSheet.UsedRange 'Selektierter Bereich wird übernommen (im Moment noch mit Bug -> gesamte genutzte Excel Mappe wird übernommen)
Open strDateiname For Output As #1 'Datei wird erstellt
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & strKlammer & CStr(Zelle.Text) & strKlammer & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1 'Datei wird abgeschlossen
Set Bereich = Nothing 'Bereich wird zurückgesetzt
MsgBox "Export erfolgreich. Datei wurde exportiert nach" & vbCrLf & strDateiname, , "CSV-Export" 'Erfolg wird bestätigt
_______________________________________________________________________________________________
Dieser Code wandelt den Zelleninhalt in eine Textdatei um ... "Zelleninhalt","Zelleninhalt","..."
Mein Problem ist jetzt, dass alles gespeichert wird, was jemals bearbeitet wurde, sprich CB93 wurde einmal beschrieben, wird alles bis dort oben mit einbezogen:
"letzter Zelleninhalt","","","",... und dann folgt wahnsinnig oft nichts -,-
kann mir vielleicht jemand sagen, wie ich nur den selektierten Bereich auswählen kann?
schonmal danke im Vorraus
|