listenfeld oder sverweis

[Dieter63]

Hallo

Der Bezug funzt auch wenn die Listenfelder in einer anderen .xlsx sind (Kalkulation.xlsx)?

 Ja  schau  mal  

 wenn  du   die  Bahnhofstr.  in  Köln   ins  Navi  eingibst

 und  auf  dem   Weg   dahin   du  auf  die  Idee kommst  es wäre  jetzt schön

 ich  würde in  Berlin  rauskommen   .
 
 Was  machst  du  dann.

[volker_xy]

so nun möchte ich das mal genauer beschreiben.
Beigefügt die beiden Tabellen
EK2.xlsx
Kalkulation_Kundenkonditionen.xlsx

in der Kalkulation soll durch Auswahl (Listenfelder) der 3 Kriterien aus der Tabelle EK2.xlsx der aktuelle Preis in B9 eingetragen werden.
In der Kalkulation A5:F30 soll immer das Bauteil mit aktuellen Preisen berechnet werden.
rechts daneben soll die Kalkulation als Kopie stehen so, dass wenn ich in 1 Jahr den Artikel aufrufe sofort sichtbar ist ... passt der damals ermittelte Preis noch mit den nun aktuellen EK´s

Menge der unterschiedlichen Materialien ca. 70-100


Vielleicht ist jetzt alles klarer.


Gruß

Volker

[Rabe]

Hi Volker,

rechts daneben soll die Kalkulation als Kopie stehen so, dass wenn ich in 1 Jahr den Artikel aufrufe sofort sichtbar ist ... passt der damals ermittelte Preis noch mit den nun aktuellen EK´s

mMn geht das nur per VBA-Makro.

Andererseits: ist das überhaupt nötig? Wenn in der Tabelle die aktuellen EKs drin stehen, wird doch auch der aktuelle Preis ermittelt. Das ist doch nur ein Vergleich im Rückblick.
Was passiert, wenn der damalige Preis nicht mit den aktuellen EKs übereinstimmt? Was, wenn er höher ist, was, wenn er niedriger ist?

[volker_xy]

eigentlich wäre ich schon ganz glücklich wenn das mit der Auswahl der Listenfelder klappt mit Bezug auf eine andere XLSX

ohne VBA wenn möglich ist.

[volker_xy]

Hi Volker,


mMn geht das nur per VBA-Makro.

Andererseits: ist das überhaupt nötig? Wenn in der Tabelle die aktuellen EKs drin stehen, wird doch auch der aktuelle Preis ermittelt. Das ist doch nur ein Vergleich im Rückblick.
Was passiert, wenn der damalige Preis nicht mit den aktuellen EKs übereinstimmt? Was, wenn er höher ist, was, wenn er niedriger ist?

Hallo Rabe,
da Kunden den gleichen Artikel zu unterschiedlichen Zeiten (teilweise Jahre später) neu bestellen - mit altem Preis - wollte ich so erreichen, dass ich immer weis wie harmoniert das denn mi der theoretische aktuelle Preis!

Danke und  Gruß Volker

[Käpt'n Blaubär]

Hallo,

Hallo Rabe,

da Kunden den gleichen Artikel zu unterschiedlichen Zeiten (teilweise Jahre später) neu bestellen - mit altem Preis - wollte ich so erreichen, dass ich immer weis wie harmoniert das denn mi der theoretische aktuelle Preis!

... in diesem Fall wirst Du Dich wohl oder übel entscheiden müssen.
Mit VBA geht's; ohne wird das nichts.

[volker_xy]

Hallo Käpt’n Blaubärte,

geht denn das mit den Auswahlfeldern  (listenfeld), die auf eine andere .xlsx auch nur über VBA?

Gruß Volker

An VBA wollte ich eigentlich nicht ran da „kein Plan“  :22:

[Rabe]

Hi,

hier die Formel für Dein Kalkulationsblatt mit Bezug auf EK2.xlsx Blatt Neu-Preisliste:

Arbeitsblatt mit dem Namen 'Kalkulation '
	A	B	C	D	E	F
5	Kalkulation auf aktuell gültigen Einkaufpreisen
6	Auswahl Material	Stahl			Datum	10.04.2018
7	Auswahl Lieferant	L5812
8	Auswahl Dicke	8
9	Ermittelter EK Preis	28,00 €
10
11
12	Materialkosten	1	1000	1000	1	28,00 €
13	Bearbeitung 1	1	Ausschnitt	5,00 €		5,75 €
14	Bearbeitung 2

Name	Bezug
Dicke	=[EK2.xlsx]Neu_Preisliste!$E$6:$E$65
Preis	=[EK2.xlsx]Neu_Preisliste!$F$6:$F$65

Zelle	Formel
F6	=HEUTE()
B9	=SUMMENPRODUKT((EK2.xlsx!Tab_Ek_PreisListe[Lieferant]=B7)*(EK2.xlsx!Tab_Ek_PreisListe[Material]=B6)*(Dicke=B8)*Preis)
E12	=B12*C12*D12/10^6
F12	=(E12*B9)+(E12*B9*Kundenkonditionen!B4)
F13	=(B13*D13)+(B13*D13*Kundenkonditionen!C5)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Mit diesem Makro kannst Du die Daten in den "Alt"-Bereich kopieren per Tastendruck:

Modul mdl_AlteDatenSichern

Option Explicit 



Sub kopieren_Werte() 

' 

' 

' 



' 

   Range("A6:F30").Copy 

   Range("I6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False 

        

  Application.CutCopyMode = False 

  Range("B6").Select 

   

End Sub 

Hier die Dateien:

  EK2 - Rabe.xlsx (Größe: 20,91 KB / Downloads: 7)

  Kalkulation_Kundenkonditionen - Rabe.xlsb (Größe: 22,2 KB / Downloads: 9)

[volker_xy]

Hallo Rabe,

ganz vielen Dank für die Info.
Ich werde mir das heute Abend mal in aller Ruhe anschauen.
Das mit dem VBA hätte ich mir viel "mächtiger" vorgestellt.

Freue mich schon auf´s anschauen und probieren.


Gruß


Volker

[Klaus-Dieter]

Hallo Volker,

Das mit dem VBA hätte ich mir viel "mächtiger" vorgestellt.

Du kannst davon ausgehen, dass VBA mindesten so mächtig ist, wie Excel selber. An dem kleinen, mit dem Rekorder erstellten Makro, kann man das bestimmt nicht ermessen.