(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...
Öffne das codefenster und gehe alles schritt für schritt mit f8 durch und schau wo der fehler auftritt..
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
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!
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!
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.
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
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!
Hallöchen,
Setze Klammern um jedes Not... Nothing.