Werte übergeben

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Werte übergeben

Re: Werte übergeben

von komma4 » Di, 20.07.2010 13:13

Willkommen im Forum
thynna hat geschrieben:Der angezeigte Fehler lautet wie folgt:
Es ist eine Exception aufgetreten
Type: com.sun.star.container.NoSuchElementEcxeption
Message: .
Die Fehlermeldung besagt, dass es das angesprochene Objekt nicht gibt.

Im ersten Fall fehlt das Kontrollelement, im zweiten die Tabelle.

Überprüfe die Namen!


Anmerkung:
kann im zweiten Fall auch ein Codierungsfehler sein.

Probiere mal

Code: Alles auswählen

sub Flurstueck_eintragen

odoc=thisComponent
oSheet=odoc.sheets("Tabelle1")
odraw1=oSheet.drawpage
form1=odraw1.forms.getbyIndex(0)
oContr=form1.getbyname("Flur")

oCell = oSheet.GetCellByPosition( 2, 62 ).String = oContr.text

End With

end sub
Nochwas: setze Deinen CODE bitte in die entsprechenden tags: im Editierfeld markieren und die Schaltfläche "Code" (oberhalb) drücken; Danke!

Werte übergeben

von thynna » Di, 20.07.2010 12:24

Hallo!

Ich habe ein merkwürdiges Problem.

In einem Dokument werden Eingaben aus einem maskierten Feld in ein Anderes (s. Gemarkung) bzw. direkt in die Tabelle (s. Flurstueck) übergeben. Und andere Kleinigkeiten geregelt. Soweit so gut.

Nun wollte ich das gleiche in einem anderen Dokument übernehmen und dort funktionieren nicht alle Makro.

Hier die beiden Übeltäter, von denen es nicht mehr dieser Art gibt:

sub Gemarkung_eintragen

odoc=thisComponent
oSheet=odoc.sheets("Tabelle1")
odraw1=oSheet.drawpage
form1=odraw1.forms.getbyIndex(0)
oContr1=form1.getbyname("Gemeinde")
oContr2=form1.getbyname("Gemarkung") *
oContr2.text = oContr1.text

end sub
-----------------------------------------------------------------------------
sub Flurstueck_eintragen

odoc=thisComponent
oSheet=odoc.sheets("Tabelle1")
odraw1=oSheet.drawpage
form1=odraw1.forms.getbyIndex(0)
oContr=form1.getbyname("Flur")

With thisComponent.Sheets().getbyname("Tabelle1")

oCell =.GetCellByPosition( 2, 62 ) *
oCell.string = oContr.text

End With

end sub


Der angezeigte Fehler lautet wie folgt:
Es ist eine Exception aufgetreten
Type: com.sun.star.container.NoSuchElementEcxeption
Message: .


Kann mir jemand helfen?
Es ist zum Haare ausreißen.
Thy

PS: Wie ihr seht, bin ich kein OOO-Genie

Nach oben