Clever-Excel-Forum

Hallo zusammen,
ich möchte die Zellbereiche eines Excelblattes "Daten" in eine Txt-Datei "Ergebnisse" übertragen.

Es sollen die Spalten "A", und "C" übetragen werden, aber nur bis zur Zeile 35.

Hat jemand eine Idee

Ich danke euch schon mal.

Hallo,

Code:
Sub ExportText()

  Dim iFrei As Long

  Dim iZeile As Long

  Dim varQ As Variant

  varQ = ActiveWorkbook.Worksheets("Daten").Range("A1:C35").Value

  iFrei = FreeFile

  Open "F:\Uwe\Ergebnisse.txt" For Output As #iFrei

  For iZeile = 1 To UBound(varQ)

    'Write #iFrei, varQ(iZeile, 1), varQ(iZeile, 3)

    Print #iFrei, varQ(iZeile, 1); vbTab; varQ(iZeile, 3)

  Next iZeile

  Close #iFrei

End Sub

Gruß Uwe

Vielen Dank, hat bestens funktioniert Idea

Fasedamo

Kuwer

Fasedamo