Seite 1 von 1
Re: Makro: gewählte Zelle umranden
Verfasst: So, 18.01.2015 19:24
von F3K Total
So langsam schlägst du dem Fass den Boden aus!!!
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
Re: Makro: gewählte Zelle umranden
Verfasst: Mo, 19.01.2015 08:01
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.
viel Spaß beim probieren und hilft dir das?
Re: Makro: gewählte Zelle umranden
Verfasst: Fr, 23.01.2015 11:37
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
Re: Makro: gewählte Zelle umranden
Verfasst: Fr, 23.01.2015 17:19
von F3K Total
Hi,
dazu brauchst Du kein Makro, die bedingte Formatierung reicht doch aus.
HTH R
Re: Makro: gewählte Zelle umranden
Verfasst: Fr, 23.01.2015 17:41
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