OpenOffice.info

Hallo F3K,
ja ich weiß, dass es so geht. So hab ich es bisher auch.
Dann laß ich das jetzt auch so.
Wolln es ja nicht übertreiben.
Danke für Deine Antwort.
Gruß Jörg

Hi,
dazu brauchst Du kein Makro, die bedingte Formatierung reicht doch aus.
HTH R

sub Pflichtfelder_Rechnung
	Dim oSheet as Object
	Dim Rechnungsdatum as String, Rezeptdatum as String, vom as String, bis as String, Anrede as String
	oSheet = thisComponent.Sheets.getbyname("Eingabemaske Abr_Rechnung")
	Rechnungsdatum = oSheet.getCellRangeByName("B23").String
	Anrede =  oSheet.getCellRangeByName("D8").String
	Rezeptdatum = oSheet.getCellRangeByName("C23").string
	vom = oSheet.getCellRangeByName("E23").String
	bis = oSheet.getCellRangeByName("F23").string
	
	if Rechnungsdatum <>"" and Rezeptdatum <>"" and vom <>"" and bis <>"" and Anrede <>"" then
RechnungErstellen
else
antwort = msgbox ("Abrechnungsdaten nicht vollständig!" & Chr(13) & "Anschrift" & Chr(13) & "Rechnungsdatum"& Chr(13) &"Rezeptdatum"& Chr(13) &"Behandlungsbeginn -ende"& chr(13) & "Rot umrandete Felder beachten !!!",48, "Rechnung erstellen")
	end if
	
end sub

Hallo Fachleute,

in den nachstehenden Code würde ich gern die oben beschriebene bedingte Formatierung einbauen.
Es sollen dabei nur die leeren Zellen umrandet werden, so das der Anwender auf einen Blick sieht, wo was fehlt.
[code]sub Pflichtfelder_Rechnung
Dim oSheet as Object
Dim Rechnungsdatum as String, Rezeptdatum as String, vom as String, bis as String, Anrede as String
oSheet = thisComponent.Sheets.getbyname("Eingabemaske Abr_Rechnung")
Rechnungsdatum = oSheet.getCellRangeByName("B23").String
Anrede = oSheet.getCellRangeByName("D8").String
Rezeptdatum = oSheet.getCellRangeByName("C23").string
vom = oSheet.getCellRangeByName("E23").String
bis = oSheet.getCellRangeByName("F23").string

if Rechnungsdatum <>"" and Rezeptdatum <>"" and vom <>"" and bis <>"" and Anrede <>"" then
RechnungErstellen
else
antwort = msgbox ("Abrechnungsdaten nicht vollständig!" & Chr(13) & "Anschrift" & Chr(13) & "Rechnungsdatum"& Chr(13) &"Rezeptdatum"& Chr(13) &"Behandlungsbeginn -ende"& chr(13) & "Rot umrandete Felder beachten !!!",48, "Rechnung erstellen")
end if

end sub[/code]

Gruß Jörg

Hallo ferner,

ja so ein bisschen Kenntnis in Forums-Etikette kann manchmal nicht schaden

habe da mal etwas für dich zusammengebaut was deinem ursprünglichen Wunsch bedient.
Also auf Mausklick Zellen vereinen und dann Rahmen drumherum.

Kannst du jetzt hier ausprobieren, einen Bereich markieren und Makro starten = verbunden und umrahmt
auf so eine "Zelle" erneut markiert und Makro starten löst die Verbunden Zellen und entfernt auch den Rahmen wieder.

Das funktioniert auch bei einzelnen Zellen ist das nicht gewünscht musst du das Makro etwas anpassen.
Wie habe ich im Makro beschrieben.

[attachment=0]Zellen_verbinden+einrahmen.ods[/attachment]

viel Spaß beim probieren und hilft dir das?

So langsam schlägst du dem Fass den Boden aus!!! :evil: :evil: :evil: Wen willst du denn noch alles mit deiner Frage beschäftigen?
Du hast [url=http://de.openoffice.info/viewtopic.php?f=2&t=65238]hier[/url] und [url=http://www.openoffice-forum.de/viewtopic.php?f=5&t=5821]hier[/url] schon Lösungen bekommen.
Mannoman das ist schon echt frech!
Wenn du nicht weißt wieso, dann informiere Dich darüber, wieso [b][color=#FF0000]Crossposting[/color][/b] nicht erwünscht ist.
R