Da sich HWH anscheinend nicht dafür...
26.05.2007 01:34:00
Luc:-?
...interessiert, ob ich hier wieder Dateien hochladen kann, Stefan,
muss es so gehen... ;-(
Mit 1 Formel in allen Zeilen von C5:H42 und einer 2. in M5:M42 sowie einer versteckten Formel in H1 kannst du alle Probleme lösen. Allerdings habe ich dazu das Blatt Codex etwas umsortiert (Umkehrung von Menue mit Codexziffern in Zeilen und Position im Codex in den Spalten - B:D=1...3/E:G=4 -, wobei die Codexziffer 0 in der 1.Zeile (8) steht, gefolgt von 1...9 in Zeilen 9-17). Außerdem habe ich als Zeile 7 noch Ergänzungstexte hinzugefügt. In A18:B19 folgen die Decodierungen zu den Buchstaben o./u. (hierfür hast du leider kein Bsp geliefert, so dass ich nicht weiß, ob das so in deinem Sinne ist!). Am Blatt Menue habe ich nichts geändert.
Formeln:
H1:=WENN(H1=4;1;H1+1) - dazu Berechnung auf automatisch / Iterationszahl ≥ 4 einstellen*
C5:=INDEX(Menue!$B$3:$K$8;SPALTE(A:A);REST(TEIL($B5;INDEX(Menue!$A$3:$A$8;SPALTE(A:A));1)-1;10)+ _
1)
Anmerkung: C5-Format: Standard;Standard;"" - macht 0 unsichtbar!
M5:=WENN(ISTFEHLER(FINDEN(LINKS(B5);"ou"));WENN(REST(H$1-1;4)+1=0;"";WENN(REST(H$1-1;4)+1=1;INDEX(Codex!B$7:G$7;1)&INDEX(Codex!B$8:G$17;TEIL(B5;1;1)+1;1);M5&" / "&INDEX(Codex!B$8:G$17;TEIL(B5;REST(H$1-1;4)+1;1)+1;REST(H$1-1;4)+1)&INDEX(Codex!B$7:G$7;REST(H$1-1;4)+1)));INDEX(Codex!B$18:B$19;FINDEN(LINKS(B5);"ou")))
* Die Idee stammt von Excelformeln und wurde von mir deinem Problem angepasst. Hintergrund ist, dass es keine xlTextfkt gibt, die alle Zellen eines Bereichs miteinander verkettet, sondern immer nur einzeln anzugebende Texte. Ich habe da allerdings auch noch andere Möglichkeiten (udFktt), deren wichtigste Komponente ich leider hier noch nicht anbieten kann (muss noch optimiert wdn!). Ersatzweise kann man aber auch eine auf die xlFkt VERKETTEN reagierende Ereignisprozedur verwenden, die dann allerdings diesen Formelteil mit seinem Ergebnis überschreibt.
Gruß + Erfolg
Luc :-?