Daten von Excel verarbeiten

[Roger]

moin!

Poste mal den betreffenden Quelltext - ohne kann man schlecht sehen, woran es liegen könnte.

eigentlich hab ich deinen genommen. weiter hab ich jetzt an dem hier rumgeschraubt, mit dem selben ergebnis:

Sub AlsTextSpeichern()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String

Const Pfad As String = "c:"
Const Dateiname As String = "test"
Const Extension As String = ".txt"
Const Trennzeichen As String = ";"

Set Bereich = ActiveSheet.UsedRange

Open Pfad & Dateiname & Extension For Output As #1

For Each Zeile In Bereich.Rows
    For Each Zelle In Zeile.Cells
      If InStr(1, Zelle.Text, ";") > 0 Then
        'Zellen, die ein Semikolon beinhalten in Anführungsstriche setzen
        strTemp = strTemp & """" & CStr(Zelle.Text) & """" & Trennzeichen
      Else
        strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
      End If
    Next
    Print #1, strTemp
    strTemp = ""
  Next

Close #1
  Set Bereich = Nothing
End Sub

gruß.
roger.