Export-Makro txt
19.10.2018 19:06:20
Mario
ich habe folgendes Export-Makro:
Sub ExportInTextDatei()
Dim Bereich As Range, Zeile As Long, Spalte As Long
Set Bereich = ThisWorkbook.Worksheets("Tabelle1").Range("W1:AE368")
Open "/Users/Ich/Documents/test.txt" For Output As #1
For Zeile = 0 To Bereich.Rows.Count - 1
For Spalte = 0 To Bereich.Columns.Count - 1
Print #1, Bereich.Cells(1).Offset(Zeile, Spalte).Value & vbTab;
Next Spalte
Print #1,
Next Zeile
Close #1
End Sub
Dies klappt soweit auch ganz gut, ich bräuchte aber 2 Änderungen:1. Ich möchte den Pfad nicht fix im VBA festlegen. Es soll Standardmäßige der Pfad sein, in dem die Exceldatei liegt (unabhängig vom Betriebssystem). Gern mit Meldung am Ende, dass die txt gespeichert wurde.
2. ich möchte gern, dass leere Zeilen nicht mit exportiert werden. Alle Zellen W1:AE368 sind mit Formel belegt. Die Zeilen 366 bis 368 können u.U. durch die Formel (optisch) leer sein. Diese sollen nicht in der exportierten txt erscheinen.
Wie kann ich diese Punkte umsetzen?
Besten Dank und viele Grüße
Mario