Sortierbezug ist ungültig
09.11.2015 21:10:37
Manuel
bei meinem Makro funktioniert eigentlich alles, jedenfalls wenn ich es alleine starte und nicht mit "Call ..." aufrufe.
Wenn ich den Ursprungsmakro ausführe und darunter dann mit Call einen weiteren aufrufe bekomme ich leider immer die Fehlermeldung das der Sortierbezug ungültig ist.
Hier ist der Code:
Sub Sortieren()
Dim lnglast1 As Long
Application.ScreenUpdating = False
lnglast1 = Sheets("Upload_Inventory").Range("A65536").End(xlUp).Row
With Sheets("Upload_Inventory")
.Unprotect
Sheets("Upload_Inventory").Range("A2:J" & lnglast1).Sort Range("B1"), xlAscending, , , , , , _
xlNo
.Protect
End With
Application.ScreenUpdating = True
End Sub
Habt ihr eine Ahnung warum ständig diese Fehlermeldung kommt?Grüße und einen schönen Abend,
Manuel