Werte übergeben

[thynna]

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

[komma4]

Willkommen im Forum

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!