Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code vereinfachung

Forumthread: Code vereinfachung

Code vereinfachung
19.01.2009 13:36:00
Björn
Hi zusammen,
Was überseh ich.
Excel bringt mir bei nachfolgendem Code die Fehlermeldung 438 Objekt unterstützt Eigenschaft / Methode nicht.
const = Datei
Windows(const).Worksheets("Control").Range(Cells(136, 14), Cells(144, 17)).Copy
wenn ich den Code so umforme funktioniert es auf einmal
Windows(const).Activate
Worksheets("Control").Range(Cells(136, 14), Cells(144, 17)).Copy
grübel...
lieben Dank
gruß
björn
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code vereinfachung
19.01.2009 13:42:00
Beverly
Hi Björn,

Workbooks(const).Worksheets("Control").Range(Cells(136, 14), Cells(144, 17)).Copy



AW: Code vereinfachung
19.01.2009 13:49:21
Björn
Hallo Karin,
ja das funktioniert, aber nur solange die datei aktiviert, wenn ich in einer anderen Datei bin
funktioniert dieser Code wieder net.
:(
björn
Anzeige
AW: Code vereinfachung
19.01.2009 14:37:09
Beverly
Hi Björn,
also bei mir (Excel2002) funktioniert dieser Code:

Workbooks("Mappe1.xls").Worksheets("Tabelle1").Range("A1:A10").Copy


völlig problemlos, ganz gleich in welcher Arbeitsmappe ich mich befinde. Den restlichen Teil deines Codes habe ich nicht gestestet da ich annahm, dass es nur um das Kopieren geht und du die richtige Zuweisung deiner Variablen überprüft hast.


Anzeige
AW: Code vereinfachung
19.01.2009 13:50:00
Josef
Hallo Björn,
With Workbooks(strWB).Worksheets("Control")
    .Range(.Cells(136, 14), .Cells(144, 17)).Copy
End With
Du solltest keine VBA-Schlüsselwörter als Variablen/Konstantendklaration verwenden.
Gruß Sepp

Anzeige
AW: Code vereinfachung
19.01.2009 14:20:00
Björn
Hallo Sepp,
mach ich nicht, wollte nur über das "Const" darstellen, dass ich die Dateinamen über Konstanten deklariert habe. ;)
Jedenfals mit dem With hab ich auch schon überlegt gehabt, aber wollt immer das Windows noch mit einbinden.
Aber so funzt es schön und sauber ....Danke Dir
grüße
Björn
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige