OpenOffice.info

@cwolan: Danke für die kompetente Hilfe. Als Nicht-Informatiker tu ich mich bissl schwer mit den 700 Seiten Pitonyak.

@Karolus: Danke für deine Antwort. Funktioniert nicht, egal welche Schreibweise ich versuche. Hast du das ausprobiert? Beim schrittweisen debuggen geht alles, ausser dass die Zelle freigegeben wird.

Hallo Wissende,
um per Makro den Zellschutz für eine Zelle aufzuheben und später wieder zu schützen habe ich folgendes probiert:

Sub UnprotectCell 'geht nicht
Doc=ThisComponent
Sheet=Doc.Sheets(1)
'Sheet.Unprotect("")
Cell=Sheet.getCellByPosition(4,2)
Prot=Cell.CellProtection
Prot.IsLocked="false ...

@mikeleb: Danke für deine konstruktiven Gedanken. Im Prinzip bin ich dabei genau das umzusetzen. 1) klar 2)Anhängen wird so einfach nicht gehen da die hinzugekommenen Daten zwischendrin verteilt sind. Die Leerzeichen müssen aus dem xlsx stammen. Würde auch erklären warum Ctrl + down nicht ...

Danke, dein Code ist schön schlank und geht gut. Das mit den Arrays hatte ich zwischenzeitlich auch hingekriegt, bringt aber für die weitere Verwendung eher nix. Dein Hilfsangebot mir beim Gesamtkonstukt zu helfen nehme ich gerne an. Allerdings erst wenn die erste Excel Update Datei kommt. Jetzt ...

Danke für den Code. Ich habe viel gelernt aber so weit bin ich noch nicht. Versteh nur Bhf und wenn ich versuche das abgeschriebene auszuführen kommt "unerwartetes Symol". Dachte a, b seien die Variablen??? Erklär bitte was du da machst und wie ich damit weitermachen kann.

ScrSplit.PNG

Zu deiner ...

Hallo,
aus einer Zelle die aus zwei Strings besteht benötige ich beide Teile einzeln:

sub Main
BigString = "Kunde Fa / 85432 Ort"
Inhalt=ArrayOutOfString(BigString," / ")
For i = LBound(Inhalt()) to UBound(Inhalt())
Print Inhalt(i)
' Part&Chr(i)=Inhalt(i)
Next
end Sub

Das funktioniert aber ich ...

@mikeleb: Danke für den Hinweis.
@Karolus: Deine Funktion liefert fälschlich A zurück.

Hier mein bisheriges Ergebnis:
Die von mir pepostete Version funktioniert korrekt wenn man das If auskommentiert. Weiß jemand was es mit "bWithSheet" auf sich haben könnte?
Ich glaube nicht dass Pitonyak/Lenhardt ...

Hallo zusammen, das Problem Funktionsaufruf ist zwar nicht gelöst aber etwas entschäft. Für die cellNames zumindest bis AZ habe ich ein Workarond gebastel. Hätte ich auch mal früher draufkommen können:
Dim oColString as String
if oCol < 26 Then
oColValue = oCol + 65
oColString = chr (oColValue ...

Hallo Karolus, dein Ansatz ist gut gemeint hilft mir aber nicht weiter. Mit ein paar Mausclicks eine Tabelle schön zu machen kann ich schon, ist aber nicht Gegenstand meiner Aufgabe.
Ich will nicht rumlabern aber hier ein paar Infos: Meine erste TBC war Quattro Pro unter Win 3.11. Das war 1993. Habe ...

@mikeleb: So gehts bei mir auch. Nur nicht in meinem Makro. Der Aufruf steht in der drittletzten Zeile von meinem peposteten Codegebastel.
@Karolus: Wenn du dir das antun willst...
Das gelieferte xlsx wird ins die AOOCalc Tabelle kopiert (Soll auch später automatisiert werden.)
Wenn CheckDS ...

Danke für eure Antworten,
@mikeleb: gerade das funktioniert bei mir nicht. Die Funktion befindet sich in Meine Makros\Standard\Module_Funktion und sollte laut Hilfe allen Makros zugänglich sein, zumindest auf diesem Rechner. Aber beim Funktionsaufruf kommt der o.g. Fehler.
@Karolus: Das Makro ...

Vielen Dank für den Code. Macht genau was ich brauche, allerdings nur in vitro. Vermute dass ich mangels Kompetenz nicht den Bezug auf meine Tabelle hinkrieg. Funktion ist eingebaut. Beim Funktionsaufruf kommt der Fehler wie gehabt.

Hallo zusammen,
um eine größere importierte Tabelle in der eigenen Struktur konsistent benutzbar zu machen werden etliche Anpassungen (Doppel entfernen, Leerzeilen aus- und einbauen, etc.) Dies ist teils in Basic, teils mit Uno gemacht und funktioniert.
Dabei entstehen Arrays in die Rechenfunktionen ...