Suchen nach Übereinstimmungen in mehreren Spalten

[Keik940]

Hallo liebe Problemlöser,

ihr habt mir bisher viel geholfen und die letzte Programmierung ist wirklich super. In der Praxis stoße ich leider erneut auf Probleme und habe Verständnisschwierigkeiten.

Ich habe (leider jetzt erst) die realen Daten von meinem Kunden erhalten, auf denen ich die Beispieltabelle aufgebaut habe. Wenn ich damit die Übereinstimmungen suchen will, kommt immer der HInweis auf einen Laufzeitfehler '1004'. Wenn ich auf "Debuggen" gehe zeigt er mir die vorletzte Zeile als Problem an:

rngListe.Cells(2, 2).Resize(lngZeilen, 1).Value = varAusgabe

Da ich wirklich wenig Ahnung vom Programmieren habe, könnt ihr mir Hinweise geben, was diese Zeile aussagt bzw. warum dort ein Problem sein könnte?

Ich habe nichts in der Spaltenaufteilung oder -anzahl oder dem Spalteninhalt (Spalten mit Zahlen bleiben Spalten mit Zahlen, Spalten mit Text bleiben Spalten mit Text). Lediglich die Zeilenanzahl ist natürlich enorm gestiegen aber das sollte doch nicht das Problem sein?

Vielen Dank schon einmal für eure Rückmeldungen!

[Ego]

Hallo Keik,

ich nehme an, dass der Fehler auftritt da die Vraiable "lngZeilen" den Wert 0 hat. (Kannst du ja einmal prüfen, indem du nach dem debuggen mit der  Maus über die Variable gehst. Der Wert wird dir dann angezeigt.)


Wenn die Annahme richtig ist, liegt es daran, dass in der zweiten Zeile der dritten Spalte des benannte Bereiches "Liste" nicht der Text "System 1" steht.

Entweder ist der benannte Bereich "Liste" nicht richtig definiert oder die Liste ist nicht wie im Beispiel aufgebaut.

Das Programm erwartet im Bereich "Liste" ab der zweiten Zeile (nach einer Überschrifttszeile) in der dritten Spalte erst die Einträge mit dem Inhalt "System 1" und schreibt die Ergebnisse daneben in die zweite Spalte.