Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Laufzeitfehler 1004





Frage

hallo, in excel habe ich ein makro geschrieben, wenn ich es aber ausführen möchte kommt irgendwann diese Fehlermeldnung: Laufzeitfehler 1004 Die Methode Range für das Objekt _Global ist fehlgeschlagen ---------------------- der Text: ---------------------- Sub Aktualisieren() Dim Dateiname$ Dateiname = Application.GetOpenFilename("Exceldateien (*.xls), *.xls") If Dir(Dateiname) <> "" Then Workbooks.OpenText Filename:=Dateiname Else Exit Sub End If Sheets("Tabelle1").Select Sheets("Tabelle1").Copy After:=Workbooks("Ranking.xls").Sheets(1) Windows("Ranking.xls").Activate Range("e2:e3:e4:e5:e6:e7:e8:e9:e10:e11:e12:e13:e14:e15:e16:e17:e18:e19:e20:e21:e22:e23:e24:e25:e26:e27:e28:e29:e30:e31:e32:e33:e34:e35:e36:e37:e38:e39:e40:e41:e42:e43:e44:e45:e46:e47:e48:e49:e50:e51:e52:e53:e54:e55:e56:e57:e58:e59:e60:e61:e62:e63:e64:e65:e66:e67:e68:e69:e70:e71:e72:e73:e74:e75:e76:e77:e78:e79:e80:e81:e82:e83:e84:e85:e86:e87:e88:e89:e90:e91:d2:d3:d4:d5:d6:d7:d8:d9:d10:d11:d12:d13:d14:d15:d16:d17:d18:d19:d20:d21:d22:d23:d24:d25:d26:d27:d28:d29:d30:d31:d32:d33:d34:d35:d36:d37:d38:d39:d40:d41:d42:d43:d44:d45:d46:d47:d48:d49:d50:d51:d52:d53:d54:d55:d56:d57:d58:d59:d60:d61:d62:d63:d64:d65:d66:d67:d68:d69:d70:d71:d72:d73:d74:d75:d76:d77:d78:d79:d80:d81:d82:d83:d84:d85:d86:d87:d88:d89:d90:d91").Select Selection.Copy Sheets("ranking").Select Range("e2:e3:e4:e5:e6:e7:e8:e9:e10:e11:e12:e13:e14:e15:e16:e17:e18:e19:e20:e21:e22:e23:e24:e25:e26:e27:e28:e29:e30:e31:e32:e33:e34:e35:e36:e37:e38:e39:e40:e41:e42:e43:e44:e45:e46:e47:e48:e49:e50:e51:e52:e53:e54:e55:e56:e57:e58:e59:e60:e61:e62:e63:e64:e65:e66:e67:e68:e69:e70:e71:e72:e73:e74:e75:e76:e77:e78:e79:e80:e81:e82:e83:e84:e85:e86:e87:e88:e89:e90:e91:d2:d3:d4:d5:d6:d7:d8:d9:d10:d11:d12:d13:d14:d15:d16:d17:d18:d19:d20:d21:d22:d23:d24:d25:d26:d27:d28:d29:d30:d31:d32:d33:d34:d35:d36:d37:d38:d39:d40:d41:d42:d43:d44:d45:d46:d47:d48:d49:d50:d51:d52:d53:d54:d55:d56:d57:d58:d59:d60:d61:d62:d63:d64:d65:d66:d67:d68:d69:d70:d71:d72:d73:d74:d75:d76:d77:d78:d79:d80:d81:d82:d83:d84:d85:d86:d87:d88:d89:d90:d91:").Select ActiveSheet.Paste Sheets("Tabelle1").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.Delete End Sub danke im voraus [*][sup][i] *Threadedit* 11:29:48 Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/faqsthread/840]FAQ 2.[/url][/u][/i][/sup]

Antwort 1 von son_quatsch

Also echt:

Entweder nimmst Du als Range gleich "e2:d91" oder trennst das mit Semikolons, wie sich das für Excel gehört.

Antwort 2 von makro

Danke,
ich hab noch nicht so viel ahrnung dafon^^

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: