Kommentare in Kalender

[Andyle]

Hallo liebe Gemeinde

Ich habe ein Kalender mit Terminen.
Nun suche ich eine Lösung, die Termine als Kommentar einzufügen.

Kommentar sollte lauten:
Datum: TT.MM.JJJJ
Wann: hh:mm
Was: Text aus Spalte

Danke für Eure Hilfe

[Egon12]

Hallo,
 
die passende Zelle zu finden und etwas ins Kommentarfeld zu schreiben ist eigentlich simpel. Was die Sache umständlich macht ist, dass du in den Zellen kein Datum drinstehen hast. 
Man kriegt auch so was hin, wenn man jeden Monat einen Range zuweist. Das ist eigentlich nur noch Fleißarbeit und umständliches Codeschreiben.
 
Baue die Formeln so um, dass ein echtes Datum in der Zelle steht. Die Zelle formatierst du auf einstellige Tageszahl: "T".
Dann kann man den Range entweder mit .Find und wichtig Dateserial die zutreffende Zelle finden.
 
Ein Beispiel mit hänge ich ran.

  Zelle 5.Dez. markieren.xlsm (Größe: 15,16 KB / Downloads: 5)

Gruß Uwe

[Andyle]

Erstmal vielen Dank für den Hinweis/Vorschlag

[Andyle]

Hallo liebe Gemeinde

Ich habe folgenden Code:

Code:

Sub kommentar()

Worksheets("Kalender").Unprotect 'Blattschutz aufheben

Dim Zelle As Range
Dim Bereich As Range
Dim Notiz As Comment

For Each Notiz In Tabelle1.Comments
Notiz.Delete
Next Notiz

Set Bereich = Tabelle1.Range("AJ1:AP47")

For Each Zelle In Bereich

If Zelle.Value = Range("AF9") Then

skommentar = "Was:" & vbLf & Range("AH9") & vbLf & vbLf & "Wann:" & vbLf & Format(Range("AG9"), "hh:mm") & " Uhr"
   
    'Zelle.Offset(0, 1).Value 'Zelle rechts daneben

Zelle.AddComment.Text skommentar

End If

Next Zelle

Worksheets("Kalender").Protect 'Blattschutz aufheben

End Sub

In der gefundenen Zelle rechts daneben stehen Koordinaten als Text zB. A1.
Wie bekomme ich es hin, dass das Kommentar in A1 gesetzt wird?

Danke

[Andyle]

Hat sich erledigt!

Die Lösung: Range(Zelle.Offset(0, 1)).AddComment.Text skommentar

[Ralf A]

...letztendlich könnte man für einen Kalender, ganz ohne VBA und Excel bemühen zu müssen, den in Outlook integrierten Kalender nutzen. 
Aber ja, ich weiß Excel kann auch Bildbearbeitung und Musik und.... es ist vollkommen unerklärlich, weshalb die anderen Programme notwendig sind....

[Andyle]

Folgender Code:

Code:

Sub kommentar()

Worksheets("Kalender").Unprotect 'Blattschutz aufheben

If MsgBox("Wollen Sie alle Termine aktualisieren?" & vbLf & vbLf & "Dies kann etwas dauern!", vbYesNo) = vbYes Then

Dim Zelle As Range
Dim Bereich As Range
Dim Notiz As Comment

For Each Notiz In Tabelle1.Comments
Notiz.Delete
Next Notiz

Set Bereich = Tabelle1.Range("AJ9:AW1000")

For Each Zelle In Bereich

'Termin 1
If Zelle.Value = Range("AF9") And Range("AF9") <> "" Then
skommentar1 = "Was:" & vbLf & Range("AH9") & vbLf & vbLf & "Wann:" & vbLf & Format(Range("AG9"), "hh:mm") & " Uhr"
Range(Zelle.Offset(0, 1)).AddComment.Text skommentar1
End If

'Termin 2
If Zelle.Value = Range("AF10") And Range("AF10") <> "" Then
skommentar2 = "Was:" & vbLf & Range("AH10") & vbLf & vbLf & "Wann:" & vbLf & Format(Range("AG10"), "hh:mm") & " Uhr"
Range(Zelle.Offset(0, 1)).AddComment.Text skommentar2
End If

'usw.


Next Zelle

MsgBox "Alle Termine wurden aktualisiert!"

End If

'Worksheets("Kalender").Protect 'Blattschutz aufheben


End Sub

Funzt soweit alles.
Nur wenn das Datum auf den 1. fällt, dann gibt es kein Kommentar.

Weiß jemand die Lösung?

[Ralf A]

...echt jetzt? Du definierst einen Bereich, benutzt eine Schleife und darin klapperst Du knapp 1000 Bedingungen einzeln ab?

Code:

Set Bereich = Tabelle1.Range("AJ9:AW1000")

For Each Zelle In Bereich

'Termin 1
If Zelle.Value = Range("AF9") And Range("AF9") <> "" Then
skommentar1 = "Was:" & vbLf & Range("AH9") & vbLf & vbLf & "Wann:" & vbLf & Format(Range("AG9"), "hh:mm") & " Uhr"
Range(Zelle.Offset(0, 1)).AddComment.Text skommentar1
End If

'Termin 2
If Zelle.Value = Range("AF10") And Range("AF10") <> "" Then
skommentar2 = "Was:" & vbLf & Range("AH10") & vbLf & vbLf & "Wann:" & vbLf & Format(Range("AG10"), "hh:mm") & " Uhr"
Range(Zelle.Offset(0, 1)).AddComment.Text skommentar2
End If

'usw.

Da solltest Du wirklich besser auf Outlook zurückgreifen. Oder noch besser einen Taschenkalender benutzen.

Die Schleife ließe sich wesentlich verkürzen:

Code:

For Each Zelle In Bereich

'Alle Termine
If Zelle.Value = Range("AF" & zelle.row) And Range("AF" & zelle.row) <> "" Then
skommentar1 = "Was:" & vbLf & Range("AH " & zelle.row ) & vbLf & vbLf & "Wann:" & vbLf & Format(Range("AG " & zelle.row ), "hh:mm") & " Uhr"
Range(Zelle.Offset(0, 1)).AddComment.Text skommentar1
End If
next

[Egon12]

Hallo,
 
unabhängig von deinem bisherigen Stand, habe ich in deiner hochgeladenen Datei mal eine Prozedur basierend auf Ranges per Monat eingebaut.
Ansonsten gilt natürlich wie ich bereits weiter oben geschrieben hatte: Arbeite mit echtem Datum und Zelle(n) entsprechend formatiert.

  Terminkalender.xlsm (Größe: 80,04 KB / Downloads: 3)
 
Gruß Uwe

[Andyle]

Genial!

Hab es noch etwas umgebaut.

Allerdings ist mir aufgefallen, wenn man zB. das Jahr 2023 einstellt und den 29.2.23 den es ja nicht gibt als Termin einträgt. dann markiert er den 23.2.23

Kann man solche Fehler noch abfangen?