OpenOffice.info

P.S. die Auswahl erfolgt über "I5" Tabelle 2(index)

sub Pruefung_richtige_KK_richtige_Preisliste

hallo Karolus,
Danke Dir erstmal. Leider funktioniert das noch nicht ganz.
Insbesondere, wenn der Wert im per Markierfeld manuell geändert wurde, springt der Ref.-Wert erst beim 2. Mal um.
Die zweite Frage wäre:
Unter Tabellenereignis"Inhalt geändert" habe ich im Originaldokument schon ein Makro zu laufen:
[code]sub Pruefung_richtige_KK_richtige_Preisliste[/code] (steht auch in der Beispieldatei)
Daher könnte event. das exit sub stören.

Ich hänge mal eine Beispieldatei dran.
[attachment=0]Markierfeld.ods[/attachment]

Gruß Jörg

Sub geaendert( event )

	with event.Spreadsheet
		if .getCellRangeByName("J8").Value < 18 then
			.getCellRangeByName("A12").String = "0"
			exit sub
		else
			.getCellRangeByName("A12").String = "X"
			exit sub
		end if
	end with
	
End Sub

Hallo

Versuch mal per Tabellenereignis `Inhalt geändert`:

[code]Sub geaendert( event )

with event.Spreadsheet
if .getCellRangeByName("J8").Value < 18 then
.getCellRangeByName("A12").String = "0"
exit sub
else
.getCellRangeByName("A12").String = "X"
exit sub
end if
end with

End Sub[/code]

sub Zahlung
odoc = ThisComponent
       osheet = odoc.sheets(2)
Dim Alter as integer
myCelle = osheet.getCellRangeByName ("A12")
Alter = oSheet.getCellRangeByName("J8").value

if Alter < "18" then
print "Von Zuzahlung befreit"
myCelle.string = "O"
end if

end sub

=WENN(D10="";"";JAHRE(D10;HEUTE();0))

Hallo Fachleute,
Nachstehendes Makro möchte ich irgendwie zuordnen, sodass es automatisch läuft.
[code]sub Zahlung
odoc = ThisComponent
osheet = odoc.sheets(2)
Dim Alter as integer
myCelle = osheet.getCellRangeByName ("A12")
Alter = oSheet.getCellRangeByName("J8").value

if Alter < "18" then
print "Von Zuzahlung befreit"
myCelle.string = "O"
end if

end sub[/code]
Zur Erläuterung:
In "A12" steht der Referenzwert eines Markierfeldes. "X" für an, "O" für aus.
In "J8" steht das Alter als Ergebnis folgender Formel:
[code]=WENN(D10="";"";JAHRE(D10;HEUTE();0))[/code]

Folgendes habe ich bisher leider ohne Erfolg versucht.
1. über Tabellenereignis "Inhalt gändert" (ist eh nicht so gut, da sich ständig was ändert)
2. Über "J8" Daten-> Gültigkeit->Fehlermeldung-> Makro
Habe im Forum auch schon gesehen, dass statt der Sub eine Function verwendet werden könnte (müßte?), doch weiß ich da nicht weiter.

Habt Ihr einen Rat?
Gruß Jörg