---

Servus

Wollte mit VBA einen Makro einen Zellbereich in eine TXT schreiben. um es mit einem ACAD weiterzuverarbeiten.
Was ich geschaft habe mit "Makro aufzeichnen" ist, das er mit das Blatt Sheet in die "Projekt SCR Autocad.scr" speichert. Nur leider schreibt er am Anfang und am Ende ein " hin. Wie kann ich das umgehen?

Blatt "Fertig", Zellbereich A1 bis A196

- -  - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Exportieren_Click()
'
' Makro14 Makro
' Makro am 27.01.2005 von Bernd Pongratz aufgezeichnet
'

'
    Sheets("FERTIG").Select
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Eigene Dateien\_Jumper\1 Dateien\Projekt SCR Autocad.scr", FileFormat:= _
        xlText, CreateBackup:=False
    ActiveWindow.Close

End Sub
- -  - - - - - - - - - - - - - - - - - - - - - - - - - -

------------------
schöne Grüsse aus der Steiermark  Bernd P. Warum Einfach es geht auch kompliziert

Bitte Supportangaben eintragen, warum siehst du hier

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd,

bin kein besonderer Freund von SaveAs ;;-))
Versuch's mal so in etwa, bezieht sich aber nur auf A1:A196:

Code:

---

Sub x()
  Dim i&
  Open "c:\temp\Projekt SCR Autocad.scr" For Output As #1
  For i = 1 To 196
    Print #1, Sheets("Fertig").Cells(i, 1).Value
  Next
  Close #1
End Sub

---

Gruss Nancy
--
ps: wenn Du nur immer einen selektierten Zellbereich bzw. mehrere Spalten möchtest, sag nochmal Bescheid
       

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Ich danke dir, hab heut schon "herumgeblödelt" wegen dem.
1 Spalte reicht mir völlig.

------------------
schöne Grüsse aus der Steiermark  Bernd P. Warum Einfach es geht auch kompliziert

Bitte Supportangaben eintragen, warum siehst du hier

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP