Supportnet / Forum / Tabellenkalkulation

Hallo Ihr Excel Experten. Zum Thema Kommentare mittels Makro in entsprechende Zellen schreiben habe ich bereits ein paar Zeilen gefunden. Diese wollte ich meinen Bedürfnissen anpassen. Es wird auch irgendwas gemacht, aber mir werden keine Kommentare in den entsprechenden Feldern angezeigt. Hier meine Zeilen: Sub Kommentar() Dim zaehler As Long Dim Symbol As Long For Symbol = 8 To 130 For zaehler = 8 To 16 If Cells(zaehler, 5).Comment Is Nothing Then Cells(zaehler, 5).AddComment Cells(7, Symbol).Text Else Cells(zaehler, 5).Comment.Text Cells(7, Symbol).Text End If Next Next End Sub Was mache ich falsch bzw. weiß ich das noch ein Vergleich fehlt, den ich selbst nicht auf die Reihe kriege? Zur kurzen Erklärung: In Spalte E (also 5) habe ich in den Zellen 8-15 je ein Datum stehen und Kommentare eingefügt. In Zeile 4 ist ab Spalte H das Datum fortlaufend angegeben. Der Kommentar soll in Zeile 7 an der Stelle eingefügt werden, wo beide Daten ("Datums") übereinstimmen. Bin für jede Hilfe dankbar MfG Zoe

Hallo Zoe,

Du willst dort einen Kommentar haben, wo sich 2 Termine überschneiden?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oli.

Du wirst ja scheinbar zu meinem "Rettungsexi" :-)

Die Kommentarübernahme bezieht sich auch mit auf den Vergleich, bei dem du mir bereits geholfen hast. Es ist eine Erweiterung.
Also ich will meine Endtermine von Herrn x und Herrn Y und etc. (Spalte 5) wieder mit der Zeile 4 (fortlaufendes Datum 01.06.-01.10 --> H bis DZ) vergleichen. Stimmen die Daten überein, soll der hinterlegte Kommentar aus Spalte 5 in die Zeile 7 in der entsprechenden Spalte eingetragen werden.

Bsp.: E8 hat den Kommentar "Ende" und das Datum 15.06. Nun soll in der Zelle V7 der Kommentar zurückgegeben werden. Also Formeltechnisch siehts momentan so aus:
=WENN(ODER(H$4=$E$7;H$4=$E$8;H$4=$E$9;H$4=$E$10;H$4=$E$11;H$4=$E$12;H$4=$E$13;H$4=$E$14;H$4=$E$15);$C$2;"")
Dabei ist Zelle C2 mit einem Symbol belegt. zusätzlich zu diesem Symbol soll der entsprechende Kommentar aus E angezeigt bzw hinterlegt werden.

Ich hoffe die Aussage trifft es jetzt klarer.

Danke im Voraus
MfG Zoe

Hallo Zoe,

sorry, liegt vielleicht an der Wärme, aber ich habe leider immer noch nicht so ganz verstanden, was Du nun genau haben möchtest. Besteht die Möglichkeit mal eine Beispieldatei ins Netz zu stellen (eventuell bei http://www.netupload.de/ ), an dem man an einem Beispiel sehen kann, was Du als Endresultat erwartest? Alternativ kannst Du mir die auch als Mail schicken. Finden kannst DU meine Mailadresse auf meiner HP u.a. im Impressum. Binde in der Betreffzeile irgendwie das Wort "Supportnet" und den Namen (Nickname), unter dem Du hier gepostet hast mit ein, da ich alle Mails deren Absender ich nicht kenne, ungelesen lösche.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo coros.

"Sie haben Post" würde eine Stimme von AOL sagen...
Hab dir grad gemailt

MfG Zoe

Hallo an alle,

die es Interessiert, ich habe Zoe folgende Lösung vorgeschlagen.

Option Explicit

Sub Zellen_nach_Datum_färben()
Dim iRow As Long, iCol As Integer, Anfang As Integer, Ende As Integer, Farbe As Integer, iColColor As Integer, _
Kommentar As String
Rows(7).Interior.ColorIndex = xlNone
For iRow = 8 To Range("B65536").End(xlUp).Row
      Farbe = Cells(iRow, 2).Interior.ColorIndex
    For iCol = 8 To 130
        If Cells(iRow, 4) = Cells(4, iCol) Then
            For iColColor = iCol To 130
                If Cells(7, iColColor).Interior.ColorIndex = xlNone Then
                    Anfang = iColColor
                    GoTo Weiter
                End If
            Next
        End If
    Next
Weiter:
    For iCol = 8 To 130
        If Cells(iRow, 5) = Cells(4, iCol) Then
        Kommentar = Cells(iRow, 5).Comment.Text
                If Cells(7, iCol).Interior.ColorIndex = xlNone Then
                    Ende = iCol
                    GoTo Ende
                Else
                    GoTo Ende1
                End If
        End If
    Next
Ende:
Range(Cells(7, Anfang), Cells(7, Ende)).Interior.ColorIndex = Farbe
With Cells(7, Ende)
On Error Resume Next
    .Comment.Delete
    .AddComment
    .Comment.Text Text:=Kommentar
End With
Ende1:
Next
End Sub

Das Makro ist das gleiche wie aus der letzten Beitrag von Zoe mit der entsprechenden Ereiterung. Die Bereiche, in denen es um den Kommentar geht sind unterstrichen.

Eventuell kann ja jemand etwas damit anfangen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

danke !!!!!!!!!!!!!!!!!!!
Jetzt kann ich beruhigt ins Wochenende gehen.

Wünsch dir auch ein schönes WE und danke nochmal.

MfG Zoe

• per Makro einen Kommentar mit Hintergundbild versehen
• Kommentar Makro
• Kommentar Makro
• kommentar in anderes tabellenblatt übernehmen
• VBA-Excel-Makro, um Teile des Zelleninhaltes auszulesen