Range im Objekt Global fehlgeschlagen
17.02.2020 08:39:50
Ariane
ich habe ein größeres Problem mit einem Makro- dieses wurde von einem Werksstudenten geschrieben, der aktuell nicht mehr im Unternehmen tätig ist, leider funktioniert es nach diversen Anpassungen der Datei nicht mehr. Im Prinzip geht es um ein Reporting Package, das von vielen Tochtergesellschaften ausgefüllt werden muss. Hierbei werden für verschiedene Gesellschaften unterschiedliche Daten aus einem Vorsystem ausgelesen. Die Dateien werden über das Makro erstellt. Leider bleibt dieses mittlerweile an einer STelle immer hängen und produziert die Fehlermeldung "Range für Objekt global fehlgeschlagen":
Hier das Makro, beim Debuggen bleibt es in der Zeile (Range.....) stehen:
Dim Gesellschaft, DateiPfad, DateiName, PfadNeu, Quelle, Ziel, Navisionbefuellung, Sprache As String
Dim arrGesellschaft() As Variant
Dim i, a As Integer
Dim objFSO As Object
Dim DatAnfang As Date
DatAnfang = Now
If Navisionbefuellung = "nein" Or Navisionbefuellung = "Nein" Then
Sheets(Array("Overhead and Operations", "Selling Expenses", "Sales costs related to orders", "Product Portfolio", "Research", "Administration")).Select
Range("D17:H17,D19:H19,D21:H21,D24:H24,D26:H26,D29:H30 ").Select
Selection.ClearContents
End If
Ich habe wirklich schon viel probiert, da aber meine VBA Kenntnisse wirklich nur rudimentär vorhanden sind hab ich es einfach nicht hinbekommen... Vielleicht kann mir hier jemand weiterhelfen? Vielen Dank!!!