With ActiveCell
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:=txtText
.Comment.Shape.Select True
End With
.Comment.Text Text:=txtText
Öffne die Excel-Datei, in der Du den Kommentar einfügen möchtest.
Füge eine Userform hinzu:
Entwicklertools > Visual Basic.VBAProject (DeineDatei) und wähle Einfügen > Userform.Füge ein Textfeld zur Userform hinzu, in das Du den Kommentar eingeben kannst. Nenne es z.B. txtText.
Füge einen Button hinzu, um den Kommentar zu speichern. Nenne den Button btnAddComment.
Doppelklicke auf den Button, um den Code-Editor zu öffnen, und füge den folgenden Code ein:
Private Sub btnAddComment_Click()
With ActiveCell
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:=txtText.Text
.Comment.Shape.Select True
End With
End SubSchließe den Code-Editor und kehre zurück zu Excel.
Starte die Userform und teste das Einfügen des Kommentars.
Laufzeitfehler '1004': Wenn dieser Fehler auftritt, überprüfe, ob das Textfeld korrekt benannt ist. Stelle sicher, dass Du txtText.Text verwendest, nicht einfach txtText.
Kommentar wird nicht angezeigt: Achte darauf, dass das aktive Zelle tatsächlich bearbeitbar ist und keine anderen Kommentare vorhanden sind, die den neuen Kommentar blockieren.
Eine alternative Methode, um Kommentare in Excel einzufügen, ist die Verwendung der integrierten Kommentarfunktion:
Kommentar einfügen.Diese Methode ist jedoch nicht so dynamisch wie die Verwendung einer Userform.
Ein praktisches Szenario: Du möchtest Kommentare zu verschiedenen Zellen hinzufügen, um Feedback oder Notizen zu geben. Mit der Userform kannst Du schnell mehrere Kommentare hintereinander einfügen, ohne jedes Mal in die Zelle klicken zu müssen.
Private Sub btnAddComment_Click()
' Kommentar mit aktuellem Datum und Uhrzeit versehen
With ActiveCell
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:=txtText.Text & " - " & Now
.Comment.Shape.Select True
End With
End SubVerwende Validierung: Stelle sicher, dass der Benutzer Eingaben in das Textfeld macht, bevor der Kommentar hinzugefügt wird. Du kannst eine einfache If-Bedingung verwenden, um dies zu überprüfen.
Verknüpfungen: Du kannst die Userform so anpassen, dass sie mit verschiedenen Zellen oder Bereichen in Excel arbeitet. Dies erhöht die Flexibilität.
1. Frage
Kann ich mehrere Kommentare auf einmal hinzufügen?
Ja, Du kannst die Logik im btnAddComment_Click-Ereignis erweitern, um mehrere Textfelder für verschiedene Kommentare zu verwenden.
2. Frage
Ist diese Methode in allen Excel-Versionen verfügbar?
Ja, die Verwendung von Userforms und VBA ist in allen modernen Excel-Versionen verfügbar, jedoch kann die Benutzeroberfläche leicht variieren.