Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

tabellen in 2 unterschiedlichen arbeitsmappen vergleichen und ergebniss auf neue kop
#31
(10.09.2018, 12:49)mayett schrieb: ... vielen dank für deine antwort!

ich habe jetzt ein minimales problem, glaube ich.

ich habe meine "listen mit den werten" jetzt kopiert und in archiv und alle projekte eingefügt.

wenn ich nun den vergleich starte, kommt "Laufzeitfehler 91" objektvariable oder with-blockvariable nicht festgelegt!

hoffe auf hilfe, ich probiere jetzt noch einmal bisschen rum!

auf jedenfall danke dir schonmal riesig! und euch allen auch!

Schade, schade..:

Zitat:mayett....

... ich werde ab jetzt auf groß und kleinschreibung achten...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#32
Öffne das codefenster und gehe alles schritt für schritt mit f8 durch und schau wo der fehler auftritt..
Eine Menge reden, aber nichts sagen können viele...
Antworten Top
#33
Hallo

So wie ich die Sache sehe tritt der Fehler auf wenn eine oder beide Auswahlen fehlen.
Am besten einen Code zum Fehler abfangen direkt hinter den Variabeln einfügen.

mfg  Gast 123

Code:
Archiv = Me.ComboBox2.Value

If Alle_Projekte = "" Or Archiv = "" Then
  MsgBox "Eine ComboBox Auswahl fehlt": Exit Sub
End If
[-] Folgende(r) 1 Nutzer sagt Danke an Gast 123 für diesen Beitrag:
  • Frogger1986
Antworten Top
#34
also danke euch beiden für eure antwort!

ich nehme an das geld markierte ist der fehler, das sieht dann so aus :

For i = 2 To Lasta
            
       Lastf = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
            
            Set Finden1 = Workbooks(Alle_Projekte).Sheets(1).Range("A:A").Find(Workbooks(Archiv).Sheets(1).Cells(i, 2).Value)
            Set Finden2 = Workbooks(Alle_Projekte).Sheets(1).Range("B:B").Find(Workbooks(Archiv).Sheets(1).Cells(i, 2).Value)
            
            If Not Finden1 Is Nothing And Not Finden2 Is Nothing And Finden1.Row = Finden2.Row Then  <---- diese zeile ist gelb.
                    
                    ThisWorkbook.Sheets(1).Cells(Lastf, 1).Value = Workbooks(Archiv).Sheets(1).Cells(i, 1).Value
                    ThisWorkbook.Sheets(1).Cells(Lastf, 2).Value = Workbooks(Archiv).Sheets(1).Cells(i, 2).Value
                    ThisWorkbook.Sheets(1).Cells(Lastf, 3).Value = Workbooks(Archiv).Sheets(1).Cells(i, 3).Value
            End If
Next



@gast123 wohin solle ich genau deinen code einfügen!

vielen dank für deine antwort, mfg!
Antworten Top
#35
Gehe mal den code mit f8 Durch uns wenn du an diese stelle kommst hälts du an und drückst mit dem cursor auf finden1 und dann auf finden2 und schaust was darüber steht wenn "" steht dann werden keine Daten gefunden! Das kommt dann eventuell vom falschen Formatierungen oder, dass die Dateien anderst als im Beispiel aufgebaut sind!
Eine Menge reden, aber nichts sagen können viele...
Antworten Top
#36
vielen dank für deine antowrt frogger!

bei finden1 kommt "nothing" bei finden2 ist 3262 also eine nummer angezeigt.


finde jedoch keine abweichung der formatierungs art...

hmm, bin echt ratlos.
Antworten Top
#37
Hallo

Sorry, wer in eine İf Anweisung zuviel reinpackt stolpert oft über die eigene Füsse.
Wenn ich es richtig sehe liegt der Fehler hier:  mach bitte mal zwei If Teile daraus!!
Von der Logik:  ist die Not Is Nothing nicht erfüllt vergleichst du trotzdem die Rows!!
Wenn aber ein Wert nicht gefunden wird könnte das schiefgehen. Ich hoffe ich liege richtig??

mfg  Gast 123

Code:
           If Not Finden1 Is Nothing And Not Finden2 Is Nothing Then
           If Finden1.Row = Finden2.Row Then  '<---- diese zeile ist gelb.
                   
                   ThisWorkbook.Sheets(1).Cells(Lastf, 1).Value = Workbooks(Archiv).Sheets(1).Cells(i, 1).Value
                   ThisWorkbook.Sheets(1).Cells(Lastf, 2).Value = Workbooks(Archiv).Sheets(1).Cells(i, 2).Value
                   ThisWorkbook.Sheets(1).Cells(Lastf, 3).Value = Workbooks(Archiv).Sheets(1).Cells(i, 3).Value
           End If
           End If
Antworten Top
#38
Die Abfrage war bewusst so, um eventuelle falsche Treffer, bei nicht eindeutigen Werten zu vermeiden! ( was hier auch so ist, vermute ich) ! Da eine variable gefüllt ist und eine nicht! Ich denke dass hier Daten unvollständig sind!
Eine Menge reden, aber nichts sagen können viele...
Antworten Top
#39
Hallöchen,
Setze Klammern um jedes Not... Nothing.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Frogger1986
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste