Hallo Disa,
So wie Du es Dir allerdings vorgestellt hattest, dass man ein Kommentar einfügt und danach in den Bearbeitungszustand gelangt geht glaube ich nicht. jedenfalls fällt mir nicht ein, wie. Daher nachfolgend mal ein Makro, dass Dir in die aktive Zelle ein Kommentarfeld mit einem Text, den Du in eine InputBox eintragen musst, einträgt.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
[b]Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.[/b]
[b][code] Option Explicit
Sub Lommentarfeld_einfuegen()
Dim objComment As Comment
Dim strKommentarText As String
Dim intMeldung As Integer
'Wenn kein Kommentar vorhanden, Kommentar einfügen
If ActiveCell.Comment Is Nothing Then
Anfang:
'Eingabe des Kommentartextes
strKommentarText = InputBox("Bitte Kommentartext eintragen", "Kommentartext einfügen...", ActiveCell.Value)
'Kommentarfeld setzen
Set objComment = ActiveCell.AddComment
'Formatierung des Kommentarfeldes
With objComment
With .Shape.TextFrame.Characters
.Text = strKommentarText
'Textformatierung
.Font.Name = "Arial"
.Font.Size = 7
.Font.Bold = True
End With
.Visible = False
'Größenformatierung
.Shape.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft
.Shape.ScaleWidth 1.3, msoFalse, msoScaleFromTopLeft
End With
Set objComment = Nothing
'Wenn Kommenar vorhanden, abfragen ob gelöscht werden soll
Else
intMeldung = MsgBox("Bereits ein Kommentar vorhanden. Diesen löschen?", _
vbQuestion + vbYesNo, "Kommentar vorhanden, löschen?")
If intMeldung = 6 Then
ActiveCell.Comment.Delete
GoTo Anfang
End If
End If
End Sub
[/code][/b] Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf [url=
http://www.excelbeispiele.de] [b][u] meiner HP [/u][/b][/url] in der [b] Rubrik Anleitungen [/b]und dort dann in der[b] Anleitungsnummer 3 [/b]nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]