Hallo zusammen,

ein von mir am Wochenende erstelltes Makro funktioniert jetzt nicht mehr bei mir auf der Arbeit.

Die Sortierungs Funktion läuft leider nicht mehr, beim Debugger wird leider aber auch nichts angezeigt.

Sub AP()
'Deklaration der Variablen !worksheet.name
    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

'Setzen der Werte der Variablen
    Spalte_PWUG = 14
    ErsteZeile_PWUG = 5
    LetzteZeile_PWUG = Cells(Rows.Count, Spalte_PWUG).End(xlUp).Row
    
'Benutzereingabe: nach Blancoformular fragen
    MsgBox "Blanko-Formular auswählen"
    Vorlage_Blanko = Application.GetOpenFilename("Excel-Dateien(*.xlsx; *.xls),*xlsx; *.xls")
    'Abbrechen falls keine Vorlage_Blanko ausgewählt
    If Vorlage_Blanko = "Falsch" Or Vorlage_Blanko = "" Then
        Debug.Print "Abbruch, weile kein Blanko-Formular ausgewählt"
        Exit Sub
    End If

'Benutzereingabe: nach Zielspeicherort fragen
    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
    'Abbrechen falls kein Zielverzeichnis ausgewählt
    If Zielverzeichnis_Pfad = "Falsch" Or Zielverzeichnis_Pfad = "" Then
        Debug.Print "Abbruch, weile kein Zielverzeichnis ausgewählt"
        Exit Sub
    End If

'Sortieren des Kommunikationsformulars nach PWUG

    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