Sub AP()
Dim Spalte_PWUG As Integer
Dim ErsteZeile_PWUG As Integer
Dim LetzteZeile_PWUG As Integer
Dim PWUG As Range
Dim Aktuelle_PWUG As Double
Dim ErsteZeile_Blanco As Integer
Dim sPfad As String
Dim Quelle As Object, Ziel As Object
Dim Vorlage_Blanko As String
Dim Zielverzeichnis As Object
Dim Zielverzeichnis_Pfad As String
Spalte_PWUG = 14
ErsteZeile_PWUG = 5
LetzteZeile_PWUG = Cells(Rows.Count, Spalte_PWUG).End(xlUp).Row
MsgBox "Blanko-Formular auswählen"
Vorlage_Blanko = Application.GetOpenFilename("Excel-Dateien(*.xlsx; *.xls),*xlsx; *.xls")
If Vorlage_Blanko = "Falsch" Or Vorlage_Blanko = "" Then
Debug.Print "Abbruch, weile kein Blanko-Formular ausgewählt"
Exit Sub
End If
MsgBox "Zielverzeichnis auswählen"
Set Zielverzeichnis = Application.FileDialog(msoFileDialogFolderPicker)
With Zielverzeichnis
.Title = "Ordner auswählen"
If .Show = -1 Then
Zielverzeichnis_Pfad = .SelectedItems(1) & "\"
If Right(Zielverzeichnis_Pfad, 2) = "\\" Then Zielverzeichnis_Pfad = Left(Zielverzeichnis_Pfad, Len(Zielverzeichnis_Pfad) - 1)
Else
Zielverzeichnis_Pfad = ""
End If
End With
If Zielverzeichnis_Pfad = "Falsch" Or Zielverzeichnis_Pfad = "" Then
Debug.Print "Abbruch, weile kein Zielverzeichnis ausgewählt"
Exit Sub
End If
<strong>
With ThisWorkbook.Worksheets(1)
.Range("N" & ErsteZeile_PWUG & ":" & "N" & LetzteZeile_PWUG).Sort _
Key1:=.Range("N" & ErsteZeile_PWUG), Order1:=xlAscending, _
Header:=xlNo, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With</strong>