Kommentare über Schleife einfügen
21.11.2016 19:17:01
Stefan
Ich und mein Wald haben eine Frage.
Lage: Ich möchte einen kleinen Kalender realisieren.
In der Zeile 3 steht: 01 ; 02 ; ... also die Tageszahlen.
In der Zeile 4 steht: Mo ; So ; ....
In Zeile 5 möchte ich die Zellen blau bemalen und den Grund als Kommentar anfügen wenn es sich um einen FerienTag handel.
Die Ferien sind in dem Blatt FTage gelistet. Den Sverweis habe ich schon hinbekommen. Leider läuft mir Excel beim Kommentar immer in einen ObjektFehler.
Ich habe meine Versuche einmal als Kommentar im Code mit stehen lassen.
Kann mir einer erklären wo hier der !Baum! ist den ich nicht sehe?!
For intI = 1 To intSchaltjahr
For ints = 1 To intFerienLaenge
If Abwesenheit.Cells(intZeileDatum, intSpalteDatum).Value = FTage.Cells(intFerienQDatZeile, _
_
intFerienDatumQuelleSpalte).Value Then
strFerienValue = FTage.Cells(intFerienQDatZeile, intFerienDatumQuelleSpalte).Offset(0, 1) _
_
.Value
End If
intFerienQDatZeile = intFerienQDatZeile + 1
Next ints
Abwesenheit.Cells(intFerienTageZeile, intSpBerStart).Style = "wt"
'Abwesenheit.Cells(intFerienTageZeile, intSpBerStart).AddComment.Text Text:= _
strFerienValue
'Abwesenheit.Cells(intFerienTageZeile, intSpBerStart).AddComment.Text strFerienValue
With Abwesenheit
.Cells(intFerienTageZeile, intSpBerStart).AddComment
.Cells(intFerienTageZeile, intSpBerStart).Comment.Text Text:=strFerienValue
.Cells(intFerienTageZeile, intSpBerStart).Comment.Visible = False
End With
intSpBerStart = intSpBerStart + 1
Next intI
Anzeige