Office: laufzeitfehler 438: Objekt unterstützt Eigenschaft Methode nicht

Spoonman · 8. Juli 2017

Hallo zusammen,

ich habe bei folgendem Code den Laufzeitfehler 438 und komme einfach nicht weiter.
Code:

If Dir(varname) "" Then
Set WB_C = Workbooks.Open(varname)
Worksheets(strname).Select
MsgBox ("o_" & o & "p_" & p) 'Test ob richtige Werte in Variablen stehe
Range(Cells(p, o), (Cells(p, o))).Copy
Workbooks("Datei.xlsm").Activate
Sheets("DATA_M").Select
MsgBox ("l_" & l & "k_" & k) 'Test ob richtige Werte in Variablen stehe
Range(Cells(k, l), (Cells(k, l))).Paste
WB_C.Close savechanges:=False
Else
MsgBox ("File not found.")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Zeile "Range/Cells(k, l ...).paste" macht Probleme. Über die Msgbox'en habe ich nachgeguckt ob die richtigen Werte in den Variablen o, p, k und l stehen. Dies ist der Fall. Ich hoffe das ihr mir weiterhelfen könnt.

Vielen Dank im Voraus

Gruß Ralf

:)

Crazy Tom · 9. Juli 2017

Hallo

zum einen reicht es aus das Kopierziel nur mit der ersten Zelle anzugeben

Cells(k, l)

zum zweiten sollte das Paste durch PasteSpecial mit nachfolgenden Parametern angegeben werden
welche das sind kannst du über die Onlinehilfe oder durch die Makroaufzeichnung ermitteln

MfG Tom

EarlFred · 9. Juli 2017

Hallo Ralf,

so?

Code:

If Dir(varname) "" Then
Set WB_C = Workbooks.Open(varname)
MsgBox ("o_" & o & "p_" & p) 'Test ob richtige Werte in Variablen stehe
MsgBox ("l_" & l & "k_" & k) 'Test ob richtige Werte in Variablen stehe

WB_C.Worksheets(strname).Cells(p, o).Copy Destination:=Workbooks("Datei.xlsm").Worksheets("DATA_M").Cells(k, l)

WB_C.Close savechanges:=False
Else
MsgBox ("File not found.")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit ist gesetzt?

Grüße
EarlFred

RPP63 · 9. Juli 2017

Moin!
Dass die ganze Selektiererei flüssiger als Wasser ist, ist leider immer noch nicht allgemein bekannt. *frown.gif*
Bei einer simplen Kopieraktion reicht ein Einzeiler:
Code:

WB1.WS1.Range("XYZ1:XYZ1048").Copy WB2.WS2.Range("Z1")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wird eine besondere Aktion benötigt, dann wird es ein Zweizeiler:
Code:

WB1.WS1.Range("XYZ1:XYZ1048").Copy
WB2.WS2.Range("Z1").PasteSpecial [XlPasteType]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zur XlPasteType-Enumeration:
https://msdn.microsoft.com/de-de/lib.../ff837425.aspx

Gruß Ralf

Luschi · 9. Juli 2017

Hallo Excel-Vba-Fans,

wobei: WB1.WS1.Range("XYZ1:XYZ1048").Copy WB2.WS2.Range("Z1")
einen Vba-Fehler erzeugt, da es so richtig ist:
WS1.Range("XYZ1:XYZ1048").Copy WS2.Range("Z1")

Gruß von Luschi
aus klein-Paris

RPP63 · 9. Juli 2017

Moin Luschi!
Gut, ich war faul und habe einen Pseudo-Code eingestellt.
Mein WB1 ist keine Objektvariable, sondern ein Member der Workbooks-Auflistung.
Dito WS1 (Worksheets-Auflistung)

Da ich gerade eine Kartusche Bildschirmtinte nachgefüllt habe:
Code:

Workbooks("ABC.xlsx").Worksheets("Tabelle1").Range("A1").Copy _
Workbooks("ZYX.xlsm").Worksheets("Rhabarber").Range("A1")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

Spoonman · 9. Juli 2017

Hallo alle zusammen,

vielen Dank für eure Hilfe. Ich habe den Vorschlag von Crazy Tom umgesetzt und jetzt funktioniert es.

Gruß Ralf

Office: laufzeitfehler 438: Objekt unterstützt Eigenschaft Methode nicht

laufzeitfehler 438: Objekt unterstützt Eigenschaft Methode nicht

laufzeitfehler 438: Objekt unterstützt Eigenschaft Methode nicht

laufzeitfehler 438: Objekt unterstützt Eigenschaft Methode nicht

laufzeitfehler 438: Objekt unterstützt Eigenschaft Methode nicht - Similar Threads - laufzeitfehler 438 Objekt

VBA:Laufzeitfehler beim Einlesen in Variable

Laufzeitfehler 438 für Set bei Workbook+Worksheet

Problem Laufzeitfehler 438

Laufzeitfehler 438 nach Benutzerkonten wechsel

Laufzeitfehler '438'

Makro -> Laufzeitfehler 438

Laufzeitfehler 438