Sub test()
For i = 1 To 10
Worksheets(1).Range("a" & i).AddComment.Text "Test"
Next i
End Sub
Sub Add_Comment()
Dim myCom As String
Dim myC As Range
myCom = InputBox("Zeilenumrüche sind nicht möglich", "Kommentartext eingeben", "")
If myCom = "" Then
MsgBox "Keine Kommentare eingefügt"
Exit Sub
End If
For Each myC In Selection
If myC.Comment Is Nothing Then
myC.AddComment
End If
With myC.Comment
.Visible = False
.Text Text:=myCom
End With
Next
End Sub
Um mehrere Kommentare gleichzeitig in Excel einzufügen, kannst du VBA (Visual Basic for Applications) nutzen. Folgende Schritte sind notwendig:
ALT + F11.Einfügen > Modul.Sub Add_Comment()
Dim myCom As String
Dim myC As Range
myCom = InputBox("Kommentartext eingeben", "Kommentartext")
If myCom = "" Then
MsgBox "Keine Kommentare eingefügt"
Exit Sub
End If
For Each myC In Selection
If myC.Comment Is Nothing Then
myC.AddComment
End If
With myC.Comment
.Visible = False
.Text Text:=myCom
End With
Next
End SubALT + F8, wähle Add_Comment und klicke auf Ausführen.Damit kannst du einen Kommentar auf mehrere Zellen beziehen und die Kommentare in mehreren Zellen gleichzeitig einfügen.
Laufzeitfehler beim Ausführen des Makros:
Excel Kommentar einfügen nicht möglich:
Falls du kein VBA verwenden möchtest, gibt es auch eine andere Möglichkeit, Kommentare in mehrere Zellen gleichzeitig einzufügen:
CTRL + C).Inhalte einfügen > Kommentare.Diese Methode erlaubt es dir, alle Kommentare gleichzeitig zu formatieren und in mehrere Zellen zu übertragen.
Hier sind einige praktische Beispiele für die Verwendung des VBA-Codes:
1. Kann ich einen Kommentar in mehreren Zellen gleichzeitig einfügen?
Ja, indem du den oben genannten VBA-Code verwendest, kannst du Kommentare in mehreren Zellen gleichzeitig hinzufügen.
2. Wie kann ich überprüfen, ob bereits ein Kommentar in einer Zelle vorhanden ist?
Im VBA-Code kannst du die Bedingung If myC.Comment Is Nothing nutzen, um zu überprüfen, ob bereits ein Kommentar vorhanden ist, bevor du einen neuen hinzufügst.