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
|