Hallo Fachleute, ein kleines Problem.
Dank clags Hilfe lese ich einen Zellbereich in einem Textfield aus.
Code: Alles auswählen
myVerordn5 = oSheet.getCellRangeByName("E17:D17").getdataArray
mStrings = myVerordn5(0)
sLongText = join(mStrings()," x ")
oDialog4.getControl("TextField23").Text = slongText
Die Werte in E17 und D17 sind Ergebnisse einers Sverweises. ( Bsp. 10 x irgendwas)
Code: Alles auswählen
=(SVERWEIS($B$8;Rechnungen.$A$1:Rechnungen.$AV$439;VERGLEICH($T$3;Rechnungen.$A$1:$AV$1;0);0))
Wenn die Zellen Leer sind erscheint im Textfield: 0 x 0.
Nun habe ich die Formel geändert in:
Code: Alles auswählen
=WENN(ISTLEER(SVERWEIS($B$8;Rechnungen.$A$1:Rechnungen.$AV$439;VERGLEICH($T$3;Rechnungen.$A$1:$AV$1;0);0));"";(SVERWEIS($B$8;Rechnungen.$A$1:Rechnungen.$AV$439;VERGLEICH($T$3;Rechnungen.$A$1:$AV$1;0);0)))
bleibt als Ergebnis im Textfield: X
Soweit logisch.
Nun hatte ich versucht, dass x auch noch wegzubekommen.
Code: Alles auswählen
Dim myVerordn5 as Object
myVerordn5 = oSheet.getCellRangeByName("E17:D17").getdataArray
mStrings = myVerordn5(0)
if myVerordn5 <> "" then
sLongText = join(mStrings()," x ")
oDialog4.getControl("TextField23").Text = slongText
else
sLongText = join(mStrings()," ")
oDialog4.getControl("TextField23").Text = slongText
end if
Klappt aber leider nicht, weil eine Objektvariable nicht belegt ist (Fehlermeldung).
Wie muß es richtig sein?
Gruß Jörg
Hallo Fachleute, ein kleines Problem.
Dank clags Hilfe lese ich einen Zellbereich in einem Textfield aus.
[code]myVerordn5 = oSheet.getCellRangeByName("E17:D17").getdataArray
mStrings = myVerordn5(0)
sLongText = join(mStrings()," x ")
oDialog4.getControl("TextField23").Text = slongText[/code]
Die Werte in E17 und D17 sind Ergebnisse einers Sverweises. ( Bsp. 10 x irgendwas)
[code]=(SVERWEIS($B$8;Rechnungen.$A$1:Rechnungen.$AV$439;VERGLEICH($T$3;Rechnungen.$A$1:$AV$1;0);0))
[/code]
Wenn die Zellen Leer sind erscheint im Textfield: 0 x 0.
Nun habe ich die Formel geändert in:
[code]=WENN(ISTLEER(SVERWEIS($B$8;Rechnungen.$A$1:Rechnungen.$AV$439;VERGLEICH($T$3;Rechnungen.$A$1:$AV$1;0);0));"";(SVERWEIS($B$8;Rechnungen.$A$1:Rechnungen.$AV$439;VERGLEICH($T$3;Rechnungen.$A$1:$AV$1;0);0)))[/code]
bleibt als Ergebnis im Textfield: X
Soweit logisch.
Nun hatte ich versucht, dass x auch noch wegzubekommen.
[code] Dim myVerordn5 as Object
myVerordn5 = oSheet.getCellRangeByName("E17:D17").getdataArray
mStrings = myVerordn5(0)
if myVerordn5 <> "" then
sLongText = join(mStrings()," x ")
oDialog4.getControl("TextField23").Text = slongText
else
sLongText = join(mStrings()," ")
oDialog4.getControl("TextField23").Text = slongText
end if [/code]
Klappt aber leider nicht, weil eine Objektvariable nicht belegt ist (Fehlermeldung).
[code]if myVerordn5 <> "" then[/code]
Wie muß es richtig sein?
Gruß Jörg