Geb. im Kommentar anzeigen

Peter · 2008-12-10T22:16:08+00:00

Hallo Leute ich hab da in einer Tabelle einen Kalender und in der anderen schreibe ich Daten rein. Ist es möglich das die Geb. als Kommentar im Kalender anzeigen kann. Bitte um hilfe !!! Gruß Peter https://www.herber.de/bbs/user/57533.xls

...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 :-?

Hi Peter,
diesen Code ins Codemodul des Tabellenblattes "Daten"


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

Forumthread: Geb. im Kommentar anzeigen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Geb. im Kommentar anzeigen

Forumthread: Geb. im Kommentar anzeigen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread