Werte in Spalte suchen und Zeilen in anderes Blatt kopieren

[gaucho7]

Sollte eigentlich stimmen.
Kann ich Dir die Datei schicken?

[Egon12]

Hallo,

in dieser Datei laufen die Prozeduren fehlerfrei durch.
Was die Indexfunktion, wie ich diese angelegt habe nicht will, ist die Z1S1 Bezugsart. Diese Ist eigentlich ein per VBA ausgeführte Formelfunktion.
Es handelt sich um eine Worksheetfunction.

Gruß Uwe

[gaucho7]

Hallo Uwe,
was meinst Du genau mit "Z1S1 Bezugsart. Diese Ist eigentlich ein per VBA ausgeführte Formelfunktion.
Es handelt sich um eine Worksheetfunction."

Bin leider noch nicht ganz so fit mit VBA.
Habe heute oft die Fehlermeldung bekommen, unterschiedliche Module, aber immer in de gleichen Zeile.
Mit F5 konnte ich dann immer weitermachen.

[Egon12]

Hallo,
 
Wenn du bei Z1S1 Bezugsart einen Haken in den Einstellungen gesetzt hast, siehst man über den Spalten keine Buchstaben mehr sondern Zahlen.
Wenn der Fehler nur sporadisch auftritt deutet es darauf hin, dass ein Prozess von außen stört.
Da könnte DoEvents vielleicht Abhilfe schaffen.
Setzte mal testhalber DoEvents zwischen die Prozeduraufrufe.
 
Ansonsten die Datei, wo der Fehler passiert anonymisiert hochladen. In deiner zuletzt hochgeladene Datei konnte ich den Fehler nicht reproduzieren, egal wo und wie oft ich das Change Ereignis des Tabellenblattes ausgelöst habe.
 
Gruß Uwe

[gaucho7]

Hallo Uwe!
Z1S1 Bezugsart ist nicht aktiviert.
Mit DoEvents komm ich leider nicht weit (bin noh ein Anfänger)
Habe eben den unteren Bereich ab Zeile 290 Spalten A-H durchgeklickt.
Beim Vorwählen in H299 kan der Fehler wieder.
Allgemein kommt der Fehler immer in dem Bereich (ich habe ab Zeile 299, Spalte A-I, alle Felder mit Doppelklick durchgeklickt).
Aber der Fehler kommt nicht nur beim Auswahlfeld in H299, sondern in den anderen Zeilen auch.

---

und jetzt konnte ich es etwas genauer reproduzieren.
Hab mit der Spalte G Zeile 315 angefangen bis Zeile 300, 5-6 Zeilen in der Spalte G angeklickt (Doppelklick), dann Auswahl in G299 deaktiviert und der Fehler kamm immer.

[Egon12]

Hallo,

ich habe von 280 - 315 die Materialprüfliste von A bis I das Change Event zügig fehlerfrei ausgelöst.

DoEvents wäre so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Kopieren
    DoEvents
    Kopieren2
    DoEvents
    Kopieren3
    DoEvents
    'u.s.w

Gruß Uwe

[schauan]

Hallöchen,

also, ich kann da auch keinen Fehler 1004 feststellen. Bei mir passiert es jedoch ab und zu, dass bei dem Doppelklick zu Zeile 197 gesprungen wird

Mal ein Hinweis zu Deinen vielen Kopiermakros. Beim ersten Überfliegen habe ich gesehen, dass sich da wohl nur an zwei Stellen fixe Werte ändern:
If i = 5 Then 'Position die kopiert wird
und
With Sheets(i - 1) 'Ab welche Seite wird eingefügt

Das könnte man durch Parameter für Position und Seite abkürzen. Im Prinzip:

Sub Kopieren(byval Position, byval Seite)
...
If i = Position Then 'Position die kopiert wird
...
With Sheets(i - Seite) 'Ab welche Seite wird eingefügt
...

Der Aufruf wäre dann

Private Sub Worksheet_Change(ByVal Target As Range)
Kopieren 5, 1
Kopieren 10, 5
...
End Sub

Nächster Schritt wäre dann, wie man die vielen Kopier-Aufrufe in einer Schleife verarbeiten könnte


Zuerst wäre aber die Fehlerbeseitigung dran. Dazu die Frage - wo steht denn der Code wenn Du "Debuggen" aufrufst?

[gaucho7]

Vielen Dank, werde ich ausprobiern (falls ich es hinkriege)