Werte übergeben
Verfasst: 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
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