DrPagel-Biografie...
.... schreibe ich, wenn ich älter bin.
Wem das zu lange dauert, kann sich inzwischen schon die Zeit mit dem Besuch meiner anderen Homepageseiten vertreiben:- Solange (seit 18.Oktober 2010) wegen des fehlenden alt-Atribut im img-Element des "speichern"-Buttons unter dem Browser Firefox für drpagel.log.ag keine
Beiträge publiziert werden können, können meine Beiträge ab dem 18.Oktober 2010 in meinem Tagebucharchiv durch Klick auf diesen Link weiterverfolgt werden. Die Abstrakts der Beiträge werden gegebenenfalls später hier nachgetragen.
- Dr.Pagel-WebseitenZentrale www.drpagel.de mit automat. Weiterleitung auf meine auch separat aufrufbare (schon etwas verstaubte) Seite:
- Dr.Pagel Webcam, Wetter und Wissen. Dort befindet sich auch das Impressum, die Kontaktadresse und ein Link zu meinem
- Foto. Weitere angefangene Projekte sind meine
-
Umweltseite mit meinem schönen Urlaubsfoto vom Oktober 2004 aus der versmogten lettischen Hauptstadt Riga an der Daugava, die ich bereits am 23.1.2005 bei Suchnase.de angemeldet hatte und der Domain-Inhaber, ohne mich zu informieren mit neuem Inhalt bespielt hat, dann meine - Seiten zum Thema Bildung, Gesundheit, Urlaub, Wellness (begonnen seit dem 10.9.2004, geplant seit Pfingsten 2004; freenet stellt diese gratis-Webseiten zum 31.3.2010 ein).
- Weblog-Archivseiten tb-archiv.drpagel.de
- meine
Vitamin-C-Forschungsseite mit der Option zum Kennenlernen von PHP (noch nicht getestet!; seit Dezember 2005) bei Lycos.de unwiderbringlich gelöscht! und ich habe jetzt weder Zeit noch Lust, diesen Datenverlust zu beheben! (Gewinn-Warnung: das wird wohl vor Winter 2011/2012 nichts mehr!) - meine Planung zur HP bei Lycos.fr (seit Dezember 2005)
- mein Multilingual-Projekt: Text in 31 Sprachen (languages)
- meine Ausspracheübung (z.Zt. in 24 Sprachen)
Jedoch hat mich der Datencrash im Juli 2005 soweit zurückgeworfen, dass ich danach keine meiner Webseiten mehr mit NOF aktualisiert und immer noch nicht alle defekten Dateien auf Wiederherstellung geprüft habe. Bei der Festplattenanalyse bei Vobis wurde in 2005 kein Virus gefunden, jedoch ein Jahr später hat mir die aktualisierte Antiviren-Software gezeigt, dass auch auf gewerbliche Virenscans leider kein Verlass ist.
Hier meine unvollständige Lieblings-Webseiten-Liste (z.B.: backlinks für PageRank):Ehemalige Weblogs sind in meiner Gesamtliste aufgeführt.
Zur Kenntnisnahme: Alle mit (dp) gekennzeichneten lyrischen Ergüsse sind durch Copyright © by Dr.Detlef Pagel urheberrechtlich geschützt. Bis auf Widerruf ist die auszugsweise Wiedergabe mit Quellenangabe nur zum privaten nichtkommerziellen Gebrauch gestattet.
Hinweise zu Weblog-Code-Fehlern>>Forum zu Weblog (siehe auch rechte Leiste); Homepage(freenet-Administrator)NOTFALL-HINWEISE (siehe auch mein Eintrag vom 9.6.2005)Hinweise zu Internet-Störungen allgemein >>
Gebrauchsanleitung: es wird (zur Zeit) auf dieser Site immer nur der Weblog-Inhalt der letzten 5 Beiträge angezeigt. Zum Suchen anderer Einträge können die Inhaltsverzeichnisse (webtropia-Weiterleitung zum Loomes-Server, Loomes-Server) oder alternativ zum Freenet-Kalendariums am rechten Rand dieser Site ein eigener Kalender 2004, 2005 durch Anklicken der Wunschtage oder ein internes Suche-Formular: oder die Index-Seite für mein Tagebuch-ZentralArchiv For translation of my websites click here please  (zhōng=#20013)Wetter in Wetzlar
benutzt werden.
Der erste Tagebucheintrag fand am 16.Mai 2004 statt, also vor gut vier Jahren. Seitdem wurden zu verschiedenen Themen verfasst. Als kleines Dankeschön für das zunehmende Leserinteresse hier seit Mai2005 meine Bilder des Monats:
System&Browser&JavaScript-Abfrage, Browser&Player-Abfrage
Seit Mo., den 04.08.2008, 01 Uhr(MESZ; a.m.) (hierzu Statistik):
 mehr...
Vorübergehend mussten zu Testzwecken fast alle Scripte im Tagebuch-Vorspann entfernt werden! Die meisten Skripte sind noch nicht reinstalliert worden. Daher dürfte jetzt fast keine eigene Javascript-Anwendung funktionieren.
Es ist noch viel zu testen. Daher werden voraussichtlich vor heute abend (16.6.2008) keine weiteren Skripte hier in den Weblog-Vorspann zurückinstalliert werden können. Ich bitte um Verständnis.
 |
 |
Verfasst am 29.02.2008 23:54:16 Uhr
Ach du dickes Ei
Hier ist mein bisher teuerstes Ei: es hat letzte Woche auf dem Wochenmarkt 1,5€uro/Stück gekostet. Wahnsinn! Vielleicht eine Folge der Vogelgrippe? Aber es ist billiger als ein Händy und zum Größenvergleich habe ich ein paar Euro-Münzen dabeigelegt.
![[Tiny-Foto vom Gaenseei]](http://home.arcor.de/detlefs-fotos/Blog/GIF/dickesEi.gif)
Größenvergleich: Gänseei et al. (keine Fotomontage!)
Der Link zum größeren Foto (bei fc= fotocommunity) wird später angelegt.
Die freenet-Uhr geht immer noch 6min zu spät! (dp) (0,25h)
Unfertig!
Verfasst am 29.02.2008 16:02:32 Uhr
Beispiel einer Übertragung eines Excel/VBA-Codes nach Staroffice/StarBasic Teil1
Nach langer Recherche ergeben sich erste Erfolge.
Es liegt folgender VBA-Code (aus dem Makro "Sub pH_Copy_pKas()" zum Datenblatt "pH_calc" zum berühmten Freewareprogramm "CurTiPot" von Prof. Gutz, SaoPaulo) vor:
Range("AA3:AG10").Select
Selection.Copy
Range("K3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub
Wenn man sich das Ergebnis einer VBA2OO-Konverterierung von "www.business-spreadsheets.com" anschaut, kommt ein ziemlich fraktales babylonisches Gestammel dabei heraus ("Business Spreadsheets gives no warranty of any kind, express or implied, with regard to the accuracy, completeness or the outcomes of using any of the conversion results"):
Dim oSheet as Object
oSheet = ThisComponent.CurrentController.ThisComponent.CurrentController.ActiveSheet
ThisComponent.CurrentController.select(oSheet.getCellDim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.getCellRangeByName($1)ByName(("AA3:AG10")))
Selection.Copy
Dim oSheet as Object
oSheet = ThisComponent.CurrentController.ThisComponent.CurrentController.ActiveSheet
ThisComponent.CurrentController.select(oSheet.getCellDim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.getCellRangeByName($1)ByName(("K3")))
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Dim oSheet as Object
oSheet = ThisComponent.CurrentController.ThisComponent.CurrentController.ActiveSheet
ThisComponent.CurrentController.select(oSheet.getCellDim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.getCellRangeByName($1)ByName(("A1")))
End Sub
Dieser Code hilft eigentlich nur, für die Internet-Suchmaschinen Suchbegriffe zur Verfügung zu stellen, um Literaturen zu finden, die einem weiterhelfen können / sollen (siehe Linksammler Beitrag v.26.2.2008). Hieraus eine sortierte Begriffesammlung:
.ActiveSheet
| .Copy
| .CurrentController
| .getCell()
| .getCellRangeByName()
| .PasteSpecial
| .select()
| as Object
| ByName()
| Dim
| End Sub
| False
| Operation
| Operation:=xlNone
| oSheet
| Paste
| Paste:=xlPasteValues
| Selection
| Sheet
| SkipBlanks
| SkipBlanks :=False
| ThisComponent
| Transpose
| Transpose:=False
| xlNone
| xlPasteValues
|
Noch ist nicht ganz geklärt, was die Programm-Anweisung "Liste von Eigenschaften oder Methoden oder Parameter oder Variablen" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False so alles bewirken soll (siehe neuer Beitrag vom 01.03.2008 (fehlt noch!)). Wenn man sich auf den ersten Begriff Selection.PasteSpecial beschränkt, würde man das VBA-Makro wie folgt interpretieren:
| VBA | What happens? Was passiert?
|
|---|
| Range("AA3:AG10").Select | Ein virtueller unsichtbarer Cursor geht auf dem aktuellen Datenblatt (namens "pH_calc", entsprechend dem 2.Blatt von CurTiPot) in die Tabellenzelle mit der Nummer "AA3" (bei Starbasic "$AA$3"), dies ist die 27.Spalte, 3.Zeile. Dort wird der Tabellenzellbereich von "AA3" bis "AG10" für nachfolgende Aktionen ausgewählt.
| | Selection.Copy | Diese nachfolgende Aktion ist, den ausgewählte Bereich inhaltlich in einen Zwischenspeicher zwecks Weiterverabeitung zu kopieren.
| | Range("K3").Select | Der virtuelle unsichtbare Cursor geht nun auf dem aktuellen Datenblatt zur Zelle K3 (= Startzelle) und wählt sie für nachfolgende Aktionen aus.
| | Selection.PasteSpecial | Diese nachfolgende Aktion ist es, den Zwischenspeicher-Inhalt ab der Startzelle (= hier "K3") hineinzukopieren.
| | Range("A1").Select | Der virtuelle unsichtbare Cursor geht nun auf dem aktuellen Datenblatt zur Zelle A1 und wählt sie für nachfolgende Aktionen aus.
|
Nun habe ich gesehen, dass auf dem gleichen aktuellen Datenblatt ein freier Bereich ab Zelle AA13 bis Zelle AG20 existiert. Falls der Starbasic Makrocode fehlerfrei ist, kann man zu Lern- und Testzwecken den obigen Inhalt der Zellen, - anstatt von K3 bis Q10 -, hierhinein zu Testzecken kopieren:
Sub Copy_Cellrange
Dim oSheet, oCell as Object
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress
rem
rem pH_calc ist das 2.Blatt, daher:
rem CellRangeAddress.Sheet = 1
rem CellAddress.Sheet = 1
rem "$AA" ist die 27.Spalte, daher:
rem CellRangeAddress.StartColumn = 26
rem CellAddress.Column = 26
rem wäre "$K" als Ergebnisspalte der Datentransaktion gewünscht, müsste ...
rem CellAddress.Column = 10
rem ... lauten, weil es die elfte Spalte darstellt.
rem
rem "$3" ist die 3.Zeile, daher: CellRangeAddress.StartRow = 2
rem "$AG" ist die 33.Spalte, daher: CellRangeAddress.StartColumn = 32
rem "$10" ist die 10.Zeile, daher: CellRangeAddress.StartRow = 9
rem "$13" wäre die 13.Zeile, daher: CellAddress.Row = 12
CellRangeAddress.Sheet = 1
CellRangeAddress.StartColumn = 26
CellRangeAddress.StartRow = 2
CellRangeAddress.EndColumn = 32
CellRangeAddress.EndRow = 9
rem
CellAddress.Sheet = 1
CellAddress.Column = 26
CellAddress.Row = 12
rem
oSheet = ThisComponent.CurrentController.ActiveSheet
oCell = oSheet.getCellRangeByName("$AA$3:$AG$10")
ThisComponent.CurrentController.select(oCell)
oSheet.copyRange(CellAddress, CellRangeAddress)
End Sub
Hierbei fällt auf, dass bei Staroffice nicht nur die reinen Zahlwerte, sondern der gesamte Zellinhalt samt Texten, Zahlen und ihren Funktionen, sowie Zell-Formatierungen (Rahmen, Zellhintergrundfarbe, Schriftfarbe usw.) kopiert werden.
Da im Bereich von K3 bis Q10 aber nur Buchstaben oder Zahlen stehen, ist zu vermuten, dass nur die reinen Zahlwerte ohne ihren funktionalen Hintergrund kopiert werden sollen. Hierzu müsste man eigentlich mal einem CurTiPot-Anwender mit Excel/VBA über die Schulter schauen, um bestätigt zu bekommen, dass die Vermutung stimmt.
Malzeit! Jetzt bekommt man wieder Appetit auf mehr! (dp) (5h)
Fortsetzung
Adminbereich
| Diese Seite bookmarken
| Weitersagen |
|
|
| < | Januar 2008 | > | | So | Mo | Di | Mi | Do | Fr | Sa |
|
![[favicon]](http://tb-archiv.drpagel.de/pic/drpagel_favicon_ico_16.jpg)
drpagel.log.ag![[drpagel-favicon]](http://freenet-homepage.de/drpagel/Weblog/drpagel_favicon_ico_16.jpg)
![[jpgBild: Löwenzahnblüte vom 18.5.2005 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/drpagel/Weblog/JPG/Lewnzan1.jpg)
![[jpgBild: Gelbe Irisblüte (in Krofdorf) am 02.5.2005 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/drpagel/Weblog/JPG/Irorange.jpg)
![[jpgBild: Rosenblüte vom 2.7.2005 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/drpagel/Weblog/JPG/Rosemy_g.jpg)
![[jpgBild: Immergrünblüte vom _.12.2006 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/detlefs-fotos/Blog/JPG/IMRGRUEN.JPG)
![[gifBild: Gelbblühender Winterjasmin am 03.11.2007 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/detlefs-fotos/Blog/GIF/winterjasmin_gelb.gif)
![[jpgBild: Blühender Märzenbecher am 17.02.2008 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/detlefs-fotos/Blog/JPG/Maerzbecher.jpg)
![[gifBild: Pflaumenblüte vom 01.04.2008 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/detlefs-fotos/Blog/GIF/Pflaumenbluete_Fuerstenlager20080401.gif)
![[gifBild: Alantblüte vom 14.07.2008 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/detlefs-fotos/Blog/GIF/Alant01.gif)
![[gifBild: Knoblauchlilie vom 06.09.2008 © by Dr.Detlef Pagel, Wetzlar]](http://home.arcor.de/detlefs-fotos/Blog/GIF/Knobigras.gif)
