Problem mit Formel.Suchen in Deutsch und Englisch
18.04.2007 15:25:00
Rene
deutschen und auch auf englischen (Office-)Versionen laufen. Erstes Manko war die fehlende Konvertierung von Zeile SPalt Befehlen
(Bsp: deutsch =AUSWÄHLEN("zs(-1)") und in englisch wirds zu =SELECT("zs(-1)"), was vom Format her schon falsch war (ich habe diese
dann alle manuell zu =SELECT("(rc[-1])") ersetzt. Dies war ein Manko. Das eigentlich Problem ist jetzt aber der Formel.Suchen
Befehl:
=AUSWÄHLEN(OTRtable!DG10134:DG10159)--Auswahl des Suchbereichs,wo nach 1. WAHR gesucht _
werden soll
=FORMEL.SUCHEN($D$26;2;1;2;1)---------soll erstes WAHR in Auswahlbereich finden (in D26 _
steht nur WAHR drin)
=AUSWÄHLEN("zs(-1)")------------------wähle Wert in Zelle links neben WAHR
=KOPIEREN()---------------------------kopiere Wert in Zelle links neben WAHR
=ECHO(FALSCH)
=AUSWÄHLEN(OTRtable!DF10132)
=INHALTE.EINFÜGEN(3)
=AUSWÄHLEN(OTRtable!DG10150:DG10159)
=FORMEL.SUCHEN($D$26;2;1;2;1)-----------------soll erstes WAHR in Auswahlbereich finden (in D26 _
steht nur WAHR drin)
=AUSWÄHLEN("zs(-1)") -------------------------wähle Wert in Zelle links neben WAHR
=KOPIEREN()-----------------------------------kopiere Wert in Zelle links neben WAHR
=ECHO(FALSCH)
=AUSWÄHLEN(OTRtable!DF10160)
=INHALTE.EINFÜGEN(3)
in Englisch sieht es so aus :
=WORKBOOK.SELECT("OTRtable")
=SELECT(OTRtable!DG10134:DG10159)
=FORMULA.FIND($D$26,2,1,2,1)
=SELECT("(rc[-1])")
=COPY()
=ECHO(FALSE)
=SELECT(OTRtable!DF10132)
=PASTE.SPECIAL(3)
=SELECT(OTRtable!DG10150:DG10159)
=FORMULA.FIND($D$26,2,1,2,1)
=SELECT("(rc[-1])")
=COPY()
=ECHO(FALSE)
=SELECT(OTRtable!DF10160)
=PASTE.SPECIAL(3)
Das Problem ist nun in Englisch, daß er beim Suchen des Wertes nicht im vorher markiertem Bereich DG10134:DG10159 bleibt,
sondern einfach weiter in derselben Spalte im Tabellenblatt das nächste WAHR sucht. Also im Bereich ist nur FALSCH vorhanden aber
weiter unten in der Spalte ein WaHR, auf das er sich dann bezieht. In deutsch bleibt er in diesem Fall einfach in der obersten
Suchbereichzelle (DG10134) stehen und somit kopiert er den korrekten Wert direkt links daneben. Ich habe Fehlermeldungen mit VBA
(Application.DisplayAlerts = False) unterdrückt.