gelöst Excel Makro - Vergleichen bzw. Ersetzen der Inhalte aus mehreren Excel-Dateien
vbscripter (Level 1) - Jetzt verbinden
07.09.2011, aktualisiert 10:13 Uhr, 6057 Aufrufe, 2 Kommentare
Hallo Community, ich hoffe ihr könnt mir helfen, ich bin schon ziemlich verzweifelt.
Seit einigen Tagen beschäftige ich mich mit VB, mit folgendem Problem: Hier im Forum fand ich ein Script, dass 2 Arbeitsmappen innerhalb einer Excel-Datei vergleicht und die Inhalte ersetzt. Ich versuche gerade das Script (s.U.) anzupassen, indem ich einfach die Pfade angeben will, doch leider klappt es nicht...
Ziel ist eine Excel-Datei, bei der ich mit einem Button 2 andere Excel-Dateien miteinander vergleichen und die Inhalte ersetzen kann. Dazu stehen mir die Quelldatei (Quelldatei.xls) mit einer Liste zur Verfügung, bei der ich 2 Spalten habe, in welcher die ursprünglichen und neuen Namen stehen. Eine zweite Excel-Datei (Zieldatei.xls) mit einer Tabelle mit den zu ersetzenden Zellen.
Das Script soll in der dritten Excel-Datei mit einem simplen Button ausgeführt werden.
Anbei mein Code, bei dem mir folgender Fehler erscheint: "Laufzeitfehler 438; Objekt unterstützt diese Methode oder Eigenschaft nicht."
Ich hoffe ich habe mich verständlich ausgedrückt und bin für jeden Tipp dankbar!
Gruß
Das Script soll in der dritten Excel-Datei mit einem simplen Button ausgeführt werden.
Anbei mein Code, bei dem mir folgender Fehler erscheint: "Laufzeitfehler 438; Objekt unterstützt diese Methode oder Eigenschaft nicht."
01.
Option Explicit
02.
Option Compare Text
03.
04.
Private Sub CommandButton1_Click()
05.
Dim quelldatei As Workbook
06.
Dim zieldatei As Workbook
07.
08.
Set quelldatei = Workbooks.Open("C:\xyz\abc\quelldatei.xls")
09.
Set zieldatei = Workbooks.Open("C:\xyz\abc\zieldatei.xls")
10.
11.
Dim c As Range
12.
Dim d As Range
13.
14.
For Each c In quelldatei.Range("C3:C" & quelldatei.Cells(quelldatei.Rows.Count, "C").End(xlUp).Row)
15.
If Not IsEmpty(c) Then
16.
Set d = zieldatei.Columnbs("B").Find(c, LookIn:=xlValues, LookAt:=xlWhole)
17.
If d Is Nothing Then
18.
c.Offset(0, 1) = "Nein"
19.
Else
20.
d.Value = c.Offset(0, -1): c.Offset(0, 1) = "Ja"
21.
End If
22.
End If
23.
Next
24.
End SubGruß
2 Antworten
- LÖSUNG Biber schreibt am 07.09.2011 um 10:54:42 Uhr
- LÖSUNG vbscripter schreibt am 07.09.2011 um 13:42:14 Uhr
LÖSUNG 07.09.2011 um 10:54 Uhr
Moin vbscripter,
schau mal in Zeile 16
Könnte es evtl diese nicht unterstützte Eigenschaft sein?
Grüße
Biber
schau mal in Zeile 16
zieldatei.Columnbs
Könnte es evtl diese nicht unterstützte Eigenschaft sein?
Grüße
Biber
LÖSUNG 07.09.2011 um 13:42 Uhr
Hi Biber,
mit einem Tabellenblatt funktioniert es. Also müsste diese Eigentschaft doch eigentlich funktionieren.
Es muss doch eine Möglichkeit geben ihm mitzuteilen, dass er statt ein Tabellenblatt einfach eine Excel-Datei öffnen soll...
Gruß
scripter
mit einem Tabellenblatt funktioniert es. Also müsste diese Eigentschaft doch eigentlich funktionieren.
Es muss doch eine Möglichkeit geben ihm mitzuteilen, dass er statt ein Tabellenblatt einfach eine Excel-Datei öffnen soll...
Gruß
scripter
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
