Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kommentare einfügen mit VBA

Kommentare einfügen mit VBA
28.11.2005 20:14:14
andS
Hallo,
ich möchte Kommentare per VBA einfügen. Habe folgendes probiert:

Sub com_insert()
Dim jj, zz As Integer
Dim cmt As Comment
Dim comments(100) As String
Sheets("Beschreibung").Select
With ActiveSheet
For jj = 10 To 100
comments(jj) = CStr(Cells(jj, 8).Value)
Next jj
End With
Sheets("Daten").Select
With ActiveSheet
For zz = 7 To 100
Set cmt = Cells(6, zz).Comment
Comment.Text = comments(zz) '-->Fehler: Objekt erforderlich
Cells(6, zz).AddComment
Next zz
End With
End Sub

Leider läuft es nicht... Die Zeile mit dem Fehler habe ich markiert...
Oder gibt's noch weitere?
Ich hoffe, es kann mir jemand helfen.
Gruß Andi
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare einfügen mit VBA
28.11.2005 20:17:20
Herbert
Hi,
zeichne dir die richtige Syntax mit dem Rekorder auf.
mfg Herbert
AW: Kommentare einfügen mit VBA
28.11.2005 20:31:06
andS
Hab's probiert:
For zz = 7 To 100
Cells(6, zz).Comment.Text Text:=comments(zz)
Next zz
habe ich geändert. Jetzt kommt Laufzeitfehler 1004...
AW: Kommentare einfügen mit VBA
28.11.2005 20:34:10
Herbert
Hi,
erst den Kommentar einfügen, dann den Text zuweisen.
mfg Herbert
Anzeige
AW: Kommentare einfügen mit VBA
28.11.2005 20:42:02
andS
So?
For zz = 7 To 100
Cells(6, zz).AddComment
Cells(6, zz).Comment.Text Text:=comments(zz)
Next zz
Geht leider auch nicht...
AW: Kommentare einfügen mit VBA
28.11.2005 21:51:13
K.Rola
Hallo,
Beispiel:
Option Explicit
Option Base 1

Sub Kommentare()
Dim z As Long, arrCom(20) As String
With Tabelle1
For z = 1 To 20
arrCom(z) = .Cells(z, 1).Text
Next
End With
With Tabelle2
For z = 1 To 20
With .Cells(z, 2)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=arrCom(z)
End With
Next
End With
End Sub

Es werden die Codenamen der Tabellen verwendet.
Gruß K.Rola
Anzeige
AW: Kommentare einfügen mit VBA
29.11.2005 19:11:52
andS
danke. bin weitergekommen!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Kommentare in Excel mit VBA einfügen


Schritt-für-Schritt-Anleitung

Um Kommentare in Excel mit VBA einzufügen, folge diesen Schritten:

  1. Öffne den VBA-Editor mit ALT + F11.
  2. Wähle "Einfügen" > "Modul", um ein neues Modul zu erstellen.
  3. Füge den folgenden Code ein, um Kommentare zu erstellen:
Sub KommentarEinfügen()
    Dim z As Long
    Dim arrCom(20) As String

    ' Kommentare vorbereiten
    For z = 1 To 20
        arrCom(z) = "Das ist Kommentar " & z
    Next z

    ' Kommentare einfügen
    For z = 1 To 20
        With Cells(z, 2)
            .ClearComments ' Alte Kommentare löschen
            .AddComment ' Neuen Kommentar hinzufügen
            .Comment.Text Text:=arrCom(z) ' Kommentartext setzen
        End With
    Next z
End Sub
  1. Schließe den VBA-Editor und führe den Makro mit ALT + F8 aus, um deine Kommentare in den Zellen anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: Objekt erforderlich

    • Stelle sicher, dass du den Kommentar korrekt hinzufügst, bevor du den Text zuweist. Beispiel: Cells(6, zz).AddComment muss vor Cells(6, zz).Comment.Text stehen.
  • Laufzeitfehler 1004

    • Dieser Fehler tritt auf, wenn du versuchst, einen Kommentar zu bearbeiten, der nicht existiert. Verwende .AddComment, um sicherzustellen, dass der Kommentar hinzugefügt wird, bevor du den Text setzt.

Alternative Methoden

Eine weitere Methode zum Einfügen von Kommentaren in Excel ist die Verwendung von Excel-Formeln und nicht von VBA. Du kannst auch in die Zelle selbst eine Notiz einfügen, ohne einen VBA-Makro zu verwenden:

  1. Rechtsklicke auf die Zelle und wähle "Kommentar einfügen".
  2. Schreibe deinen Kommentar in das Pop-up-Fenster.

Du kannst auch die Funktion HYPERLINK verwenden, um Informationen in einer Zelle anzuzeigen, ähnlich wie Kommentare.


Praktische Beispiele

Hier sind einige praktische Beispiele für das Einfügen von Kommentaren in Excel:

  • Einzelne Zelle kommentieren:
Sub EinzelKommentar()
    Cells(1, 1).AddComment "Das ist ein Kommentar."
End Sub
  • Kommentare aus einer Liste in Zellen einfügen:
Sub KommentareAusListe()
    Dim i As Long
    Dim Notizen As Variant
    Notizen = Array("Notiz 1", "Notiz 2", "Notiz 3")

    For i = LBound(Notizen) To UBound(Notizen)
        Cells(i + 1, 1).AddComment Notizen(i)
    Next i
End Sub

Tipps für Profis

  • Nutze die Funktion Option Explicit am Anfang deines Codes, um sicherzustellen, dass alle Variablen deklariert sind.
  • Verwende With-Anweisungen, um den Code lesbarer zu machen und die Ausführung zu beschleunigen.
  • Experimentiere mit der Sichtbarkeit der Kommentare, indem du .Comment.Visible = False hinzufügst, um die Kommentare standardmäßig auszublenden.

FAQ: Häufige Fragen

1. Wie kann ich einen Kommentar in einer Zelle sichtbar machen?
Um einen Kommentar sichtbar zu machen, kannst du .Comment.Visible = True verwenden, nachdem du den Kommentar hinzugefügt hast.

2. Was passiert, wenn ich einen Kommentar überschreibe?
Wenn du einen Kommentar überschreibst, wird der bestehende Kommentar durch den neuen Text ersetzt. Um einen Kommentar zu aktualisieren, musst du den bestehenden Kommentar zuerst löschen oder den Text direkt ändern.

3. Kann ich Kommentare auch in mehreren Zellen gleichzeitig einfügen?
Ja, du kannst eine Schleife verwenden, um Kommentare in mehreren Zellen gleichzeitig einzufügen, wie im Schritt-für-Schritt-Beispiel gezeigt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige