Zellbereiche in Textdatei übertragen

[Fasedamo]

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.

[Kuwer]

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

[Fasedamo]

Vielen Dank, hat bestens funktioniert