Umrechnen von Daten in Tabellen

Hallo Zusammen,
ich brauche hier mal eure Hilfe!
Folgendes Problem:
In meiner ersten Tabelle habe ich Produkte, und eine entsprechende Menge zu einem bestimmten Datum. Produkt, Menge und Datum ändern sich täglich. Demnach ändert sich ständig die Anzahl der Zeilen und Spalten.
In einer weiteren Tabelle befinden sich die Preise zu den Produkten.
Hier ein Beispiel:
https://www.herber.de/bbs/user/87895.xlsx
Mein Problem ist nun, dass ich die Mengen in Tabelle 1 gerne mit dem jeweiligen Preis multiplizieren möchte, um den Wert der Menge zu ermitteln. Der Wert soll quasi die Menge ersetzen.
Dies soll möglichst automatisiert gehen, da es eine tägliche Abfrage sein soll.
Kann hier jemand weiterhelfen?
Vielen Dank schon mal!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Materialwert() Dim rngZelle As Range Dim rngBereich As Range Dim lngZeilePreis As Long Dim dblPreis As Double Set rngBereich = Sheets("Tabelle1").Range(Cells(3, 2), Cells(Sheets("Tabelle1").UsedRange. _ Rows.Count, Sheets("Tabelle1").UsedRange.Columns.Count)) For Each rngZelle In rngBereich.Cells.SpecialCells(xlCellTypeConstants) lngZeilePreis = Sheets("Tabelle2").Cells.Find(What:=Cells(rngZelle.Row, 1).Value, _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row dblPreis = Sheets("Tabelle2").Cells(lngZeilePreis, 2).Value rngZelle.Value = rngZelle.Value * dblPreis Next rngZelle End Sub

Hallo,
ich habe hier mal die Originaltabelle vorbereitet.
Vorgaben:
2x Tabellen: Bestellvorschläge und Listenpreis (Tabellengröße = variable / Tabellenstruktur = gleich)
Beispiel Tabelle: https://www.herber.de/bbs/user/87963.xlsx
Ziel:
In der unbearbeiteten Tabelle Bestellvorschläge werden Mengen vorgegeben die zu dem angegebenen Datum bestellt werden sollen. Nach der Ausführung des Makros sollte anstatt der Menge, die Kosten die diese Menge multipliziert mit dem Stückpreis des Produkts (Wert aus Listenpreis Tabelle ) ergibt, je Datum angezeigt werden. Zellen ohne Wert bleiben unverändert!
Beispiel:
Material ID Material ID (Text) | Date 25.04.2014 07:30:00 CET
1001 item A 200,00
Nach dem Ausführen des Makros
Material ID Material ID (Text) | Date 25.04.2014 07:30:00 CET
1001 item A 2198
Mögliche Vorgehensweise:
In der Bestellvorschläge Tabelle im Bereich ab C4 bis unendlich ( bzw. letzter benutzter Bereich) nach Werten suchen. Wenn ein Wert vorhanden ist, in der Tabelle Listenpreis den Wert aus Spalte G ( pro Einheit) mit dem zuvor gefunden Wert multiplizieren. Das Ergebnis in Euro, in die Zelle der Tabelle Bestellvorschläge (über)schreibe, in der der erste Wert gefunden wurde. Als Indikator der zwei Tabellen dient die Material ID beider Tabellen.
Zusatz: Sollte kein Preis über die Abfrage der Material ID in der Tabelle Listenpreis vorhanden sein, so sollte die Zelle vom Wert unverändert bleiben aber farblich hervorgehoben werden.
Vielen Dank für eure Hilfe!
Gruß Kevin

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Umrechnen von Daten in Tabellen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread