Kommentar in andere Zelle schreiben
04.01.2014 18:15:29
Marc
ich suche eine Möglichkeit wenn ich in dem Tabellenblatt "Gesamtübersicht" zb. in "h80" einen Kommentar einfüge, diesen direkt in einem anderen Tabellenblatt "Kommentar" ebenfalls in "h80" zuschreiben.
Alerindings soll er in dem Tabellenblatt "Kommentar", den Kommentar in die Zelle Schreiben und nicht als richtigen Kommentar einfügen.
Bisher füge ich die Kommentare mithilfe einer Inputbox ein. Durch das Klicken des cmb2 soll der Kommentar dann in die entsprechende Zelle auf dem Tabellenblatt "Kommentar" eingefügt werden.
Private Sub CommandButton2_Click()
Dim strComment As String
With ActiveCell
If .Comment Is Nothing Then
strComment = InputBox("Bitte den Kommentar eingeben.", "Kommentar einfügen")
If strComment = "" Then Exit Sub
.AddComment
With .Comment
.Text Text:=strComment
.Shape.TextFrame.AutoSize = True
End With
Else
strComment = InputBox("Bitte den Kommentar ergänzen." & vbLf & vbLf & ActiveCell. _
Comment.Text, "Kommentar ergänzen")
.Comment.Text Text:=.Comment.Text & " " & strComment
End If
End With
End Sub
Ich habe auch schon versucht das ganze mit dem Folgenden Code zulösen, sobald ich aber diesen anwende benötigt er für alles extrem viel zeit zum rechnen!
Public Function Kommentar(Zelle As Range) As String
Application.Volatile
If Zelle.Cells.Count 1 Then Exit Function
On Error GoTo Fehler
Kommentar = Zelle.Comment.Text
Exit Function
Fehler:
Kommentar = ""
End Function
Danke schon mal für Hilfe!!
gruß