Office: (Office 2007) Zellen in 2 Dateien vergleichen und Wert einfügen

Hallo und guten Tag.
Hätte mal wieder eine Frage zu einem VBA-Code, hier als Beispiel.
Es sollen Spalten aus Tabelle1 mit Spalten aus ArbTab verglichen werden.
Bei Übereinstimmung soll dann der entsprechende Wert kopiert und ggf. überschrieben werden. Gruß Culli

Fehler: Objektvariable oder With-Blockvariable nicht festgelegt.

PHP:

         Sub Datei_Kopieren2()

Dim wbStart, wbZiel As Workbook, rng As Range
Dim s#
s = Timer
'    For Each rng In wbStart.Sheets("Tabelle1").Range("A2:A" & Range("A65536").End(xlUp).Row)
'  If wbStart.Sheets("Tabelle1").Cells(rng.Row, 2) = wbZiel.Sheets("ArbTab").Cells(rng.Row, 2) And '
If wbStart.Sheets("Tabelle1").Cells(rng.Row, 1) = ' Hier wird der Wert aus Tab1 in Celle 9 nach Tab2 in Celle 9 reinkopiertwbZiel.Sheets("ArbTab").Cells(rng.Row, 2) And _
wbStart.Sheets("Tabelle1").Cells(rng.Row, 8) = wbZiel.Sheets("ArbTab").Cells(rng.Row, 14) Then


Set wbStart = ActiveWorkbook
Set wbZiel = Workbooks.Open("F:Einfügen TEST.xlsm") ' ("C:testTestdatei2.xls")
wbStart.Sheets("Tabelle1").Cells(rng.Row, 8).Copy Destination:=wbZiel.Sheets("ArbTab").Cells(rng.Row, 14)

End If

'  Next rng

MsgBox Timer - s & "   Sekunden " & vbLf & "  " & vbLf & "   Laufzeit der Datenübertragung    " & vbLf & "   " & vbLf & "   Tabelle aktualisieren   "

wbStart.Sheets("Tabelle1").Range("A2:A13").Copy Destination:=wbZiel.Sheets("Tabelle1").Range("A2:A13")
End Sub


:)

 

so, wie der Code aussieht, wundert es mich nicht ansatzweise, dass du den Fehler nicht siehst (obschon der selbst aus diesem Chaos hervorsticht).

Bring das Durcheinander mal in Ordnung und schau dann mit wachen Augen nochmal drauf. Da musst du selbst drauf kommen.

Nebenbei:
- Eine Fehlerbeschreibung ohne Angabe der Fehlerzeile ist unvollständig
- Welchen Typ besitzt deine Variable wbStart und welchen Typ sollte sie besitzen?

 

Es juckt mich in den Fingern; wollte erst nicht; muss aber:
Das Thema "Fehlersuche" wurde ja mindestens einmal gekonnt ignoriert.

Nachdem der ganze Kladderadatsch sortiert, Gedanken geordnet und durchgeatmet wurde (aber allein schon der Wichtigkeit wegen !), investiere Zeit in folgendes Tutorial:
Fehlerbehandlung - Einführung

 

Danke erstmal, aber das hilft mir nicht wirklich weiter. Die Hinweise haben mich nicht weiter gebracht. Habe aus zwei Beispielcode genommen was ich glaubte, es würde passen. Aber leider kann ich den Fehler nicht erkennen/abstellen. Wenn es möglich wäre ein Beispiel aufzuzeigen, was mich den Fehler in echt erkennen lässt, wäre ich euch dankbar. Gruß Culli

Die Fehlerzeilen:
Code:

 

Hast du es wenigstens probiert? Wie sieht dein Code nach der Überarbeitung aus? Hast du den Variablentyp herausgefunden? Wenn du dich nicht damit beschäftigst ist es klar, dass du damit nichts anfangen kannst.

Code:

Letzter Tipp: Achte auf die Farben im Codeausschnitt.

 

Habe es mal etwas geordnet. Stehe aber weiterhin vor der gleichen Hürde bei "wbStart". Komme da nicht weiter. Gruß

Code:

 

Wenn du wbZiel einen Typ zugewiesen hast und etwas von wbStart nach wbZiel übernehmen willst, müsste dann wbStart und wbZiel nicht Typgleich sein ???

EarlFred hat dich doch doch schon sehr deutlich darauf hingeweisen, was du prüfen sollst.

 

wbStart ist in deinem Code kein Typ zugewiesen, also ist die Variable vom Typ Variant
Eine ordentliche Deklaration muss so aussehen:
Code:

Warum sollten die Hinweise bitte nicht auch für wbZiel gelten? Zieh die Zeile
Code:

auch noch nach vorne.

Dann noch ordentliche Einrückungen und schon kann man den Code ohne Augenkrämpfe lesen:
Code:

Keine Ahnung, mit welcher Excelversion du arbeitest, aber weißt du, was es mit der Zahl 65536 auf sich hat? Warum verwendest du diese?

 

Danke erstmal.
Habe den Code mal gestartet und das erste "Sheets" wird gleich blau markiert mit dem Hinweis/Fehler: Fehler beim Kompilieren, Methode oder Datenobjekt nicht gefunden. Gruß Culli

Code:

 

Was soll diese Codezeile bewirken? Kannst du das bitte in verständlichen Worten beschreiben? Kannst du mir die Stelle im ursprünglichen Code zeigen, wo ich diese Zeile finde?

 

Meine Antwort auf obige Frage. Sorry, im einzelnen kann ich die Codezeilen nicht übersetzen?
Ich verwende Office 2007, und die Zeile aus Code wo es hackt ist folgende:
For Each rng In wbStart.Sheets("Tabelle1").Range("A2:A" & Range("A65536").End(xlUp).Row)
Code:

Danke und Gruß Culli

 

Nach all den Jahren, die du mit verschiedenen Accounts hier Fragen gestellt hast, darf man doch erwarten, dass du das selber siehst! Vielleicht solltest du als Workbook deklarieren. Außerdem fehlt noch ein Punkt vor Range. Schau dir DEINEN Code halt selber sorgfältig an!

 

Danke, der Code hat funktioniert. Hinweise habe ich befolgt. Gruß Culli