Registriert seit: 10.04.2014
Version(en): Office 2019
(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
Registriert seit: 02.12.2017
Version(en): Office 365
Ö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...
Registriert seit: 12.03.2016
Version(en): Excel 2003
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
Registriert seit: 02.09.2018
Version(en): 2016
11.09.2018, 12:11
(Dieser Beitrag wurde zuletzt bearbeitet: 11.09.2018, 12:19 von mayett.)
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!
Registriert seit: 02.12.2017
Version(en): Office 365
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...
Registriert seit: 02.09.2018
Version(en): 2016
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.
Registriert seit: 12.03.2016
Version(en): Excel 2003
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
Registriert seit: 02.12.2017
Version(en): Office 365
12.09.2018, 06:00
(Dieser Beitrag wurde zuletzt bearbeitet: 12.09.2018, 06:01 von Frogger1986.)
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...
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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:1 Nutzer sagt Danke an schauan für diesen Beitrag 28
• Frogger1986