Hallo zusammen,
leider bin ich mit VBA nicht wirklich vertraut, würde aber gerne ein Export-Makro erstellen.
Ich möchte die erste Spalte exportieren und es lässt sich nicht vermeiden, dass manche Zeilen leer sind.
Es ist doch bestimmt möglich die leeren Spalten beim Export wegzulassen, oder?
Folgendes habe ich bis jetzt zusammen:
Sub Export()
'Variablen definieren
Dim Zieldatei As String
Dim Zeile As Integer
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
On Error GoTo Fehler
'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("CNC").Activate
Zieldatei = ThisWorkbook.Path & "\NC.txt"
Open Zieldatei For Output As #1
For Zeile = 1 To LastRow
Print #1, Cells(Zeile, 1).Value
Next Zeile
Close #1
MsgBox ("Programm erstellt")
Exit Sub
Fehler:
MsgBox Err.Description
End Sub
Vielen Dank im Voraus!
|