cx.System.ExcelDaten()

cx.System.ExcelDaten() 26 Aug 2023 18:04 #13

daywalker Autor Offline Platinum Boarder Beiträge: 941 Dank erhalten: 652	Lieber Stefan. Vielen Dank! Funktioniert so einwandfrei. lg Christian
	Bitte Anmelden oder Registrieren um der Konversation beizutreten.

cx.System.ExcelDaten() 27 Apr 2024 21:28 #14

daywalker
Autor
Offline
Platinum Boarder
Beiträge: 941
Dank erhalten: 652

Hallo lieber Stefan.

In dem Kontext versuche ich in Zelle C2 des 1. Tabellenblatts die Formel =LINKS("Hallo";2) einzufügen. Leider kommt eine kleine Fehlermeldung.

 cX4Web Code

Was ist das?
1 *** Excel_Formel 

2

3 Wenn (? Unwahr: '[cX.System.ExcelDaten(-2;;?)]')

4 Setze in [cX.System.ExcelDaten(-2;;NV)]: ''

5 Ende Wenn

6

7 Setze in [cX.System.ExcelDaten(-1;1;A)]: ''

8 Setze in [cX.System.ExcelDaten(C2;;F)]: '=LINKS("Hallo";2)'
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
			
**cx5AR-LC AAAAAAABAC tUk1rAjEQv Qv9DyGH4h5 0u16zsRSrK IqXlUUoRdL NFAL52MZZc P-9cdeP9tA uQk-Z9zKZ9 2YyaVZ4VeL 4oUdIOqk0V h7GEtL4Erc Xzhhh5b5BN 0zO56YugdM TAIuUbOCAn E4PBejdzHk DmpL4z6dTU 2LdlZSh8Lj 4pIG1UqFyt uWTb0wudBW ot2I7zOo9g hk2Nl4Fgu0 PRow9R-8_0 5Xk9KlTGjA XXokPDZRcI k5_VVnnUWf LVp56-Y-53 GMuYQl76TR 3T8lJ6HcWN UMNMHw8Xy3 Wy6z_-FU5Z HOhtWtDNrr qhvW6bVQan 3fwCDMhX4a MAgAA=*
  (8 Zeilen, cX 5.0.10.5)

lg Christian

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

cx.System.ExcelDaten() 28 Apr 2024 08:29 #15

daywalker
Autor
Offline
Platinum Boarder
Beiträge: 941
Dank erhalten: 652

daywalker post=4233 schrieb: Hallo lieber Stefan.

In dem Kontext versuche ich in Zelle C2 des 1. Tabellenblatts die Formel =LINKS("Hallo";2) einzufügen. Leider kommt eine kleine Fehlermeldung.

cX4Web Code
Was ist das?

1 *** Excel_Formel
2
3 Wenn (? Unwahr: '[cX.System.ExcelDaten(-2;;?)]')
4 Setze in [cX.System.ExcelDaten(-2;;NV)]: ''
5 Ende Wenn
6
7 Setze in [cX.System.ExcelDaten(-1;1;A)]: ''
8 Setze in [cX.System.ExcelDaten(C2;;F)]: '=LINKS("Hallo";2)'

cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen

**cx5AR-LC AAAAAAABAC tUk1rAjEQv Qv9DyGH4h5 0u16zsRSrK IqXlUUoRdL NFAL52MZZc P-9cdeP9tA uQk-Z9zKZ9 2YyaVZ4VeL 4oUdIOqk0V h7GEtL4Erc Xzhhh5b5BN 0zO56YugdM TAIuUbOCAn E4PBejdzHk DmpL4z6dTU 2LdlZSh8Lj 4pIG1UqFyt uWTb0wudBW ot2I7zOo9g hk2Nl4Fgu0 PRow9R-8_0 5Xk9KlTGjA XXokPDZRcI k5_VVnnUWf LVp56-Y-53 GMuYQl76TR 3T8lJ6HcWN UMNMHw8Xy3 Wy6z_-FU5Z HOhtWtDNrr qhvW6bVQan 3fwCDMhX4a MAgAA=* (8 Zeilen, cX 5.0.10.5)

lg Christian

Als Zusatzinfo hier noch leicht veränderte Skriptzeilen mit Bildschirmfoto.

 cX4Web Code

Was ist das?
1 *** Excel_Formel 

2

3 Wenn (? Unwahr: '[cX.System.ExcelDaten(-2;;?)]')

4 Setze in [cX.System.ExcelDaten(-2;;NV)]: ''

5 Ende Wenn

6

7 Setze in [cX.System.ExcelDaten(-1;1;A)]: ''
8 *** Falsches Zeichen in der Formel 

9 Setze in [cX.System.ExcelDaten(3;2;F)]: '=Heute()'
10 *** Funktioniert 

11 Setze in [cX.System.ExcelDaten(3;3;F)]: '=(2*3)'
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
			
**cx5AR-LC AAAAAAABAC tk1FLwzAQx 98Fv0PIUyt ste1jmonoi r740lFEEcm aE4NpWtIrr N_etNucDrQ W9pS7fy7c7 _Lnkqywqsb F-RkhyU2rs bWwkJAE-3h 7UZWlMLIZs kNOdueqq4H TPgGDlKxgg 5wuNwXo17S yJWhKgj-fL ssau7GiDIX F-zfqVCMVq sps9fCbkgv dOum5eJxnX YNQzgeMW4F gvFnE2JX_8 rNcSU4vR1s D5sIqsdZAy T7i9NcuD7k _OrKR_Syn- JcpcCEL2fU o3JGVqdBN8 Q4NeQLlTkO UIRIs-Z-5U _hiFrHUHxx yqWvN76BF8 CYTt-ajN1i BxdPyxUd8X nQRf9G5tTl sShLsdusTl W48pmQDAAA ==*
  (11 Zeilen, cX 5.0.10.6)

lg Christian

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

cx.System.ExcelDaten() 28 Apr 2024 11:13 #16

daywalker
Autor
Offline
Platinum Boarder
Beiträge: 941
Dank erhalten: 652

Liebe CX User

Hier noch ein kleines Beispiel um sich an dem vielseitigen und hilfreichen Platzhalter zu versuchen.

 cX4Web Code

Was ist das?
1 *** System.Excel.Daten 

2
3 *** Hier wird doppelt geprüft ob Excel schon aktiv bzw. geöffnet ist,¶Da es bei mir ab und zu vorkommt, das eine Excel "Prozessleiche"¶im Hintzergrund hängt und dann das Skript einen Fehler produziert.¶An sich sollte ein WENN ausreichen aber ich scheitere an der ":" ODER Bedingung.¶¶Vielleicht schafft es ja wer.... 

4 Wenn (? Unwahr: '[cX.Prozess(*Excel*).Name]=EXCEL'), ""

5 Setze in [cX.System.ExcelDaten(-2;;NV)]: ''

6 Wenn (? Unwahr: '[cX.System.ExcelDaten(-2;;?)]')

7 Setze in [cX.System.ExcelDaten(-2;;NV)]: ''

8 Ende Wenn

9 Ende Wenn

10
11 *** Setzt in Zeile 2 des Tabellenblattes die Farbe 10 (Grün) 

12 Setze in [cX.System.ExcelDaten(-3;2;]: '10'
13 *** Setzt in Spalte E die Farbe 'LightPink' als Hintergrund 

14 Setze in [cX.System.ExcelDaten(-4;5;]: 'LightPink'
15 *** Schreibt Text in Zeile 2 (Zelle A2) 

16 Setze in [cX.System.ExcelDaten(-3;2;TX)]: '"Zeilenhintergrundfarbe:cX.System.ExcelDaten(-3;2;)=10"'
17 *** Bringt Spalte A automatisch per VBA auf Textbreite 

18 Setze in [cX.System.ExcelDaten(-2;;VBA)]: 'Columns("A").EntireColumn.AutoFit'
19 *** Schreibt Text in Spalte E (Zelle E1) 

20 Setze in [cX.System.ExcelDaten(-4;5;TX)]: '"Spaltenhintergrundfarbe:cX.System.ExcelDaten(-4;5;=LightPink"'

...
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
			
**cx5AR-LC AAAAAAABAD NVs1O20AQv lfqO4xSCRJ ETZK2BwihC mBKJQSoiVJ ExWEdT-Jt7 LW7O-Ynz9M H6IlTT82Ld XYdSGihKTS H5hB71rvz7 TffzOxutnt aZrT1_BnA5 k4eU65xK8T NtZv34kOaJ EKFxllTGyb PzlWGzZI1U FEJOnhJzVL 7yhAmnn_Zw 9jbFYSqBGt _dOAnGV3Nm _QLyr5EDRd ShxCmWYYxw QAzPf7eJ0g DcOBgelGqQ AxJnkMwuvB 4yvi631dII A2tLr243G3 wX6uxKwANB CghkRpEADm jj3I4T_WQY WkVQmEApcK J56UveUqNY 52O0JgYZS_ CYmjqUyawL xWNUA-0dRe Nv6oBOc-hU Mp5bA-tBs6 xgj2MYuaU6 TTMR8yOvKm zlgLDIGDSO Ca0C-Cjf3g IIjfaoTPNg Be7OWxKQo0 gGIUHi51tF A842vU_wDa GUg1yNZjBm L51JcaOFFl nos8x5fB8F nCB2uPfPKn aJDS975d4V IWSZKqK8dr MSFfEOQ996 p14kzCWV1x sVyreoUjwr Omf7PgHhdz sPRP6dw8yb Jaqc3eD1BV aiiDGEty8N UsMPJupLlH LL-uNxmG3s mCC9-O8rZz 9H2x8FVoui 5j0hEJmQiO uRwWnKGOEO qesgQ5nM6e gCmJBxHYoE faEDhBqVSi _4zpX80V6T KReNeqN7Yr Tg23eVm2uE g_xaGfC1qg _s-nlAzmI6 Fiq4TKI2Lj GMOkLC2Xxu vHmLotb3Me S6UXcVwJy5 qw45VOrC7T qiw9_52R25 0W3crAqmoa rb-O58bCTS rNWLZY-kvG 2lrY9T8Rrc WelNBEkuQF Cxk20u23H- m52oG2DXXS lMsJsAHbSO E-UKRdsWsW j4vmKpMbio 9fiTe5J-ld xbzN2oq5fW 6y6Ni3vU7f A_Vt5i-Ru3 qb0k2R2x69 GPtm4Oo09N lnT9Sr8-AY Xqb0A2KK9i cKdJLCHKX- zbqLxdWRPV 75xCGPIXUM WHrCj2Xit3 3YjvqBN72S ba5Nb3E-hj KoDzgkAAA= ==*
  (22 Zeilen, cX 5.0.10.5)

Hinweis: Bei besonderem Lizenzerfordernis, bitte das Skript im Volltestmodus ausführen.

Gruss Christian

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

cx.System.ExcelDaten() 28 Apr 2024 12:32 #17

Stefan
Offline
Administrator
Beiträge: 1217
Dank erhalten: 1741

Hallo, Christian!

Das Setzen einer Formel hat noch den kleinen Haken, dass dies in englisch erfolgen muss.
In deinem Fall setze "=Today()", dann klappt das.

Dies gilt auch für die Notation, also Komma statt ;:
Setze in [cX.System.ExcelDaten(C2;;F)]: '=Left("Hallo",2)'
Auch das klappt!

Werde mir das aber noch ansehen, das geht bestimmt auch in deutsch...!

Liebe Grüße
Stefan

Folgende Benutzer bedankten sich: daywalker, Siebald

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

cx.System.ExcelDaten() 28 Apr 2024 12:36 #18

daywalker Autor Offline Platinum Boarder Beiträge: 941 Dank erhalten: 652	Hallo Stefan. Vielen Dank für die Info. Und hat funktioniert. lg Christian und noch einen schönen Sonntag
	Bitte Anmelden oder Registrieren um der Konversation beizutreten. Letzte Änderung: von daywalker.

THEMA:

cx.System.ExcelDaten() 26 Aug 2023 18:04 #13

cx.System.ExcelDaten() 27 Apr 2024 21:28 #14

cx.System.ExcelDaten() 28 Apr 2024 08:29 #15

Anhänge:

cx.System.ExcelDaten() 28 Apr 2024 11:13 #16

cx.System.ExcelDaten() 28 Apr 2024 12:32 #17

cx.System.ExcelDaten() 28 Apr 2024 12:36 #18

Community