Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereiche mit Range(Cells) deffinieren

Bereiche mit Range(Cells) deffinieren
09.07.2017 12:50:22
Rainer
Hallo,
ich komm gerade nicht hinter meinen Fehler ... ich hab eine Tabelle und kopiere aus einer anderen Tabelle einen Bereich ... andauernd kommt "Anwendungs- oder Objektorientierter Fehler". Irgendwas stimmt mit der Zuordnung des Bereiches mittels Range(Cells1, Cells2) nicht. Schreibe ich
Workbooks("RMD_LM332.xlsm").Worksheets("Equipmentübersicht").Range("A10:A15").Value = Workbooks("Equipmentverzeichniss.xlsm").Worksheets("Lacke").Range("A10:A15").Value
fubtioniert es. Schreibe ich
Workbooks("RMD_LM332.xlsm").Worksheets("Equipmentübersicht").Range(Cells(10, 1), Cells(15, 1)).Value = Workbooks("Equipmentverzeichniss.xlsm").Worksheets("Lacke").Range("A10:A15").Value
funtkioniert es nicht mehr ...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche mit Range(Cells) deffinieren
09.07.2017 12:53:17
Hajo_Zi
ja Range bezieht sich auf Workbooks("RMD_LM332.xlsm").Worksheets("Equipmentübersicht") und cells auf die Aktive Tabelle.

AW: Bereiche mit Range(Cells) deffinieren
09.07.2017 13:03:17
Werner
Hallo Rainer,
das ist ein Referenzierungsproblem. So wie du die CodeZeile geschrieben hast muss vor jedes Range Objekt (Range, Cells) die Datei und das Blatt geschreiben werden, damit korrekt referenziert ist.
Diese Schreiberei kann man sich sparen, wenn man das in ein With - End With packt. Dann muss aber vor jedes RangeObjekt ein Punkt.
Public Sub Übertragen()
With Workbooks("RMD_LM332.xlsm").Worksheets("Equipmentübersicht")
.Range(.Cells(10, 1), .Cells(15, 1)).Value _
= Workbooks("Equipmentverzeichniss.xlsm").Worksheets("Lacke").Range("A10:A15").Value
End With
End Sub
Gruß Werner
Anzeige
AW: Bereiche mit Range(Cells) deffinieren
09.07.2017 14:07:17
Daniel
Hi
noch ne Variante, um einen Zellbereich zu beschreiben:
Workbooks("RMD_LM332.xlsm").Worksheets("Equipmentübersicht").Cells(10, 1).Resize(6, 1).Value
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige