WorksheetFunction
Michael
es geht um folgenden Code:
Sub Schreiben()
Dim vntFileSaveName As Variant
Dim intFF As Integer
Dateiname = Sheets("Tabelle1").Cells(5, 1)
vntFileSaveName = Application.GetSaveAsFilename(Initialfilename:=Dateiname, filefilter:="(*.xls) _
, *.xls, Text Files (*.txt), *.txt")
If vntFileSaveName = False Then Exit Sub
With ThisWorkbook.Worksheets("upload_Kanal")
intFF = FreeFile()
Open vntFileSaveName For Output As #intFF
Print #intFF, Join(WorksheetFunction.Transpose(Range("A4:A44")), vbCrLf)
Close #intFF
End With
End Sub
Der Code macht folgendes:Er speichert Daten einer Excel-Datei in einer txt-Datei ab, dabei gibt es beim abspeichern einen Namens-Vorschlag ab. Mein Problem besteht darin, dass ich beim Range nur eine Spalte ausgeben kann. Ich muss aber mehrere Spalten ausgeben und abspeichern können, also z.B. Range("A4:G44"). Dabei kommt jedoch immer ein Fehler. Kann mir jemand bei diesem Problem weiterhelfen?
Vielen Dank schon einmal im voraus für eure Hilfe.