Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

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

Frage Microsoft Microsoft Office

Mitglied: vbscripter

vbscripter (Level 1) - Jetzt verbinden

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

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 Sub
Ich hoffe ich habe mich verständlich ausgedrückt und bin für jeden Tipp dankbar!
Gruß
Mitglied: Biber
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
Bitte warten ..
Mitglied: vbscripter
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
Bitte warten ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Microsoft Office
gelöst Inhalte vieler excel dateien auslesen und als Liste wiedergeben (13)

Frage von tw3aker zum Thema Microsoft Office ...

Microsoft Office
gelöst 3 Excel Dateien, gleich umkodieren? (10)

Frage von Akeipra zum Thema Microsoft Office ...

VB for Applications
VBA Excel Dateien zusammenfassen (3)

Frage von cberndt zum Thema VB for Applications ...

Microsoft Office
Mehr als 20 Excel Dateien öffnen gleichzeitig (7)

Frage von PizzaPepperoni zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Linux Netzwerk
gelöst DHCP vergibt keine Adressen (31)

Frage von Maik82 zum Thema Linux Netzwerk ...

Exchange Server
gelöst Bestehende eMails autoamatisch weiterleiten (22)

Frage von metal-shot zum Thema Exchange Server ...

Apache Server
gelöst Lets Encrypt SSL mit Apache2 (20)

Frage von banane31 zum Thema Apache Server ...

Switche und Hubs
LAG zwischen SG300-Switches macht Probleme. Wer weiß Rat? (19)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...