Export

Sub n_export()
Dim Dateiname As Variant
Dim zeile As Long
Dim spalte As Integer
Dim GanzeZeile As String
Dateiname = Application.GetSaveAsFilename(initialfilename:=ThisWorkbook.Path & Application. _
PathSeparator & "Nastran_Export" & "_" & ActiveWorkbook.Name & "_" & Format(Now, "ddmmyy") & "_" _
& Format(Now, "hhmm") & ".txt", fileFilter:="Text-Datei (*.txt), *.txt")
If Dateiname = False Then Exit Sub
zeile = 1
spalte = 1
Open Dateiname For Output As 1
For zeile = 1 To ActiveSheet.UsedRange.Rows.Count
For spalte = 1 To ActiveSheet.UsedRange.Columns.Count
GanzeZeile = GanzeZeile & Format(Cells(zeile, spalte), "&" & String(8, "@"))
Next spalte
Print #1, GanzeZeile
GanzeZeile = ""
Next zeile
Close #1
End Su

gibt es eine Möglichkeit nur die Zeilen rauszuschreiben, bei denen die Zellen (i,6) bis (i,8) ungleich 0 sind.
Also es muss eine Abfrage eingebaut werden, ob die zellen (i,6)-(i,8) =0 sind. Wenn ja next.zeile oder sowas!!
Besten Dank
Grüße Florian