activesheet.saveas txt
04.08.2013 11:32:56
Günter
kämpfe mich als Neuling durch VBA.
Ich habe ein xls-Arbeitsblatt mit x Zeilen.
Möchte nun jeweils 5 Zeilen als txt speichern.
Habe dazu folgenden code erstellt
Range("A2:A6").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.SaveAs Filename:="C:\Users\LAPTOP\Documents\spei_01.txt", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
Selection.ClearContents
Sheets("Tabelle1").Select
Mein Problem:
Ich starte mit dem Excelblatt txt-speichern.xlsm
Nach dem Speichern und zurückspringen in "sheets("Tabelle1").select" befinde ich mich im Excelblatt spei_01.txt, ich will aber zurück in txt-speichern.xlsm
Im Endausbau möchte ich natürlich anhand der gefüllten Zeilen und einer variablen Stückelung die Anzahl und Grösse der txt-Dateien bestimmen.
Daran arbeite ich noch.
Viele Grüße
Günter