04.08.2022, 08:54
Hallo,
ich möchte eigentlich eine simple Sache umsetzen, bekomme aber immer einen Fehler den ich trotz googeln und unterschiedlicher von mir ausprobierter Varianten nicht verstehe:
Letztendlich geht es um einen Code, der eine andere Datei öffnet, per Find-Methode ein Datum in der ersten Spalte findet, die Reihe des Suchergebnisses ermittelt und dann in dieser Reihe eine gewisse Range, also die Daten mehrerer Zellen kopiert, um diese Werte dann in die ursprüngliche Datei, aus der das Makro gestartet wurde, einzufügen.
Dim WbRet As Workbook
Dim WbaWB As Workbook
Dim c As Range
Dim ClearRow As Long
Dim TDate As Date
Dim sh As Worksheet
strFilename = "C:\Temp"
Set WbaWB = ThisWorkbook
Set sh = ActiveSheet
TDate = WbaWB.ActiveSheet.Range("E1").Value
Set WbaWB = ThisWorkbook
Set WbRet = Workbooks.Open(Filename:=strFilename)
WbRet.Sheets("DB_Abzugszeiten").Activate
Set c = WbRet.Sheets("Tabelle2").Range("A5:A2000").Find(What:=TDate, LookIn:=xlValues, lookat:=xlPart)
WbRet.Sheets("Tabelle2").Range(Cells(c.Row, 148), Cells(c.Row, 158)).Copy WbaWB.sh.Cells(1, 29)
Das hab ich eigentlich schon viele Male gemacht, aber diesmal spuckt er mir immer den Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht" aus.
Es funktioniert alles bis zu der hier eingetragenen letzten Codezeile. Finde meinen Fehler einfach nicht.
Danke im Voraus
ich möchte eigentlich eine simple Sache umsetzen, bekomme aber immer einen Fehler den ich trotz googeln und unterschiedlicher von mir ausprobierter Varianten nicht verstehe:
Letztendlich geht es um einen Code, der eine andere Datei öffnet, per Find-Methode ein Datum in der ersten Spalte findet, die Reihe des Suchergebnisses ermittelt und dann in dieser Reihe eine gewisse Range, also die Daten mehrerer Zellen kopiert, um diese Werte dann in die ursprüngliche Datei, aus der das Makro gestartet wurde, einzufügen.
Dim WbRet As Workbook
Dim WbaWB As Workbook
Dim c As Range
Dim ClearRow As Long
Dim TDate As Date
Dim sh As Worksheet
strFilename = "C:\Temp"
Set WbaWB = ThisWorkbook
Set sh = ActiveSheet
TDate = WbaWB.ActiveSheet.Range("E1").Value
Set WbaWB = ThisWorkbook
Set WbRet = Workbooks.Open(Filename:=strFilename)
WbRet.Sheets("DB_Abzugszeiten").Activate
Set c = WbRet.Sheets("Tabelle2").Range("A5:A2000").Find(What:=TDate, LookIn:=xlValues, lookat:=xlPart)
WbRet.Sheets("Tabelle2").Range(Cells(c.Row, 148), Cells(c.Row, 158)).Copy WbaWB.sh.Cells(1, 29)
Das hab ich eigentlich schon viele Male gemacht, aber diesmal spuckt er mir immer den Laufzeitfehler 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht" aus.
Es funktioniert alles bis zu der hier eingetragenen letzten Codezeile. Finde meinen Fehler einfach nicht.
Danke im Voraus