Excel Tabellenblatt als .csv speichern und mailen

Private Sub CommandButton2_Click()

Dim speichername As String
Dim Ort As String
Dim Strasse As String
Dim Hausnummer As String
Dim Stiege As String
Dim Tuer As String
Dim ok As Integer

ok = 0

Ort = Worksheets("Eingabe_Laufzettel").Range("B9").Value  
Strasse = Worksheets("Eingabe_Laufzettel").Range("D11").Value  
Hausnummer = Worksheets("Eingabe_Laufzettel").Range("B13").Value  
Stiege = Worksheets("Eingabe_Laufzettel").Range("E13").Value  
Tuer = Worksheets("Eingabe_Laufzettel").Range("H13").Value  

If Hausnummer = "" Then  
Hausnummer = "N"  
End If

If Stiege = "" Then  
Stiege = "N"  
End If

If Tuer = "" Then  
Tuer = "N"  
End If

speichername = "Laufzettel_"  
speichername = speichername + Ort
speichername = speichername + "_"  

speichername = speichername + Strasse
speichername = speichername + "_"  
speichername = speichername + Hausnummer
speichername = speichername + "_"  
speichername = speichername + Stiege
speichername = speichername + "_"  
speichername = speichername + Tuer
speichername = speichername + ".csv"  


fileSaveName = Application.GetSaveAsFilename(speichername, _
    fileFilter:="CSV (Trennzeichen-getrennt) (*.csv), *.csv")  
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName  



F = FreeFile(0)
fname = fileSaveName
fseparator = ";"  
If fname <> False Then
Open fname For Output As #F
Cells.Select

Set Rng = ActiveCell.CurrentRegion
Debug.Print Rng.Address
FCol = Rng.Columns(1).Column
LCol = Rng.Columns(11).Column
Frow = Rng.Rows(1).Row
Lrow = Rng.Rows(84).Row

For i = Frow To Lrow
outputLine = ""  
For j = FCol To LCol
If j <> LCol Then
outputLine = outputLine & Cells(i, j) & fseparator
Else
outputLine = outputLine & Cells(i, j)
End If
Next j
Print #F, outputLine
Next i
Close #F
End If

Range("A1").Select  


MsgBox "Vorgang abgeschlossen!"  

End If



End Sub

    On Error GoTo ErrHandler
    
    ' SET Outlook APPLICATION OBJECT.  
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")  
    
    ' CREATE EMAIL OBJECT.  
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With objEmail
        .to = "test@test.at"  
        .Subject = "LZ"  
        .Body = "LZ"  
        .Display
       .Attachments.Add "C:\Users\daniel\Desktop\Regieschein26_v8.xlsm\"  
        
        
'        .Send  
    End With
    
    ' CLEAR.  
    Set objEmail = Nothing:    Set objOutlook = Nothing
    
ErrHandler:

End Sub