Moderator: Moderatoren
Schalte unten in den Optionen [ ]Bereich enhält Spaltenbeschriftungen ab.MIr wird einfach der Inhalt von A1 als Feldname angezeigt (Spaltentitel Description), egal was ich vorher markiert habe.
für die Ausgabe musst du nur die Startadresse angeben: Tabelle2.A1..... hatte aber auch Tabelle2.A1:A6000 geschrieben
Kann ich jetzt so nicht beantworten, kannst du dich hier registrieren um eine Beispieldatei anhängen zu dürfen ?Was ist mit den n Umbrüchen?
Die Farben kommen definitiv erst hinter einem Absatz und einer Leerzeile (alles jeweils im Text innerhalb einer Tabellenzelle).
Selbstverständlich, aber wir benötigen ja nur representative Daten aus wenigen Zellen.Wenn ich eine Mustertabelle bereitstellen soll, muss ich erstmal anfangen herumzuändern, ich will ja keine Namen und persönlichen Daten veröffentlichen
Ich habe es nochmal an der Langversion der Tabelle probiert und es gibt Fortschritte: ich habe Daten!Karolus hat geschrieben:In deiner Beispielsdatei funktioniert genau der Reguläre Ausdruck aus meinen letzten Antworten zum Filtern und Suchen & Ersetzen !
in "Woanders" alles entfernen was "nicht Farbe ist" per → Bearbeiten → Suchen und ersetzen:
Suche nach ^.*(schwarz|weiß|grün|hell grün).*$
ersetzen durch $1
und ebenfalls darauf achten daß die Option [x]regulärer Ausdruck gesetzt ist.
Einfach die Filterei weglassen, nur zweiten Teil der Anweisung machen, nachdem vorher Umbrüche \n entfernt wurden. Und schon bleiben nur die Farben stehen. Und in den wenigen Zellen, wo noch mehr drin steht gab es keine Farben und ich weiß, dass ich da was manuell nachbearbeiten muss.Code: Alles auswählen
=MTRANS(FINDALL(MULTIKETTE(A1:A10000);"(schwarz|weiß|(?:hell )?grün)"))Dazu müsste ich eine Anleitung ohne jede Lücken haben, da ich mit Makros völlig ungeübt binKarolus hat geschrieben:Kannst du dir die Umgebung so einrichten wie ich hier beschreibe?
Ja, anscheinend hat der Basicteil geklappt - weiter mit Python:Stephanie hat geschrieben: Darin steht
REM ***** BASIC *****
Sub Main
End Sub
Sub neu
End Sub
Sub Macro1
End Sub
Ich war nicht sicher was ich jetzt damit machen sollte - alles ersetzen durch den Code 1?
viewtopic.php?f=2&t=43087&p=158588#p158588
In diesem Haufen findest den Ordner 'Scripts' in dem du folgendes zip-archiv entpackst:Stephanie hat geschrieben:OK, ich habe meinen Arbeitsplatz aufgerufen und gefunden
C:\Dokumente und Einstellungen\Stephanie\Anwendungsdaten\OpenOffice.org\3\user
und dann noch einen Haufen Ordner.
Code: Alles auswählen
=MTRANS(FINDALL(MULTIKETTE(A1:A10000);"(schwarz|weiß|(?:hell )?grün)"))Gut, ich habe jetzt die Datei heruntergeladen und gespeichert unterKarolus hat geschrieben:In diesem Haufen findest den Ordner 'Scripts' in dem du folgendes zip-archiv entpackst:Stephanie hat geschrieben:OK, ich habe meinen Arbeitsplatz aufgerufen und gefunden
C:\Dokumente und Einstellungen\Stephanie\Anwendungsdaten\OpenOffice.org\3\user
und dann noch einen Haufen Ordner.
( Falls du schon einen Unterordner 'python' angelegt hast, entferne ihn vor dem entpacken.)
Ja.Karolus hat geschrieben: Falls das klappt, ist dort jetzt ein Unterordner 'python' der wiederrum eine Datei namens 'sheetFunctions.py' enthält.
Haken bei Matrix, Formel eingegeben beim Funktionsasstistenten mit Strg c Strg vKarolus hat geschrieben: Jetzt benötigst du nur nach die Formel:wie du bereits herausgefunden hast als [x]MatrixformelCode: Alles auswählen
=MTRANS(FINDALL(MULTIKETTE(A1:A10000);"(schwarz|weiß|(?:hell )?grün)"))
Code: Alles auswählen
# -*- coding: utf-8 -*-
from __future__ import division
import sys
import uno
import re
from itertools.chain import from_iterable as flat
from bisect import bisect_left as left
from math import *
zahlen = [ float , int ]
wrapper = uno.createUnoStruct('com.sun.star.script.ArrayWrapper')
wrapper.IsZeroIndex = False
def interpol( x_range, x , y_range ):
""" Calcfunktion zur Rückgabe eines interpolierten y-werts aus den jeweiligen Nachbarwerten
im y-Bereich, ermittelt aus den Verhältnissen eines x-wertes zu seinen Nachbarwerten
siehe http://www.ooo-portal.de/index.php?module=pnForum&func=viewtopic&topic=6055"""
x_range = list( flat( x_range ) )
y_range = list( flat( y_range ) )
if x < min( x_range ) or x > max( x_range ):
return "##oofRangeErr"
if x in x_range:
return y_range[ x_range.index(x) ]
else:
ri = left( x_range, x )
li = ri-1
ratio = ( x - x_range[li] ) / ( x_range[ri] - x_range[li] )
return y_range[li] + ratio * ( y_range[ri] - y_range[li] )
def sjoin( datarange , joinstring = "" ):
""" Calcfunktion zum verketten ganzer Zellbereiche,
mit Bereichsadressangabe und mit der optionalen
Möglichkeit eines Verbindungszeichens oder -Texts"""
if isinstance (datarange, tuple): # cellranges always *nested* tuples
return joinstring.join("%s" % elem for elem in flat(datarange) if elem)
else :
return datarange # a single cellvalue
def quadriere(data):
""" Demo-funktion zum Quadrieren einzelner Zellen
oder eines Zellbereiches als Arrayfunktion
To be called through a StarBasic wrapper.
->Input_arg: cellrange or single cell
--> Out: Range with same Dimension as Input."""
if isinstance(data,tuple): ## data is nestet tuple
rows = [] ## build a resultrange with inputdimension
for row in data:
rows.append(tuple( [ val**2 if type(val) in zahlen
else None for val in row]))
## we need the wrapper to make the 'right' datastructure
## for poor old Basic
wrapper.Array = tuple(rows)
return wrapper
if type(data) in zahlen: ## here we catch the single numeric Inputs
return data **2
else:
return None
def findall( stext , regex , imax=0):
stext = "%s" %(stext)
liste = re.findall( regex, stext )
liste.extend([None]* max(0,(imax - len(liste))))
wrapper.Array = tuple(liste)
return wrapper
def auswerten( args ):
""" simple demo-function
to evaluate raw-string-expressions like 'x**2+4*y-z' in valid Pythonsyntax,
'args' must be an cellrange of 4 with the contents :
Expression, x_value, y_value, z_value.
Values inside the expression must have a Decimal-Point not Decimal-komma ."""
try:
func, x, y, z = ( flat (args) ) # flat ? -> take a look into the 'import-lines'
try:
return eval( func )
except:
return '#args_Error'
except :
return '#Dim_Error'
Das liest sich so als ob bei deinem OOo eine Datei fehlt ? glaub ich aber nicht.Message: loading component library failed file C Programme Open Office org program basis program phytonloader uno dll