Sub Export_txt()
Dim i As Long, derlig As Long, tabl
derlig = Range("E" & Rows.Count).End(xlUp).Row + 1
tabl = Range("E2:F" & derlig)
Range("AW1").Value = Now
Open Range("AU24").Value & "\" & Range("AW1").Text & ".txt" For Output As #1
For i = 1 To UBound(tabl, 1)
If tabl(i, 1) <> "" Then
Print #1, tabl(i, 2) & " : "; tabl(i, 1)
End If
Next
Close #1
End Sub