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

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