Option Explicit
Sub Exportieren()
Dim datei As String, e As Long, i As Long
Dim ID As Integer, Vorname As String, Nachname As String, Email As String
datei = Application.GetSaveAsFilename("Export.txt", "Text Files (*.txt), *.txt")
e = Cells(Rows.Count, 1).End(xlUp).Row
Open datei For Output As #1
For i = 2 To e
ID = Range("A" & i)
Vorname = Range("B" & i)
Nachname = Range("C" & i)
Email = Range("D" & i)
Print #1, "dn: cn=" & Vorname & " " & Nachname & ",id=" & ID
Print #1, "cn: " & Vorname & " " & Nachname
Print #1, "givename: -----"
Print #1, "mail: " & Email
Print #1, "objectclass: top"
Print #1, "object: person"
Next i
Close #1
End Sub