Kommentar



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Kommentar
von: Tino
Geschrieben am: 27.06.2002 - 18:40:05

Hallo Forum!
Ich möchte Kommentare (jeweils die Namen der Feiertage) in ein Monatsblatt einfügen.
Ich habe schon im Forum gelesen, dass das nur über ein Makro geht. Wer kann helfen?
In meinem 1.Arbeitsblatt(Tabelle1) beginnt der Monat in "B3" mit dem 1. ("B4" der 2. usw.),
im 2. Blatt(Feiertage) sind die Datumswerte der Feiertage in B4:B16 und die Bezeichnung dafür in A4:A16.

MfG Tino.

nach oben   nach unten

Re: Kommentar
von: @lex
Geschrieben am: 28.06.2002 - 10:22:07

Hallo Tino !
Versuchs mal hiermit : (ggf. anpassen)

Sub Test()
Dim iRow, iCount, intCount As Integer
Dim Datum As Date
Dim strText As String
Dim wbs1, wbs2 As Worksheet
Set wbs1 = Tabelle1
Set wbs2 = Tabelle2

iRow = wbs1.Cells(Rows.Count, 1).End(xlUp).Row
For iCount = 3 To iRow
    Datum = wbs1.Cells(iCount, 1).Value
        For intCount = 1 To wbs2.Cells(Rows.Count, 2).End(xlUp).Row
        If Datum = wbs2.Cells(intCount, 1).Value Then
            strText = wbs2.Cells(intCount, 1).Value
            wbs1.Cells(iCount, 1).AddComment strText
            End If
        Next intCount
Next iCount
End Sub

Habe es jetzt nicht groß getestet.

VG,
Alex

nach oben   nach unten

Re: Kommentar
von: Tino
Geschrieben am: 28.06.2002 - 12:47:36

Hallo Alex!
Für diesen Code kannst du dir ein super Bienchen anschreiben.
Also ich hatte schon tagelang ausprobiert, aber nichts auf die Reihe bekommen.
Habe jetzt bei dir noch die Cells angepasst und es läuft wirklich einwandfrei.
Danke nochmal.
Tschüß Tino.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kommentar"