paar Excel Fragen

[AUGE_OHR]

hi,

wie macht man, unter Excel, ein Sheet "grün / weiss" ?

man kann doch "Verbindungen" zwischen 2 Sheet machen, kann man die so "übereinander"
legen das man den Inhalt beider Sheets "sehen" könnte (transparent oder so) ?

wie kann ich numerisch 0 in der Anzeige von Excel gegen "" tauschen ?

in einer Excel "Cell" kann ich ja jeden VALTYPE() haben und sogar :Formula wie "=SUMME(...)"
wie kann man in solche :Formula eine Art "Colorblock" einfügen wie wir ihn in Browse benutzen
um Werte "einzufärben" ? (nachträglich über activeX dauert zu lange)

[Martin Altmann]

Moin Jimmy,
Frage 1 verstehe ich nicht.
Frage 2: Nein - müsstest ein drittes Blatt nehmen und dort mittels Formeln die Werte zusammentragen
Frage 3: Über ein Zahlenformat! Die Zahlenformate haben vier Bereiche, durch ";" getrennt: Positive_Zahlendarstellung;Negative_Zahlendarstellung;Nullwerte;Text Beispiel: #.##0,00 €;[Rot]-#.##0,00 €;""
Frage 4: Verstehe ich wieder nicht so wirklich. Über bedingte Formatierungen in Excel vielleicht? Schau mal unter "Format" -"Bedingte Formatierung..."

Viele Grüße,
Martin

[AUGE_OHR]

Frage 1 verstehe ich nicht.

1,3,5,7 weiss 2,4,6,8 grün, also das typische Aussehen eines alten Listen Ausdruck

Frage 2: Nein - müsstest ein drittes Blatt nehmen und dort mittels Formeln die Werte zusammentragen
Frage 3: Über ein Zahlenformat! Die Zahlenformate haben vier Bereiche, durch ";" getrennt: Positive_Zahlendarstellung;Negative_Zahlendarstellung;Nullwerte;Text Beispiel: #.##0,00 €;[Rot]-#.##0,00 €;""

aha, Ja DANKE

Frage 4: Verstehe ich wieder nicht so wirklich. Über bedingte Formatierungen in Excel vielleicht? Schau mal unter "Format" -"Bedingte Formatierung..."

ich denke die Antwort steckt in 3.) drin [Rot]

ich werde es mal ausprobieren, danke

[Martin Altmann]

Hall Jimmy,
ah - OK! Dann sollte 1 sich auch mit der bedingten Formatierung erledigen lassen!

Viele Grüße,
Martin

[georg]

Hallo, Jimmy -

für Deine alt-EDV-Listenfrage:

mach einen Durchlauf und benutze eine einfache Formatierung, indem Du den Hintergrund entsprechend färbst, bei gerader Zahl einfach grün setzen. Eine bedingte Formatierung bedarf m.E. eines höheren Aufwands, da Funktionen ausgeführt werden müssen, um die entsprechende Formatierung zu ermitteln.

Liebe Grüsse,

Georg

[Martin Altmann]

Hallo Georg,
bedingte Formatierung hat jedoch den Vorteil, dass es immer passt - auch wenn nachträglich eine Zeile eingefügt oder entfernt wird...

Viele Grüße,
Martin

[georg]

Martin,

da muss ich Dir recht geben.

Georg

[AUGE_OHR]

und die nächsten Fragen :

1.) wie kann ich einen Font, per activeX, für eine ganze Spalte (Columne) wählen/setzen ?
2.) ... mit Codepage ?
3.) und eine ganze Zeile (Row) ?

4.) mit :saveas("blabla") bekomme ich ein XLS ... ich hätte es gerne als HTML abgespeichert, wie macht man das mit activeX ? (jaja help file ...)

5.) nun habe ich auch paar Bilder als *.JPG ... kann man und wenn wie eine "Link" auf die Bilder setzten ?
6.) ... und wenn ich das ganze nun auf ein CD als INDEX.HTM ablege ... Laufwerk könnte ja D:,E:,F: usw sein ... also was mit ..\.\blabla.JPG oder wie ?

ich habe, nachdem das mit L&L nicht klappte, das ganze zunächst auf einem German OS() versucht.
Die Daten zu übergeben ist ja kein Problem, aber es war klar das die chinesischen Zeichen nicht
"so einfach" erscheinen würden. Ich habe als die Spalte (Columne) markiert und dann als Font
M$ ArialUNI gewählt ... aber da gibt es nirgendwo was mit Codepage in Excel ?

also das ganze dann auf einem chinesischem OS() und wie klar war kein Problem mit den Zeichen,
aber die Deutschen "Umlaute" ... und wieder das "Problem" keine Codepage in Excel ?

nun ging es mir ja primär um die chinesischen Zeichen und nach dem "manuellen" SaveAs HTML hab ich die nun.
wenn ich den Browser (IE,Firefox) starte werden die chinesischen Zeichen richtig angezeigt, aber die deutschen "Umlaute" ...

nun mal per Editor ein "Umlaut Test"

a.) auf German OS() mit OEM Editor "äöüÄÖÜ", ConvToAnsiCP("äöüÄÖÜ") , ConvToOemCP("äöüÄÖÜ")
und dann auf dem chinesischen OS() getestet -> Mist,Mist,Mist ...

b.) dito mit Notepad (ANSI), selbe Reihenfolge -> Mist, Mist, Mist

c.) nun also auf dem chinesischem OS(), Keyboard auf DE und in der CMD Box meinen ETP Editor mit OEM und "das" funktioniert !!!

d.) Gegenprobe mit chinesischem(!) Notepad also ANSI, aber wieder Keyboard DE -> Mist,Mist,OK ?!

Tja und wie bekomme ich nun meine "Umlaute" von der DBF (DBFNTX) auf einem chinesischem OS() in einer Excel Tabelle "richtig" angezeigt ?

[Koverhage]

Hi Jimmy,

1.) wie kann ich einen Font, per activeX, für eine ganze Spalte (Columne) wählen/setzen ?
2.) ... mit Codepage ?
3.) und eine ganze Zeile (Row) ?

Was jetzt ROW oder COL ?

Eigentlich so:

oExcel:Range("A1:AB1"):Font():Size := 10 //Schriftgrösse ändern
oExcel:Range("A1:AB1"):Font():Name := "Times" //Schrift festlegen
oExcel:Range("A1:AB1"):Font():Bold := .t.

Wobei die Codepage ja automatisch genommen werden sollte, wenn sie dann richtig eingestellt ist.

http://msdn.microsoft.com/en-us/library ... ormat.aspx


Fileformats:

xlAddIn Microsoft Office Excel Add-In.
xlCSV Comma separated value.
xlCSVMac Comma separated value.
xlCSVMSDOS Comma separated value.
xlCSVWindows Comma separated value.
xlCurrentPlatformText Specifies a type of text format
xlDBF2 Dbase 2 format.
xlDBF3 Dbase 3 format.
xlDBF4 Dbase 4 format.
xlDIF Data Interchange format.
xlExcel2 Excel version 2.0.
xlExcel2FarEast Excel version 2.0 far east.
xlExcel3 Excel version 3.0.
xlExcel4 Excel version 4.0.
xlExcel4Workbook Excel version 4.0. Workbook format.
xlExcel5 Excel version 5.0.
xlExcel7 Excel 95.
xlExcel9795 Excel version 95 and 97.
xlHtml Web page format.
xlIntlAddIn Microsoft Office Excel Add-In international format.
xlIntlMacro Deprecated format.
xlSYLK Symbolic link format.
xlTemplate Excel template format.
xlTextMac Specifies a type of text format.
xlTextMSDOS Specifies a type of text format.
xlTextPrinter Specifies a type of text format.
xlTextWindows Specifies a type of text format.
xlUnicodeText Specifies a type of text format.
xlWebArchive MHT format.
xlWJ2WD1 Deprecated format.
xlWJ3 Deprecated format.
xlWJ3FJ3 Deprecated format.
xlWK1 Lotus 1-2-3 format.
xlWK1ALL Lotus 1-2-3 format.
xlWK1FMT Lotus 1-2-3 format.
xlWK3 Lotus 1-2-3 format.
xlWK3FM3 Lotus 1-2-3 format.
xlWK4 Lotus 1-2-3 format.
xlWKS Lotus 1-2-3 format.
xlWorkbookNormal Excel workbook format.
xlWorks2FarEast Microsoft Works 2.0 format
xlWQ1 Quattro Pro format.
xlXMLSpreadsheet Excel Spreadsheet format.

[AUGE_OHR]

1.) wie kann ich einen Font, per activeX, für eine ganze Spalte (Columne) wählen/setzen ?
2.) ... mit Codepage ?
3.) und eine ganze Zeile (Row) ?

Was jetzt ROW oder COL ?

Eigentlich so:

oExcel:Range("A1:AB1"):Font():Size := 10 //Schriftgrösse ändern
oExcel:Range("A1:AB1"):Font():Name := "Times" //Schrift festlegen
oExcel:Range("A1:AB1"):Font():Bold := .t.

Wobei die Codepage ja automatisch genommen werden sollte, wenn sie dann richtig eingestellt ist.

ok danke.
die Codepage scheint vom OS() zu stammen d.h. auf einem Deutschen OS() kommt auch nur
die deutsche Codepage und ich komme (anscheint) nicht an die chinesische und umgekehrt

http://msdn.microsoft.com/en-us/library ... ormat.aspx
Fileformats:

Ja genau das suchte ich

Code: Alles auswählen

ActiveWorkbook.SaveAs _
    Filename:="C:\Reports\myfile.htm", _
    FileFormat:=xlHTML

Danke

[AUGE_OHR]

http://msdn.microsoft.com/en-us/library ... ormat.aspx

der Link brachte mich auf die Idee mal unter
http://msdn.microsoft.com/en-us/library ... erop.excel nachzusehen.

unter Font http://msdn.microsoft.com/en-us/library ... mbers.aspx
findet man die Member. Leider ist Codepage nicht dabei...

a.) Ich kann im CMD DOS "Fenster" mit DBU auf einem chinesischem OS() meine Umlaute "sehen".
b.) unter Xbase++ Hybrid geht es mit Browse()
c.) unter Xbase++ GUI geht es mit ArialUNI und Codepage für xbpSLE und XbpBrowse

das ist jeweils ohne zusätzliche ConvToAnsiCP() / ConvToOemCP() oder so

wenn ich aber nun die Daten an Excel (chinesisch) übergebe dann bekomme ich zwar die chinesischen
Schriftzeichen aber statt der deutschen Umlaute kommen "Lücken"

naja dachte ich mir, scheibe doch selbst eine Conv() Function für die Umlaute, wobei ich die
deutschen auf einem deutschem OS() und die chinesischem auf dem chinesischem OS()
geschrieben habe.

Code: Alles auswählen

FUNCTION DE2CN(cText)
LOCAL c1AE := "Ä"
LOCAL c1OE := "Ö"
LOCAL c1UE := "Ü"

LOCAL c2ae := "ä"
LOCAL c2oe := "ö"
LOCAL c2ue := "ü"

   IF "─" $ cText
      cText := STRTRAN(cText,"─",c1AE)
   ENDIF
   IF "Í" $ cText
      cText := STRTRAN(cText,"Í",c1OE)
   ENDIF
   IF "▄" $ cText
      cText := STRTRAN(cText,"▄",c1UE)
   ENDIF

   IF "õ" $ cText
      cText := STRTRAN(cText,"õ",c2AE)
   ENDIF
   IF "÷" $ cText
      cText := STRTRAN(cText,"÷",c2OE)
   ENDIF
   IF "³" $ cText
      cText := STRTRAN(cText,"³",c2UE)
   ENDIF

RETURN cText

FUNCTION CN2DE(cText)
LOCAL c1AE := "─"
LOCAL c1OE := "Í"
LOCAL c1UE := "▄"

LOCAL c2ae := "õ"
LOCAL c2oe := "÷"
LOCAL c2ue := "³"

   IF "Ä" $ cText
      cText := STRTRAN(cText,"Ä",c1AE)
   ENDIF
   IF "Ö" $ cText
      cText := STRTRAN(cText,"Ö",c1OE)
   ENDIF
   IF "Ü" $ cText
      cText := STRTRAN(cText,"Ü",c1UE)
   ENDIF

   IF "ä" $ cText
      cText := STRTRAN(cText,"ä",c2AE)
   ENDIF
   IF "ö" $ cText
      cText := STRTRAN(cText,"ö",c2OE)
   ENDIF
   IF "ü" $ cText
      cText := STRTRAN(cText,"ü",c2UE)
   ENDIF

RETURN cText

auch wenn ich die Umlaute auf dem entsprechenden OS() "sehen" kann (im Source), bekomme ich dennoch die "Lücken" ...

muss ich wirklich alles nach ä->ae umwandeln um es dann auf "dem" OS() wie in ae->ä zu bringen ? ... oder hab ich was "vergessen" ... ?

[Koverhage]

Jimmy,

kann sein das ich jetzt falsch denke, aber hat Unicode nicht 2byte Character. Also müsste Dein Convert auf jeden Fall 2 Bytes
übergeben.

[AUGE_OHR]

kann sein das ich jetzt falsch denke, aber hat Unicode nicht 2byte Character. Also müsste Dein Convert auf jeden Fall 2 Bytes übergeben.

ja ich weiss was du meinst.
ich hatte das für "local" OEM gedacht ... aber auch das geht nicht unter GUI.

mit dem CHR(i) nach Excel habe ich mir jetzt "Zeichen Tabellen" gebaut um zu sehen was bei
Excel überhaupt "ankommt".
ich bin auch bei den :Font() am Werke, wobei meisten > 128 nichts mehr kommt auf dem chinesischen OS()

das es z.Z. "nur" noch um die deutschen Umlaute geht frage ich mich ob es ein Macro für Excel
gibt der mir "AE","OE","UE" usw "austauschen" könnte ?

[Koverhage]

Jimmy,

ein Macro würde ich nicht machen, ist m.E. viel zu langsam (innerhalb der Xbase++ Anwendung)

Dein Ansatz mit STRTRAN ist (denke ich) der bessere Weg.

[AUGE_OHR]

hi,

ist eine Excel HTM mit jedem Browser "lesbar" oder muss man irgendwas von M$ dafür haben ?
könnt ihr bitte mal in die "Preisliste" sehen ob ihr die chinesischen Zeichen "sehen" könnt ?

danke

JIMM0935.ZIP

(61.92 KiB) 299-mal heruntergeladen

[Koverhage]

Jimmy,

mit Firefox kein Problem, sieht alles so aus wie es sollte.
Die meisten Browser sollten bzw. können das.

[AUGE_OHR]

ein Macro würde ich nicht machen, ist m.E. viel zu langsam (innerhalb der Xbase++ Anwendung) Dein Ansatz mit STRTRAN ist (denke ich) der bessere Weg.

ich meine damit das STRTRAN() ja eben nicht funktioniert wenn nichts in dem Zeichensatz vorhanden.

ich kann aber, mit DE Keyboard, in das Excel Sheet tippen und "könnte" die Umlaute "per Hand"
korrigieren und das kommt auch wohl auf den HTML raus. Deshalb die Frage nach Macro.

[Martin Altmann]

Hm,
unter IE und unter Opera bekomme ich was angezeigt.
Ein (oder vielleicht auch verschiedene - k.A.) Zeichen gibt es jedoch nicht, da wird was anderes angezeigt.

Viele Grüße,
Martin

[AUGE_OHR]

mit Firefox kein Problem, sieht alles so aus wie es sollte.
Die meisten Browser sollten bzw. können das.

ok, danke

ich wollt bloss vermeiden das es bi mir klappt, aber nicht bei anderen ... wäre peinlich gewesen ...

[AUGE_OHR]

unter IE und unter Opera bekomme ich was angezeigt.
Ein (oder vielleicht auch verschiedene - k.A.) Zeichen gibt es jedoch nicht, da wird was anderes angezeigt.

hm ... also doch weiter probieren ...

[Martin Altmann]

Moin,
anbei mal die Screens:
Opera:

Beispiel Opera

Screen2.JPG (19.56 KiB) 10941 mal betrachtet

IE:

Beispiel IE

Screen.JPG (18.04 KiB) 10942 mal betrachtet

An anderen Stellen (nicht im Screenshot sichtbar) tauchen solche Platzhalter auch auf.

Viele Grüße,
Martin

[AUGE_OHR]

hi,

oh, je das kann ja noch heiter werden.

China_Browser.JPG (11.2 KiB) 10939 mal betrachtet

links ist Excel und recht Firefox v3.5.2 (latest)

so und was nun ...

[Martin Altmann]

Hm - ich sehe nur in der zweiten Zeile im letzten Zeichen ein Unterschied - oder?
Bestimmt das gleiche Problem, wie mit Umlauten: SetToEOM() / SetToANSI()
Musst ggf. bei der HTML-Seite die codepage/Zeichensatz mit im Header angeben!

Viele Grüße,
Martin

[AUGE_OHR]

Hm - ich sehe nur in der zweiten Zeile im letzten Zeichen ein Unterschied - oder?

Ja, ich hab nur das Beispiel genommen für den Vergleich

Bestimmt das gleiche Problem, wie mit Umlauten: SetToEOM() / SetToANSI()
Musst ggf. bei der HTML-Seite die codepage/Zeichensatz mit im Header angeben!

em ...äh ... ich clicke bei Excel (vermutlich weil chinesisch) auf Web-Export, die Dialogbox geht auf
und ich tippe was ein und clicke dann ok. "mehr" HTML kann ich nicht ...

im Prinzip will ich es ja mit :SaveAs( File, FileFormat ) als HTML abspeichern nur ich habe die XLS
jetzt noch "zur Kontrolle". Ich hatte nicht erwartet das der Export "manchmal" versagt ... mal
sehen woran das liegen könnte.

***

wie sieht es mit "externen" Tools aus die XLS nach HTML konvertieren können, hat da jemand einen Tip ?

aus L&L kann ich ja ein PDF drucken. kennt jemand ein Tool womit man PDF nach HTML Konvertieren könnte ?

***

[Koverhage]

Ich glaube da must Du auf kostenplichtige Tools zurückgreifen.

http://smartpdfconverter.de/?gclid=CNXU ... zAodLl_TJA