Makro: gewählte Zelle umranden

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Makro: gewählte Zelle umranden

Beitrag von F3K Total »

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 hier und hier schon Lösungen bekommen.
Mannoman das ist schon echt frech!
Wenn du nicht weißt wieso, dann informiere Dich darüber, wieso Crossposting nicht erwünscht ist.
R
clag
********
Beiträge: 3570
Registriert: Di, 27.01.2009 15:30

Re: Makro: gewählte Zelle umranden

Beitrag von clag »

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.
Zellen_verbinden+einrahmen.ods
(10.54 KiB) 76-mal heruntergeladen
viel Spaß beim probieren und hilft dir das?
LG
clag

nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
Jörg
*****
Beiträge: 392
Registriert: Mo, 21.10.2013 12:05

Re: Makro: gewählte Zelle umranden

Beitrag von Jörg »

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: Alles auswählen

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
Gruß Jörg
Gruß Jörg

Win 10 Pro AOO 4.1.15
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Makro: gewählte Zelle umranden

Beitrag von F3K Total »

Hi,
dazu brauchst Du kein Makro, die bedingte Formatierung reicht doch aus.
HTH R
Dateianhänge
Bedingte_Formatierung.ods
(7.68 KiB) 55-mal heruntergeladen
Jörg
*****
Beiträge: 392
Registriert: Mo, 21.10.2013 12:05

Re: Makro: gewählte Zelle umranden

Beitrag von Jörg »

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
Gruß Jörg

Win 10 Pro AOO 4.1.15
Antworten