Office: vlookup macht probleme

Hallo liebe Forumsgemeinschaft!

Leider habe ich nah einigen Monaten doch wieder Probleme. Ich wollte mein Tool wieder mal verbessern, und beim finalen Schritt macht es Probleme.

Tabelle6 = Erfassung, Dateneingabe
Tabelle29= Artikelstamm, dort ist eine formatierte Tabelle mit dem Namen "Artikelstamm".

Wenn ich den Sverweis via VBA durchführen möchte stürzt excel entweder ab, oder ich bekomme den Fehler "nicht genügend Stapelspeicher".
Leider kann ich nicht direkt in der Zelle den Sverweis eingeben, da auch eine manuelle Eingabe möglich sein muss.

Code:

Kann mir jemand helfen was hier das problem ist?
Vielen Dank,
beste Grüße,
janiki

:)

 

Der Code ist in meinen Augen korrekt. Kann es sein, dass du ein Worksheet Change oder Calucalte Event hast, das angestoßen wird? Darauf deutet das Stapelspeicherproblem hin.

 

Guten Morgen!
Ja du hast recht, ich hab das in einem worksheet change Ereignis.
Wie kann ich das gleiche umsetzen, ohne dies im change zu machen?

Danke vorab. Beste Grüße

 

Wie Berni schon schrieb, ist das vermutlich ein Worksheet_Change-Ereignis. Da Du durch die Änderung dieses Ereignis immer wieder aufrufst, ist irgendwann der Stapelspeicher voll.

Setze vor den Code Application.EnableEvents = False und danach Application.EnableEvents = True

 

Neben Michaels entscheidendem Rat noch einige Hinweise:

Code:

Die meisten Zellbezüge sind ordentlich referenziert, mit Angabe des Arbeitsblattes. Lediglich das Evaluate-Konstrukt ([]) ist es nicht, zudem ist dies die unsauberste Art eines Verweises. Ich empfehle, das Ansprechen von Zellen zu vereinheitlichen. Am saubersten ist dir das gelungen mit Tabelle6...., Sheets()... sollte zu Worksheets() werden und die eckigen Klammern sollten nicht genutzt werden.
Tabelle6 ist deswegen am saubersten, weil du nicht in Konflikt mit anderen offenen und aktiven Mappen kommst. Wenn du Worksheets() nutzt, sollte noch die Angabe des Workbooks ergänzt werden, hier also vermutlich ThisWorkbook.Worksheets()...

Weiterhin sollte auch immer die Eigenschaft genannt werden, auf die du zugreifst, hier also die Value-Eigenschaft der Zellen (steht nicht immer da). Value ist zwar der Default, wird also ohne Nennung angenommen. Dennoch schafft es Klarheit, wenn der Leser der Codes sofort sieht, was gemeint ist, ohne zu wissen, was bei dem Objekt gerade der Default ist.

Worksheetfunction liefert keinen auswertbaren Fehler. Nutze stattdessen Application.Vlookup(). Dessen Rückgabewert ist leicht auf einen Fehler prüfbar, ohne dass das Programm abschmiert.

 

Beispiel für eine Fehlerauswertung:
Code:

 

hallo und vielen Dank für eure zahlreichen Hilfestellungen! *Smilie

Ich habe es versucht umzusetzten, allerdings habe ich noch einige probleme.
Die select case methode funktioniert perfekt, wenn wirklich ein fehler ist. Wenns aber korrekt ist und ein WErt verfügbar ist, dann stürzt excel ab und ich muss neustarten.

ich fände es schön, wenn bei fehler alle betreffenden zellen leer sind und eine msgbox"Fehler bla bla.." aufpoppt. leider klappt das so nicht.
Hier der vollständige Code.
Danke vorab!

 

ich habe versucht deinen rat umzusetzen, allerdings habe ich noch nicht ganz verstanden..

Ist nun

a) Thisworkbook.tabelle6.cells(a,b).value

oder
b) thisworkbook.worksheets("Artikelstamm").cells(a,b).value

richtig?
ich möchte natürlich den rat annehmen und alles sauber angeben. vorallem um keine probleme zu haben wenn eine weitere excel mappe geöffnet ist.

danke und besten gruß

 

Nochmal zur Verdeutlichung: Eine Formelberechnung in einem Calculate-Ereignis geht nur dann gut, wenn du Michaels Rat aus Beitrag #4 befolgst, sonst rechnet sich das Teil zu Tode.

 

Au weia, bei der Fehlerbehandlung fehlte noch die vorlaufende Prüfung... Habe ich ergänzt.

Zudem habe ich den Code etwas umgebaut, schau's dir mal an.

Anstelle Activecell (das ist in diesen Ereignisprozeduren ein absolutes No-Go!) habe ich Target verwendet. Zudem prüft der Code jetzt auch mehrere Eingaben auf einmal (z. B. bei Copy&Paste).
Weiterhin werden nur Werte (Änderungen) bearbeitet, wenn diese im Bereich D28 bis D eingetragen wurden. Kontrolliere bitte, ob ich den Eingabebereich richtig aus Deinem Code interpretiert habe und passe das ggf. an.

Weiterhin nehme ich wegen des Codes an, dass er in Tabelle6 liegt. Dann kann innerhalb der Prozedur auf dieses Blatt mittels ME referenziert werden.

Code:

Solltest du mit den Änderungen nicht klarkommen, weil meine Vermutungen nicht richtig waren, stelle bitte eine Mustermappe (xlsx ohne Makros) zur Verfügung.

 

hatte ich nicht vorgeschlagen und das wird in der Regel auch nicht funktionieren. Alle weiteren Erläuterungen führen an dieser Stelle zu weit.

tabelle6.cells(a,b).value
oder
thisworkbook.worksheets("Artikelstamm").cells(a,b).value
sind beide "richtig", da eindeutig.

 

Hallo Mister Burns,
Ja, danke *Smilie als ich den rat umgesetzt habe gab es auch keine damit auch keine probleme mehr *Smilie

besten gruß und schönen Abend! *Smilie

 

Solltest du mit den Änderungen nicht klarkommen, weil meine Vermutungen nicht richtig waren, stelle bitte eine Mustermappe (xlsx ohne Makros) zur Verfügung.


Risen Dank für deine sehr tolle Hilfe, und das du dir die Mühe gemacht hast alle umzuschreiben und zu kommentieren! funktioniert perfekt!!!
Vielen Dank!! *Smilie

Ich steh bisschen auf der Leitung bzgl Zellen ansprechen.

Wie ist der vorbildliche Weg?
Wie kann ich die zellen wirklich klar ansprechen, ohne probleme zu haben, wenn andere Datein geöffnet sind. Logisch für mich wäre ThisWorkbook.Worksheets("xxx").Range("abc") / oder .cells(a,b)

Ich hoffe ich habe das richtig verstanden *Smilie

beste Grüße

 

Siehe Beitrag #11, da steht nochmal klarer, was schon im Beitrag #5 stand

 

ahh nun denke ich es verstanden zu haben.. danke für das erneute wachrütteln! *Smilie

Ich dachte das Tabelle6. in mehreren xlsm Dateien vorhanden sein kann, aber vermutlih bleibts bei tabelle6 in dem projekt wo der code steht.
sry, dass ich da nicht ganz sauber drauf bin.

glg Janiki