Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: Artikel abdating

VBA: Artikel abdating
03.08.2002 09:30:04
Ernst Dunkel
Guten Tag
In einer Arbeitsmappe befinden sich diverse Tabellen mit gleichem Aufbau. In jeder Tabelle können die gleichen Artikel vorkommen. In Tabelle “Datenbank“ werden die Artikel verwaltet. Zu jedem Artikel gehört eine Artikel Nr. ein netto Preis und eine Arbeitszeit. Dies befinden sich in:

Spalte A = Artikel Nr.
Spalte B = Netto Preis
Spalte C = Arbeitszeit


Wie kann ich per VBA die netto Preise und Arbeitszeiten in den Tabellenblätter 1 bis 10 bei Bedarf auf den neusten Stand bringen?

(Eine Möglichkeit ist ohne VBA mit =SVERWEIS(A4;'Datenbank!$A$3:$C$52;2) pro Artikel, will ich aber nicht machen!)

Wer kann mir bei meinem Problem behilflich sein?

Gruss Ernst

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA: Artikel abdating
03.08.2002 14:33:01
Charlie
Hallo, Ernst!

Vielleicht gibt es elegantere Lösungen, aber hier einmal ein Ansatz.

Alle Blätter der Mappe mit Ausnahme des Blattes "Datenbank" (in das Klassenmodul dieser Tabelle musst Du auch den Code einfügen, sonst musst Du die Referenzierung auf dieses Blatt entsprechend anpassen) werden durchlaufen. Jeder Wert in Spalte A der Datenbank wird als Suchbegriff verwendet und aktuellen Tabelle gesucht. Wird der Suchbegriff in der Tabelle gefunden, wird der Datensatz aus der Datenbank in die Fundzeile kopiert.

Viel Erfolg,
Charlie

Re: Verstehe was nicht! VBA: Artikel Updating
03.08.2002 20:00:13
Ernst Dunkel
Hallo Charlie
Recht herzlichen Dank für Deine super Lösung.
Leider muss ich dich nochmals strapazieren! Denn ich begreife folgenden Satz nicht:
***Alle Blätter der Mappe mit Ausnahme des Blattes "Datenbank" (in das Klassenmodul dieser Tabelle musst Du auch den Code einfügen.***
Was muss ich hier genau eingeben?
Mein Projekt-Explorer sieht wie folgt aus:
VBA-Project(.....)
Diese Arbeitsmappe [hier habe ich keine VBA-Code]
Modul1 [hier sind die UserForm.show aufgeführt]
Tabelle1(Datenbank) [hier habe ich keine VBA-Code]
Tabelle2(GV) [ wie oben ]
Tabelle3(BM) [ wie oben ]
Tabelle..... [ wie oben ]
UserForm1 [hier sind auch meine VBA-Code]
UserForm2 [ wie oben ]
UserForm..... [ wie oben ]
Gruss Ernst
Anzeige
Re: Verstehe was nicht! VBA: Artikel Updating
03.08.2002 20:20:17
Charlie
Hallo, Ernst!

Ich habe den Code im Klassenmodel der Datenbanktabelle (="Tabelle1" im VBA-Editor) erstellt und daher geschrieben, dass Du den Code auch in diesem Modul einfügen solltest, damit Dir eventuell notwendige Änderungen der Referenzierung des Blattes "Datenbank" erspart bleibt.

Wenn Du - was ich annehme - den Tabellenableich über einen CommandButton einer UserForm durchführen willst, dann musst Du ihn in einem Standard-Modul einfügen und der Schaltfläche die den Abgleich auslösen soll den Prozeduraufruf hinzufügen, z.B.:

Die von mir befürchtete Änderung der Referenzierung auf das Blatt "Datenbank" bleibt Dir erspart. Ich habe es soeben ausprobiert und es funktioniert auch so.

Viel Erfolg,
Charlie

Anzeige
Re: Es funkt.! VBA: Artikel Updating
03.08.2002 23:49:02
Ernst Dunkel
Guten Abend Charlie

Einfach toll wie Du das gemacht hast!

Recht herzlichen Dank.

Gruss Ernst

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige