Office: Exceltabelle per VBA füllen

Hallo,

habe Excel 2002 und mit meiner Tabelle folgendes Problem:
In Tabelle 1 werden z.B. 50 Artikel-Nr. erfasst (u.a. Erfass.datum - Artikel-Nr. - Auftrags-Nr. - Menge, ...)
In Tabelle 2 liegen zu den Artikel-Nrn. von Tabelle 1 die Artikelstammdaten (ca. 6000 Artikel mit Aufbau: Artikel-Nr., Bez. 1, Bez. 2, Warengruppe, etc.).

Jetzt soll folgenden per VBA-Aufruf passieren:

die jeweilige Artikel-Nr. in Tabelle 1 soll ergänzt werden um den Text aus Bez. 1 + " " + Bez. 2 in Tabelle 2.

Oder kann ich das Problem auch mit SVerweis lösen??

Habe im Forum zwar einige Ansätze gefunden, aber ich krieg es auf mein Beispiel leider nicht hin!

Gruß

EMW

:)

 

Hallo, EMW,

solange die Artikel-Nr. eindeutig ist, kann ein sich aufbauender SVerweis (also zwei mit Abstand zwischendrin = SVerweis(1. Fall) & " " & SVerweis(2. Fall)) die Lösung bringen. Das ist aber eine Lösung ohne VBA. *wink.gif* Bei VBA setzt man dann VLookup oder Find ein.

Gruß
LS

 

Hallo,

danke für den Tipp, hab es jetzt mit SVERWEIS hinbekommen.
Allerdings habe ich jetzt noch folgendes Problem: Ein weiteres Excel-Makro überträgt die Zellen in meine Access-DB - aber bei Übertragen der SVERWEIS-Zelle kommt (wegen der Formel - denn nehme ich einen Text funktioniert das Übertragen) eine Fehlermeldung:
Laufzeitfehler 2042 - Methode Collect für das Objekt Recordset ist fehlgeschlagen.

Hier der VBA-Text:

Code:

Kann mir jemand helfen??

Schon mal herzlichen Dank

EMW

 

Moin, EMW,

wenn es Dir um einen Text geht, dann wäre der schnellste Weg das Kopieren der Tabelle mit den Formeln für den Export und Kopieren / Inhalte einfügen / Werte, um die Tabelle abschließend wieder zu löschen...

Code:

Code:

Besonders für das Löschen würde ich auf die Tabelle acht geben, die zu der Zeit des Löschens die aktive ist - denn die ist weg und kann nicht wieder zurückgeholt werden...

 

Hallo jinx,

erst mal danke, muss den Vorschlag leider verwerfen, da ich aus der Excel-Tabelle nur einen Teilbereich (ab Zeile 6) nach Access übertrage. (sorry, hab nicht den ganzen Code gepostet) - gibt es noch eine andere Lösung für das übertragen nach access?
Oder müsste ich zur Not erst dieses Zelle mit Formatierung in eine "Übertragungstabelle kopieren", damit ich den tatsächlichen Text sozusagen extrahiert habe??

gruss

emw

 

Hallo,

bin immer noch auf der Suche nach einer Lösung - hat vielleicht noch jemand einen Vorschlag???

Gruß

EMW

 

Moin, EMW,

mit den Codeschnipseln wird eine 1:1-Kopie gefertigt, die sich nur im Namen und dem fehlen der Formeln von der Urtabelle unterscheidet - ich habe noch nicht gehört, dass das Format einer Zelle solch einen Einfluß auf Export or not hätte... *wink.gif*

 

Hallo jinx,

herzlichen Dank, dass du nochmals geantwortet hast - zwischenzeitlich hat es auch bei mir "klick" gemacht - deine Codeschnipsel waren prima!!
Ein kleines (?) Problem hab ich jetzt noch:
Die Sätze, die ich mit dem Code von Tabelle1 in ein Duplikat kopiere, können u.Umständen als Materialtext #NV enthalten (wenn kein passender Artikelstamm vorhanden ist!). Beim übertragen verursacht genau dieser Text die Fehlermeldung, die ich oben beschrieben hatte. Ich hab versucht, diesen Text zu tauschen:

For z1 = 1 To zaehler1
If ActiveCell.Value = "#NV" Then
ActiveCell.Value = "ohne Artikeltext"
End If
Next z1

das klappt nicht - ich vermute, weil das Textfeld auch noch Leerstellen beinhaltet?? Hat jemand eine Idee, wie ich diesen Text noch tauschen kann?

Und nochmals vielen Dank für Eure Tipps!!

Gruß

EMW

 

Moin, EMW,

die SpecialCells-Methode ist sehr viel schneller als eine Schleife und berücksichtigt auch nur die Zellen, die wirklich einen zutreffenden Inhalt haben. Solange noch Formeln in der Tabelle sind, kann folgende Codezeile angewandt werden:

Code:

Wurden die Formeln bereits in Festwerte umgewandelt, lautet die Zeile wie folgt:

Code:

Um eine Fehlermeldung zu verhindern, wenn diese Art von SpecialCells nicht (mehr) auf der Tabelle vorhanden ist, sollten beide Anweisungen in eine Mini-Fehlerbehandlung eingepackt werden (hier für das zweite Beispiel):

Code:

 

Hallo jinx,

herzlichen Dank für die klasse Unterstützung! Klappt nach Einbau perfekt.

EMW