in meinem Excel zuhause funktioniert alles tadelos (benutze dort 2019) auf der Arbeit nutze ich allerdings 2013 und hier bekomme ich eine Fehlermeldung:
Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt
Sub unzipper()
Application.DisplayAlerts = False
Dim localZipFile As Variant, destFolder As Variant
Dim Sh As Object
test = Sheets("Tabelle2").Range("A2").Value
test2 = Sheets("Tabelle2").Range("A5").Value
localZipFile = test
destFolder = test2
Set Sh = CreateObject("Shell.Application")
With Sh
.Namespace(destFolder).CopyHere .Namespace(localZipFile).items
End With
Kill test
Application.Quit
End Sub
Es soll eigentlich einfach nur die .ZIP Datei entpacken mehr nicht.Viele Grüße
Steffen