Kommentare per Makro

Dieses Thema im Forum "Office-Programme" wurde erstellt von bzf1qr, 17. April 2002.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. bzf1qr

    bzf1qr Byte

    Registriert seit:
    18. Oktober 2001
    Beiträge:
    25
    Hallo Cracks,

    ich möchte in eine Zelle einen Kommentar einfügen. Mit .AddComment geht das wunderbar. Problem: Ist in der Zelle bereits ein Kommentar gibt es einen Fehler. Angeblich soll der neue Kommentar an den vorhandene angefügt werden können (.Text). Gebe ich diese Funktion ein, wird .Text aber automatisch klein geschrieben (.text) was bedeutet das diese Eingabe nicht angenommen wird und das Makro macht wieder einen Fehler.
    Wie kann ich zu einem vorhandenen Kommentar weiteren hinzufügen?
    Danke!
     
  2. excelerator

    excelerator Byte

    Registriert seit:
    13. Februar 2002
    Beiträge:
    32
    Hallo Frank,
    hier ein Beispiel, wie du in einem markierten Bereich den Kommentar einer Zelle gleich deren Inhalt machst, bzw. einen vorhandenen Kommentar um den Zellinhalt erweiterst.

    Sub Kommentar_erweitern()
    Dim ErwText
    For Each a In Selection.Cells
    ErwText = a.Text
    If ErwText = "" Then GoTo Next_a
    If a.NoteText = "" Then
    a.AddComment ErwText
    Else
    a.Comment.Text a.Comment.Text & ErwText
    End If
    Next_a:
    Next a
    End Sub

    Viel Spaß noch
    Udo
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen