Geb. im Kommentar anzeigen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...aussehen soll, Peter,
aber ich zeige dir mal meine Interpretation. Ich habe es mit Formeln realisiert. Darin wdn neben xlStandardfktt auch etliche udFktt benutzt - leider zumeist noch undokumentierte, die auch zumeist nicht in einem publizierbaren Zustand sind. Daraus folgt für dich - VBA muss her, denn auch udFktt sind VBA. Allerdings wird da Recorder-VBA evtl nicht reichen. Trotzdem empfehle ich, das manuelle Anlegen eines Kommentars aufzuzeichnen, vorausgesetzt, du willst das wirklich automatisieren. Ansonsten ist ohnehin Handarbeit angesagt, es sei denn, du meinst nicht wirklich Kommentar im xlSinn. Aber deine Kalenderzellen sind ohnehin zu klein, um mehr als ein X aufzunehmen.
Wenn du das also wirklich automatisieren willst, ist das eine schon anspruchsvollere VBA-Anfänger-Aufgabe.
Meiner Fml-Lösung kannst du zumindest entnehmen wie der Datenvgl ungefähr zu organisieren wäre. Glücklicherweise basiert deine Kalendertagangabe auf einem vollen Datum, so dass ich nur aus diesem Tag einen VglBegriff ermitteln konnte, den ich in der udF ChooseIn zur Auswahl der signifikanten Zellen aus den beiden Datenbereichen nutzen konnte. Name und Geburtsjahr wdn dann vereinigt (auch mehrere an einem Tag) und dienen so als Kommentartext, der von der kommentargenerierenden udF ComGen verwendet wird. Das musst du natürlich in einem Makro in Gänze, nicht in meinen udF-"Portionen" nachbauen. Falls du in deinem Makro TabBlattFormeln verwenden willst, musst du wissen, dass das mit Matrixformeln idR nicht klappt - also stattdessen PgmSchleifen verwenden!
Wenn dir das nicht gelingen will, musst du dich (hier) noch mal melden. Vielleicht findet sich ja auch ein Anderer, der das übernehmen will (deshalb noch offen). Evtl kann ich auch meinen Schwager dafür begeistern, der auch gerne an Kalendern bosselt (seit Kurzem auch mit VBA)... ;-)
Noch ein Tipp: Vermeide möglichst Zellverbindungen! Für die Monatsnamen hätte 1 (breitere) Spalte gereicht (oder horizontal über Auswahl zentrieren).
So, und hier mein Ergebnis...
Userbild

Gruß Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) Dim raZelle As Range Dim raBereich As Range Set raBereich = Union(Range("D2:AH2"), Range("D5:AH5"), Range("D8:AH8"), Range("D11:AH1"), _ Range("D14:AH14"), Range("D17:AH17"), Range("D20:AH20"), Range("D23:AH23"), Range("D26: _ AH26"), _ Range("D29:AH29"), Range("D32:AH32"), Range("D35:AH35")) If Target.Column 7 Then Exit Sub If IsDate(Target) Then For Each raZelle In Worksheets("Kalender").Range(raBereich.Address) If Day(raZelle) = Day(Target) And Month(raZelle) = Month(Target) Then If raZelle.Offset(2, 0).Comment Is Nothing Then raZelle.Offset(2, 0).AddComment Target.Offset(0, -1) & " " & Year(Target) Else If InStr(raZelle.Offset(2, 0).Comment.Text, Target.Offset(0, -1) & " " & Year( _ Target)) = 0 Then raZelle.Offset(2, 0).Comment.Text raZelle.Offset(2, 0).Comment.Text & vbLf & _ Target.Offset(0, -1) & " " & Year(Target) End If End If raZelle.Offset(2, 0).Comment.Shape.OLEFormat.Object.AutoSize = True Exit For End If Next raZelle End If End Sub

...nicht mitgeliefert, Peter!
Du musst anschließend im TabBlatt Daten jedes einzelne Geburtsdatum anklicken, weil nur so ein Ereignis ausgelöst wird, das letztlich die Kommentargenerierung bewirkt. D.h., ein neu angelegter Eintrag in Daten wird sofort in einen Kommentar umgesetzt, sobald du den Datumseintrag abschließt.
Außerdem scheinen in deinem Blatt evtl Ereignisprozeduren disabled zu sein. Mit folgender Subroutine in einem Standardmodul kannst du das beliebig an-/ausschalten...


Sub EventFlipFlop()
With Application: .EnableEvents = Not .EnableEvents: End With
End Sub

Des weiteren empfehle ich, nicht die Geburtsjahre, sondern das erreichte Alter im Kommentar anzuzeigen. Dazu müsste aber entweder jedes Jahr wieder alles angeklickt oder aber die Prozedurregie geändert wdn. Außerdem müsste die Fml ab H2 wie folgt ersetzt wdn:
=WENN(G2="";"";A$1-JAHR(G2))
Die Gründe wdn einsichtig, wenn du bspw jetzt ein Geburtsdatum 24.12. einfügst.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread