Tooltip

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…ToolTip, mit einer Fml idR auch kein ZellKommentar erzeugt wdn. Insofern ist ein Teil meiner AW irreführend.
Mit VBA hat man mehrere Möglichkeiten:
1. maussensitiver ToolTip eines (formal wirkungslosen, weil auf eigene StandortZelle gerichteten) echten HLinks;
2. transparentes TextFeld mit echtem, analog gebildetem HLink (ebenfalls maussensitiver ToolTip);
3. auf Klick von unsichtbar auf sichtbar wechselndes TextFeld mit FeiertagsBezeichnung (kann auch ein auf Bedarf wanderndes sein);
4. kleines UserForm in ZellGröße mit maussensitivem ToolTip (wg der unterschiedlichen Abstandsbemaßungsart nur schwer mit Zelle auf Deckungsgleichheit zu bringen);
5. ggf noch Möglichkeiten auf Basis WinAPI (aber das ist eher Nepumuks Spezialität, ich will nicht auch noch von Win-Änderungen abhängig sein!).
Probleme:
ToolTips (InfoText) und ZellKommentare sind ebenso wie Texte von TextFeldern statisch. Bei letzteren hat man allerdings ebenso wie bei UF-TextBoxes die Möglichkeit, eine korrespondierende (Hilfs-)Zelle festzulegen, die die textliefernde Fml enthält.
Nur mit Fmln hat man folglich bloß die Möglichkeit, eine ggf vorhandene FeiertagsBezeichnung in eine NachbarZelle auszugeben. Eine TextÜbernahme aus einer Zelle oder dem zellpositionsgerechten Ergebnis einer benannten Fml in ein TextFeld, einen ToolTip oder Kommentar kann also nur unter VBA-Einsatz erfolgen. Das wäre ggf auch mit einer UDF möglich, wenn diese entweder auf API-Nutzung beruht oder von der eigentlichen TextErmittlung physisch entkoppelt ist, wodurch ggf auch ein Calculate-Ereignis (bei Fml-Einsatz zur KalenderErstellung) zwecks InfoTextBestückung möglich wäre.
Es bestünde auch die Möglichkeit, mit einer VerbundZelle, die nach außen hin nur das Datum (oder was sonst der Kalender in seinen Feldern vorsieht) zeigt, in 1-2 eingebundenen Zellen aber Fmln zur TextHolung und zum Aufruf einer SubProzedur enthält, die diesen Text an einen InfoText (ToolTip, Kommentar) überträgt, zu arbeiten.
Ähnliches hatte ich schon mal gemacht*, aber wohl noch nicht für solch speziellen Fall. Momentan habe ich auch wenig Zeit und Sinn für so etwas. Hängt im letztgenannten Fall ja auch davon ab, ob man so etwas in einem (bzw diesem) Kalender unterbringen kann, will oder gar sollte…
Im Übrigen gehe ich davon aus, dass dir Max (Nepumuk) eine für dich akzeptable Lösung dieses Problems bieten kann und auch wird, wenn du seine Fragen beantwortest. Anderenfalls müsstest du dich mal durchs Archiv* „graben“, da findest du bestimmt etwas…
* Stichworte: EingabeZelle + selbstkorrigierend bzw SelbstKorrektur mit Dialog zwischen ErichG und mir nebst einem Vorschlag von ihm → das dann natürlich auf deinen Zweck umgebaut.
Viel Erfolg & schö3AdSo! Gruß, Luc :-?

Function Ostersonntag(ByVal j As Integer) As Date ' Ergänzte Gauß-Formel nach Heiner Lichtenberg (1997) ' http://de.wikipedia.org/wiki/Gau%C3%9Fsche_Osterformel#Eine_erg.C3.A4nzte_Osterformel ' VBA-Umsetzung durch RalfP ' Variablenbedeutung ' x(0) = Säkularzahl ' x(1) = säkulare Mondschaltung ' x(2) = säkulare Sonnenschaltung ' x(3) = Mondparameter ' x(4) = Keim für ersten Frühlingsvollmond ' x(5) = kalendarische Korrekturgröße ' x(6) = Ostergrenze ' x(7) = erster Sonntag im März ' x(8) = Osterentfernung in Tagen ' x(9) = Datum des Ostersonntags als Märzdatum (32. März = 1. April usw.) Dim x(9) As Long x(0) = j \ 100 x(1) = 15 + (3 * x(0) + 3) \ 4 - (8 * x(0) + 13) \ 25 x(2) = 2 - (3 * x(0) + 3) \ 4 x(3) = j Mod 19 x(4) = (19 * x(3) + x(1)) Mod 30 x(5) = (x(4) + x(3) \ 11) \ 29 x(6) = 21 + x(4) - x(5) x(7) = 7 - (j + j \ 4 + x(2)) Mod 7 x(8) = 7 - (x(6) - x(7)) Mod 7 x(9) = x(6) + x(8) Ostersonntag = DateSerial(j, 3, x(9)) 'denn der 32.3. ist automatisch der 1.4. End Function

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread