OpenOffice.info

Hallo,
ah gut zu wissen, dass die Zelle B1 ihren Wert behält und auch änderbar ist. Kleines Versteck um z.B. Hilfsdaten zu speichern :-)
Für mich war es jedoch unglücklich da ich ja im Versehen B1 statt C1 beschrieben hatte und somit nichts gesehen habe.

Gruss

[quote]großer Fehler von mir! Durch zwei verbundene Zellen habe ich eine Spalte beschrieben die es gar nicht gibt!
[/quote]
Nein, das kann nicht stimmen.

OO/LO Calc behandeln verbundene Zellen völlig anders als z.B. MS Excel und zwar in der Form das nach dem Verbinden nicht sichtbare Zellen sehr wohl vorhanden sind, als auch Inhalte enthalten können. Somit lassen sich Inhalte in solchen Zellen auch per Makro ändern.

Beispiel:
Die Zellen A1 und B1 enthielten zwei Zahlenwerte und werden markiert und verbunden, hierbei erscheint eine Nachfrage ob der Inhalt der zweiten Zelle in die Erste verschoben werden soll.
Egal ob Letzteres bejaht wird oder nicht, ist nach dem Verbinden nur Zelle A1 sichtbar, jedoch kann auch der Inhalt von Zelle B1 per Makro geändert werden und ist später, nach dem Wiederauflösen der Verbindung der Zellen, in Zelle B1 sichtbar.


Gruß
Stephan

Hallo,
großer Fehler von mir! Durch zwei verbundene Zellen habe ich eine Spalte beschrieben die es gar nicht gibt!
Hat jetzt alles geklappt - wenn ich eine Integerzahl in die vor-formatierte Zelle schreibe wird die Formatierung angewendet.

Danke nochmals für die Unterstützung

Gruß
Winni


PS:Wenn man antwortet und nicht merkt, dass man schon rausgefallen ist, dann erscheint der Beitrag unter "Gast". Nicht so toll!!

Sub uf_bpos_schreiben()
myDoc = thisComponent
tabelle1 = myDoc.sheets(0)
dim mycell as object

gi_gesanzbpos = 2

mycell = tabelle1.getCellByPosition(3,gi_gesanzbpos + 17)
mycell.value = 45.00

end sub

[quote]ich habe ein Tabellenfeld welches als Währungsfeld definiert ist [/quote]

Dein Makro bezieht sich aber auf eine Tabellenzelle und kein Währungsfeld (Währungsfeld siehe: Ansicht-Symbolleisten-Formularsteuerelemente und dort das Währungsfeld).

[quote]Das Makro weigert sich jetzt den Wert zu schreiben
[/quote]
Und wie äußert sich das? Fehlermeldung? Absturz? ...?

[quote]Wie könnte ich jetzt den Betrag in der Form 45,00 € in dieses Feld schreiben?
[/quote]

beispielsweise:

[code]Sub uf_bpos_schreiben()
myDoc = thisComponent
tabelle1 = myDoc.sheets(0)
dim mycell as object

gi_gesanzbpos = 2

mycell = tabelle1.getCellByPosition(3,gi_gesanzbpos + 17)
mycell.value = 45.00

end sub
[/code]

Gruß
Stephan

Sub uf_bpos_schreiben(li_bpanz%,li_bplge%,li_epreis@)
myDoc = thisComponent
tabelle1 = myDoc.sheets(0)
dim mycell as object
.....
...
mycell = tabelle1.getCellByPosition(3,gi_gesanzbpos + 17)
mycell.value = li_epreis

end sub

Hallo Leute,
ich habe ein Tabellenfeld welches als Währungsfeld definiert ist (Währung -1.234,00 €), welches schon einen vorbelegten Wert in der Form 39,00 € hat, und welches ich nun mit folgendem Code mit einem anderen Betrag überschreiben möchte:

[code]Sub uf_bpos_schreiben(li_bpanz%,li_bplge%,li_epreis@)
myDoc = thisComponent
tabelle1 = myDoc.sheets(0)
dim mycell as object
.....
...
mycell = tabelle1.getCellByPosition(3,gi_gesanzbpos + 17)
mycell.value = li_epreis

end sub[/code]

Das Makro weigert sich jetzt den Wert zu schreiben :shock: . Wie könnte ich jetzt den Betrag in der Form 45,00 € in dieses Feld schreiben?

Über einen Tipp würde ich mich freuen.

Vielen Dank
Gruss Winni