'Excel-Datei speichern (Dateiname wird aus Auftragsart, Auftragsnummer und dem 
' Erstellungsdatum erstellt, Ordner entspricht Jahr/Monat)
Dim DN As String
Dim Jahr As String = Year(Now())
Dim Monat As String = Month(Now())
Dim Target As String = "%userprofile%/" & "Dokumente/Aufträge/" & Jahr & "/" & _
  Monat & "/"
 
Label23.Text = Target
 
            With DN
                If optBest.Checked = True Then
                    DN = optBest.Text
                ElseIf optKVA.Checked = True Then
                    DN = optKVA.Text
                ElseIf optAB.Checked = True Then
                    DN = optAB.Text
 
                End If
            End With
 
DN = DN & " " & lblMarkt.Text & txtANr.Text & " " & Date.Today
 
lblDatei.Text = Target & DN
 
Anwendung.ActiveWorkbook.SaveAs(Filename:=lblDatei.Text)