AW: Spalteninhalt als TXT speichern
16.08.2010 13:15:41
Klaus
Hallo Jockel,
ja, das geht. Am einfachsten: Spalte H in eine neue Tabelle kopieren (nur Werte) und diese Abspeichern. Hab ich mal ge-Makro-Recordert:
Sub Makro5()
' Makro5 Makro
' Makro am 16.08.2010 von klaus.mvdt aufgezeichnet
Columns("H:H").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="U:\NurSpalteH.txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close
End Sub
Und dann etwas schöner gemacht (selects und überflüssiges raus):
Sub Makro5()
Columns("H:H").Copy
Workbooks.Add
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
With ActiveWorkbook
.SaveAs Filename:="U:\NurSpalteH.txt", FileFormat:=xlUnicodeText
.Close
End With
End Sub
Den Pfad / Dateinamen zum speichern musst du natürlich deinen Bedürfnissen entsprechend ändern.
Grüße,
Klaus M.vdT.