OpenOffice.info

Hallo an Alle,

ich arbeite mit folgendem Makro:

SUB Druck2x
antwort = MsgBox("Drucken? Ja=Papier einlegen!",36)

if antwort = 6 then
dim printProp() as new com.sun.star.beans.PropertyValue
ocontroller = thiscomponent.currentcontroller
ocurrentsheet = ocontroller.activesheet
osheet ...

Vielen Dank euch Beiden!
Habe den Code in einer Bibliothek gefunden.
Habe den "LibraryName" nicht gefunden, aber so geht es auch:
Alles kopiert und in die Standard-Bibliothek eingefügt.
Klappt.
Achim

Hallo,
ich bekommen diese Fehlermeldung:

"BASIC-Laufzeitfehler.
Sub- oder Function-Prozedur nicht definiert."

wenn ich diesen Code ausführe:

sub DATAFORM_KUNDE

doc = thisComponent
sheet = doc.Sheets(7)
range = sheet.getCellRangeByName("A4:M1000")
coboDataForm(range)

end sub
wobei die letzte ...

Hallo Clag.
vielen, vielen Dank, dass Du Dir die Mühe gemacht hast. Das ist ja klasse.
Und Dank an Karolus für den Tipp.
Achim

Ok danke erst mal, claq
Ich dachte der Bereich mit Name deklariert wird auch bei der ausgeblendeten Tabelle erfasst und kopiert .
Das mit dem einblenden per Makro versuche ich mal, dürfte aber nicht so toll aussehen, die Show die dann da abläuft .

Code sieht so aus:
sub FAX_KOPIEREN
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document ...

Hallo

(Die Tabellen 1+2 sind ausgeblendet)

ich bin in Tabelle 4.

Das Makro soll den Bereich mit Namen "FAX" (in Tabelle 3) kopieren.
Dann wechsel ich ins Email-Programm und klicke einfügen - alles gut, die Daten sind da.

Wenn ich die Tabelle 3 auch ausblende, wird von der aktiven Tabelle 4 (nun ...

Vielen Dank an Karolus und Stephan.

Hallo,
ich habe die Extension Data Form installiert.
Dann habe ich folgendes per Makrorecorder aufgezeichnet
(Curser ist in Tabellenblatt 4):
--------------------
Wechsel zu TB 6
Zelle in der Tabelle markieren (A5)
(Menüleiste) Daten - Form... anklicken (Formular wird angezeigt)
Formular schliessen ...

Danke claq, das hat funktioniert.
Danke TrueColor, das hat nicht geklappt. (habe AB "nMyVar..." kopiert und "A1" durch "D51" ersetzt, und die beiden Macronamen ersetzt und end sub ergänzt)
Danke lorbass, das ist mir leider alles zu verwirrend.

Hallo,

ich möchte in einem Makro die if then Prüfung integrieren:
Wenn (auf diesem Tabellenblatt) da Feld D51 <100
dann führe Makro "1" und danach Makro "2" aus,
sonst führe Makro "2" aus.

Wie lautet der Befehl. Ich finde keine Lösung.

Danke

Danke - Richtig
Hab viele Kombinationen probiert aber nicht diese

Moin,
ich weiss nicht mehr welche Tastenkombination ich drücken muss um im Kontrollfeld bei "Eigenschaften Listenfeld", Reiter "Allgemein", im Feld "Listen-Einträge" Daten untereinander zu schreiben. Einfach ENTER geht nicht.
Danke für den entscheidenden Hinweis

Moin Moin, ja deutlich klarer, vielen Dank für die Erklärung.

Moin Rik,

vielen Dank, das klappt super. Das liest sich wieder so kompliziert - ich kapier das leider nicht. Danke, dass Du so nett bist mir Deine Zeit zu 'opfern' und mir diesen fertigen Code gibst! Ich habe schon einiges von Deinen Tipps nutzen können! Noch eine schöne Woche,