OpenOffice.info

Hallo,

bastel jetzt einige Tage schon an diesem Problem und komm leider nicht weiter :(

Sachverhalt:

Wenn in einer Zelle zwischen C6 und AG6 (bzw. C12 - AG12 und C18 - AG18) ein "U" eingegeben wird, soll der ein bestimmter Bereich eingefärbt werden.
Beispiel: Eingabe U in D6 --> eingefärbter ...

*andenkopflang*

daran hab ich echt nicht mehr gedacht, sorry, hatte mich schon gewundert warum auch nichts ausgegeben wird mit print ...

danke und nochmals sorry

Dim oZielzelle As Object

oDoc = thisComponent
oZielzelle = oDoc.sheets(0).getCellRangeByName("E6") 'Dein Bereich ist nicht größer!
oZielzelle.string = sName 'für Text
'oZielzelle.value = 'Verwendung bei Zahlenwerten
'oZielzelle.formula = 'um Formeln als solche zu definieren




@Karolus
Ich ...

Hallo,

ich schreibe es zu diesem Beitrag hinzu, da ich den attach-Teil von hier übernommen habe.

Es klappt wunderbar die gesamte Calc Mappe damit zu versenden, jedoch schaffe ich es nicht, dass er mir nur ein Sheet (das über den Index von dem Benutzer ausgewählt wird) zu versenden.

Mein ...

Nun weiss ich ja nicht, welche Gesamtapplikation du endgültig vorhast, aber wäre nicht möglicherweise deine ganze Aktion direkt mit Formularen etc zu lösen? Ehrlich, ich sehe keinen Sinn im Aufwand, eine Input-Box aufzurufen, um dann den dort eingetragenen Wert 1:1 in eine Zelle zu kopieren - da ...

Hallo,

vielen Dank für den ausführlichen Code, es ist genau so wie ich es wollte und hat mir somit sehr geholfen.

Des mit einer Zelle passt schon, hatte nur ein Beispiel aus einem Buch genommen, da ich ja schon verschiedene Methoden ausprobiert hatte.

Ich bräuchte nocheinmal einen ...

Hallo,

ich will die Eingabe von einer Inputbox in eine bestimmte Zelle in Calc reinschreiben.

Der Name bzw. der Inhalt meiner Variable sName soll in das erste Sheet in die Zelle E6 geschrieben werden, ich scheiter aber leider an der richtigen Methode. Leider ist setContent falsch.

Mein bisheriger ...

Bei mir funktioniert endlich auch alles und zwar auch so wie es sein sollte.



Sub UrlaubKrank()

Dim x As Integer
Dim oZelle as Object
dim oSheet as object
oSheet = thisComponent.getCurrentController.getActivesheet()
For x = 3 To 34
oZelle = oSheet.getCellByPosition(6, x)

If (UCase ...

der Punkt war bei mir sofort gelöscht, ganz blöd bin ich ja auch nicht

aber an dem Punkt liegt es auch nicht, dass er nicht in die if schleife geht.

also wenn man es debuggt, wird ersichtlich dass es nicht funktioniert.

Danke für die Antwort



Allerdings: Offensichtlich hast du gar keine Comboboxen - sondern wohl eher Gültigkeiten für eine Zelle als Auswahlliste - dein VBA Makro jedenfalls liest ja auch nur die Zellwerte aus - und keine Combo-Boxen.




ok, sorry mein Fehler, ist wirklich nur nee Auswahliste ...

Hallo,

ich muss eine Stundenabrechnung, die auf Excel Makros aufbaut an Open Office anpassen.

Leider bin ich auf einige Probleme gestossen (abgesehen davon, dass die kompletten Makros umgeschrieben werden müssen :roll: ).

Ein Problem habe ich mit den ComboBoxen (die z.B. erst am OpenOffice 2.0 ...