Hallo,
folgendes Problem ist mir heute begegnet. Ich habe eine Tabellenspalte mit 20.000 Zeilen. Die aus einer Datenbank gezogenen Daten haben verschiedene benutzerdefinierte Zahlenformate. Es gibt PC, PAC und M. In der Zelle selbst steht nur der Zahlenwert und das Zahlenformat bestimmt die Einheit. Jetzt beziehe ich mich auf einige Zellen aus der Spalte in einem anderen Tabellenblatt. Die Werte mit der Einheit PAC müssen allerdings mit einem für diese Zelle spezifischen Wert in PC umgerechnet werden. Per Hand für mich möglich aber aufwendig. Ich würde gerne eine automatische Umrechnung erzielen, da dieses Vorgehen öfter auftreten wird und pauschal nicht gesagt werden kann welche Zeilen in welchem Format vorliegen.
Wie kann ich eine Abfrage des benutzerdefinierten Zahlenformats (evtl. in einer normalen Ecxel Formel sogar) erreichen? (Die Formel Zelle("format") liefert leider für alle benutzerdefinierten Zahlenformate eine 0. da PC nicht umgewandelt werden muss scheidet das Vorgehen aus.)
meine Lösung wäre es jetzt gewesen alle Zellen, die dem Zahlenformat PAC entsprechen, per VBA Code und Button Click farbig zu markieren. Auf der weiteren Seite baue ich mir eine wenn Funktion, die bei einer farbigen Zelle den übernommenen wert noch umrechnet und bei keiner Farbe den Wert so übernimmt. Wie würde so eine VBA Funktion aussehen? Mit dem Tool habe ich bisher noch nicht viel Erfahrung.
Für alternative Lösungsvorschläge bin ich auch offen. Ich hoffe mein Problem ist einigermaßen Verständlich. Danke
|