Excel Makro - Vergleichen bzw. Ersetzen der Inhalte aus mehreren Excel-Dateien

07.09.2011, aktualisiert 10:13 Uhr, 6140 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."

Option Explicit
Option Compare Text

Private Sub CommandButton1_Click()
    Dim quelldatei As Workbook
    Dim zieldatei As Workbook
    
    Set quelldatei = Workbooks.Open("C:\xyz\abc\quelldatei.xls")
    Set zieldatei = Workbooks.Open("C:\xyz\abc\zieldatei.xls")
    
    Dim c As Range
    Dim d As Range
    
    For Each c In quelldatei.Range("C3:C" & quelldatei.Cells(quelldatei.Rows.Count, "C").End(xlUp).Row)
        If Not IsEmpty(c) Then
            Set d = zieldatei.Columnbs("B").Find(c, LookIn:=xlValues, LookAt:=xlWhole)
            If d Is Nothing Then
                c.Offset(0, 1) = "Nein"
            Else
                d.Value = c.Offset(0, -1):  c.Offset(0, 1) = "Ja"
            End If
        End If
    Next
End Sub

Ich hoffe ich habe mich verständlich ausgedrückt und bin für jeden Tipp dankbar!
Gruß

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

Biber (Level 5) - Jetzt verbinden

LÖSUNG 07.09.2011 um 10:54 Uhr

Moin vbscripter,

schau mal in Zeile 16

zieldatei.Columnbs

Könnte es evtl diese nicht unterstützte Eigenschaft sein?

Grüße
Biber

vbscripter (Level 1) - Jetzt verbinden

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

Frage Microsoft Microsoft Office

Heiß diskutierte Inhalte

Klimaschutz

NebellichtVor 1 TagTippZusammenarbeit56 Kommentare

Hallo friends, (friends in Anlehnung an die vielen Fs in dem englischen von FFF: fridays for future. Übrigens am 19.03.2021 gibts wieder einen globalen ...

ESXi free oder Windows Hyper-V Server 2019

lukas0209Vor 1 TagAllgemeinHyper-V20 Kommentare

Hallo, ich brauche ca. 2 oder 3 Windows 10 virtualisiert um Dinge zu testen. Ist es dafür sinnvoller ein Windows Hyper-V Server 2019 (kostenlos) ...

Microsoft365 und Outlook verbinden

ratzekahl1Vor 1 TagFrageMicrosoft Office31 Kommentare

Guten Morgen zusammen, ich habe einige Probleme / Fragen. Ich habe Office 365 auf den ersten Rechnern installiert. Admin angelegt, Benutzer usw. Da ich ...

Nach 700 Tagen adwcleaner

altmetallerVor 1 TagAllgemeinOff Topic8 Kommentare

Hallo, ich habe in meinem Netzwerk diverse Maßnahmen, um nicht nur Angriffe, sondern auch - sagen wir mal - unerwünschte Datenabflüsse und Tracking zu ...

Was bedeuten die Abkürzungen beim HPE-Server wie z.B. NC, Mod-X?

gelöst kaineanungVor 1 TagFrageServer-Hardware19 Kommentare

Hallo Leute, ich habe ein HPE-Serverangebot vorliegen bei dem ich an 1-2 Positionen nicht weiß was diese überhaupt bedeuten. Suche ich im Internet danach ...

DS-Lite Verständnisfrage Wireguard

gelöst fnbaluVor 1 TagFrageNetzwerkgrundlagen19 Kommentare

Hallo zusammen, bisher läuft bei mir alles klassisch. pfSense mit DDNS und ich verbinde mich mit OpenVPN in das Heimnetz und erspare mir so ...

0-day Exploit Chain für Exchange Server - Patches verfügbar

kgbornVor 1 TagInformationExchange Server6 Kommentare

Zur Info: Microsoft warnt vor einer Exploit-Chain, bei der vier 0-day-Schwachstellen für gezielte Angriffe auf Exchange per Outlook Web App kombiniert werden (eine chines. ...

Jubiläen in Outlook 2016 korrekt eintragen

imebroVor 1 TagFrageMicrosoft Office16 Kommentare

Hallo an Alle. Wir haben nur einen recht kleinen Mitarbeiterkreis. Da in der Vergangenheit schon mehrfach versäumt wurde, Kolleg/-innen zu Betriebs-Jubiläen zu gratulieren, würde ...