Hallo Excel-VBA-Profis,
ich benötige dringend eure Hilfe für ein schwieriges Problem!
Ich habe meine Beispiel-Excel-Datei hier beigelegt in der man vorliegend 3 Tabellen findet und zwar die "Stoffstromtabelle", die "Bilanz Messwerte" und die "Rp-Vergleich".
Dabei muss man Wissen, dass die "Stoffstromtabelle" die Quelldaten für den Pivottablebericht der "Bilanz Messwerte" Tabelle liefert. Des Weiteren wird durch ein Feld (erstellt über Einfügen, dann Namen, dann Definieren und dann Liste anlegen usw.) in Zelle K4 in der "Bilanz Messwerte" Tabelle ein Datum (01.01.2006 - 31.12.2006) oder ein MW (MW 01-Jan, MW 02-Feb, ... ,MW 12-Dez) ausgewählt, welcher dann alle Messwerte y zum jeweiligen Tag "x" oder MW "x" für alle Messungen in die Stoffstromtabelle einträgt und diese dann anschließend automatisch über Pivottablebericht aktuallisieren in die "Bilanz Messwerte" Tabelle überträgt. Dies ist in VBA so festgelegt wurden von mir.
Da ich aber die Beispieldatei klein halten wollte habe ich auf diese Funktion verzichtet und möchte hier nur darauf hinweisen, dass das Feld K4 in der "Bilanz Messwerte" Tabelle ein variables Auswahlfeld ist und bei z.B. anderen Datum völlig neue Messwerte in den Pivottableberichtfeldern (Normalbet., Ø Infra-wert und Ø Lab.-wert) übertragen werden.
Mein ANLIEGEN:
--------------
Ich möchte nun über einen klick auf den Button "als Rp1 festlegen" alle die Daten aus der "Bilanz Messwerte" Tabelle kopieren, welche ich in die "Rp-Vergleich" Tabelle in der Beispieldatei geschrieben habe (also StromNr., KKS, Param., Dimension, Medium und jeweiligen Messwert der Zellen E14-E19 eingetragen werden).
Dabei muss jedoch überprüft werden ob ein Messwert bei Ø Infra-wert, Ø Lab.-wert oder Normalbet. steht und da immer nur ein Messwert für die Referenzpunktuntersuchung wichtig ist, soll hier eine Rangfolge festgelegt werden welcher Wert übernommen werden soll. Die Rangfolge dabei soll sein:
Oberste Prioriät = Normalbet.
Mittlere Priorität = Ø Infra-wert
Niedrigste Priorität = Ø Lab.-wert
z.B. steht in Zeile 23 der "Bilanz Messwerte" Tabelle bei Normalbet.=800, bei Ø Infra-wert=760 und bei Ø Lab.-wert=780, so dass nun automatisch klar sein muss, dass hier bei "Normalbet" ein Wert steht und nur dieser (wegen höschster Priorität) übertragen werden soll in die Zellen F8 und E19 der "Rp-Vergleich" Tabelle. Würde hier kein Normalbet. Wert stehen, dann dürfte nur der Ø Infra-wert in die Zellen F8 und E19 der "Rp-Vergleich" Tabelle eingetragen werden. Es sollen so viele Messungen eingetragen werden in die "Rp-Vergleich" Tabelle wie zum Zeitpunkt wo man auf den Button drückt StromNr. angezeigt werden in der "Bilanz Messwerte" Tabelle. Außerdem muss das Datum aus Feld K4 der "Bilanz Messwerte" Tabelle in die Zelle C8 und C19 der "Rp-Vergleich" Tabelle eingetragen werden.
Der Button "als Rp1 festlegen" soll bevor er das hier oben beschriebene kopieren beginnt die Hauptgröße abfragen, von der man ausgegangen ist beim Vergleich der Messungen, d.h. eine MSG Box soll vorher die Abfrage starten: "Bitte geben Sie die StromNr. der gewünschten Hauptgröße an!", wonach sich ein Eingabefeld öffnen soll, indem man diese Strom-Nr. eingeben kann. Schließt man dann die Eingabe mit Enter oder OK ab, sollen die zugehörigen Informationen aus den Zellen der eingegebenen StromNr. in die "Rp-Vergleich" Tabelle eingetragen werden (Zellen F3 bis F7, wobei bei der Messwert in Zelle F8 wieder überprüft werden muss nach Prioritäten wie oben schon beschrieben).
Der Button "als Rp2 festlegen" soll genau das selbe machen wie der Button "als Rp1 festlegen", nur brauch dieser nicht mehr nach der Hauptgröße fragen, da diese bereits festgelegt wurde. Außerdem brauch er auch nicht die Inhalte von StromNr., KKS, Param., Dimension, Medium mit eintragen, sondern nur die jeweiligen Messwerte nach Prioriäten wie beim Button "als Rp1 festlegen". Also trägt er nur die Messwerte in die Zellen E20... und F9 ein, sowien das Datum aus Feld K4 der "Bilanz Messwerte" Tabelle in die Zelle C9 und C20 der "Rp-Vergleich" Tabelle eingetragen werden.
Meine sperrlichen VBA-Kenntnisse reichen hier leider nicht aus, um dass zu realisieren und so wäre ich über jede Hilfe sehr sehr dankbar wie man dies umsetzen kann?
1. If Funktion für Prioritäten festlegen und nur ein Wert immer übernehmen
2. Abfragebox mit Zahleneingabe der StromNr. und anschließenden kopieren der zugehörigen Daten der jeweiligen StromNr.
3. Kopieren von Daten nach Auswahlschema über VBA in Excel, wobei nur Daten kopieret weren sollen die auch da sind (maximal 30 Messwerte wird man wohl hier auf einmal vergleichen wollen)
Ein verzweifelter Excel-User der sich über jede Hilfe freut,
Ronny