Arbeitsmappe im Hintergrund öffnen

Sub AAA() Columns("AC:AN").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _ Transpose:=False Range("A1").Select Application.CutCopyMode = False ChDir "C:\Users\[xxx]" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\Users\[xxx]\xxx.txt", FileFormat:=xlText, CreateBackup:= _ False Application.DisplayAlerts = True ActiveWorkbook.Close Range("AC1").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub AAA() Application.ScreenUpdating = False Columns("AC:AN").Copy Workbooks.Add ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues ChDir "C:\Users\[xxx]" ActiveWorkbook.SaveAs Filename:="C:\Users\[xxx]\xxx.txt", FileFormat:=xlText, CreateBackup:= _ False ActiveWorkbook.Close Range("AC1").Select End Sub

Hallo
Doch noch eine Frage. Falls ich anfange, Dir auf den Wecker zu gehen, sag es ruhig ganz ehrlich und offen, ja?
Das Makro schaut ja jetzt so aus:

Sub AAA()
Application.ScreenUpdating = False
Columns("AC:AN").Copy
Workbooks.Add
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ChDir "C:\Users\[xxx]"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\[xxx]\[xxx].txt", FileFormat:=xlText, CreateBackup:= _
False
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub

Von meine Ausgangstabelle werden ja die kompletten Spalten AC bis AN verwendet. Diese sind nicht alle komplett mit Werten gefüllt. Es sind zur Zeit ca. 800 Zeilen gefüllt, und der Rest ist leer. Auch gibt es zwischendurch, also in den Zeilen 1-800 auf ein paar "Leerzeilen". Und die Anzahl der mit Werten gefüllten Zellen ändert sich auch immer wieder.
Darum sin dann ja auch in der letztendlich gespeicherten *.txt-Datei zwischendurch und auch am Ende ganz viele Leerzeilen.
Ich möchte es gerne so haben, dass in der letztendlich gespeicherten *.txt-Datei keine Leerzeilen mehr enthalten sind.
Ist das machbar?
Man könnte das ja wahrscheinlich per VBA beim Kopieren aus der ursprünglichen Tabelle oder dann in der Zwischen-Kopier-Tabelle oder sogar zum Schluss in der Textdatei machen lassen, richtig?
Was ist denn da am einfachsten und vor Allem, wie mache ich das?
Ich hoffe, Du hast Lust, mir da nochmal behilflich zu sein. Das würde mich natürlich riesig freuen weiterhin. Ich selbst bekomme das nicht hin.
Gruß
Ingo

Sub Makro1() Application.ScreenUpdating = False With Worksheets("Tabelle1") .Range("$P$1:$W$" & .Cells(.Rows.Count, "P").End(xlUp).Row).AutoFilter Field:=1, _ Criteria1:="" .AutoFilter.Range.Copy Worksheets.Add after:=Worksheets(Sheets.Count) ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats ChDir "C:\Users\[...]" Application.DisplayAlerts = False ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:="C:\Users\[...]\xxx.txt", FileFormat:=xlText, _ CreateBackup:=False ActiveWorkbook.Close Worksheets(Sheets.Count).Delete .Range("P1").AutoFilter End With Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

Arbeitsmappe im Hintergrund öffnen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsmappe im Hintergrund öffnen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread