Excel Bereich in Textdatei speichern

[jim84]

Hallo ich will ein bereich aus excel in eine text-datei speichern.

nur irgendwie ist da der wurm drin :confused:

Private Sub CommandButton2_Click()

   Dim Rechnung As Integer

   Dim inhalt As String

   inhalt = ActiveSheet.Range("a3:b30")

    Rechnung = FreeFile

    Open ActiveWorkbook.Path & "\Rechnungen\" & Date & " " & TextBox1 & ".txt" For Output As #Rechnung

    Print #Rechnung, inhalt

    Close #Rechnung

    ActiveSheet.Range("a3:b30").clear

End Sub

er sagt immer das es mit der variable = inhalt probleme gibt.. hat da einer eine idee?

gruß jim

[jim84]

hab es jetz hin bekommen,

man muss jede zeile einzeln schreiben.. so geht also ein bereich von a3 bis b32 nicht

hab es jetz mit einer schleife gelöst