Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Neuestes Kommentar immer zuoberst im Kommentarfeld

Forumthread: Neuestes Kommentar immer zuoberst im Kommentarfeld

Neuestes Kommentar immer zuoberst im Kommentarfeld
15.08.2014 13:33:51
Olaf
Hallo liebe Helfer
Ich möchte, dass das neueste Kommentar jeweils in der ersten Zeile im Kommentarfeld steht und nicht wie hier, jeweils unten angefügt wird. Kann mir bitte jemand helfen.
Danke und Gruss
Olaf
With ActiveCell
If .Comment Is Nothing Then
strNewComment = Date & ", " & Application.UserName & ": " & InputBox("Neues Kommentar erfassen") & Chr(10)
.AddComment strNewComment
Else
strAddComment = .Comment.Text & Date & ", " & Application.UserName & ": " & _
InputBox("Kommentar " & _
"ergänzen")
.ClearComments
.AddComment strAddComment & Chr(10)
End If
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
End With

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neuestes Kommentar immer zuoberst im Kommentarfeld
15.08.2014 13:47:12
Rudi
Hallo,
einfach umdrehen.
strAddComment = Date & ", " & Application.UserName & ": " & _
InputBox("Kommentar " &  "ergänzen") &chr(10) & .Comment.Text
Gruß
Rudi

AW: Neuestes Kommentar immer zuoberst im Kommentarfeld
15.08.2014 14:08:53
Olaf
Ciao Rudi
Auch dir Danke für die rasche Antwort.
UND nochmals Danke für dein Feedback (Ende Juli) zu meinem Thread Code-Optimierung ;-)
Gruss Olaf

Anzeige
AW: Neuestes Kommentar immer zuoberst im Kommentarfeld
15.08.2014 13:47:54
Klaus
Hi Olaf,
einfach den String umdrehen.
also statt ".comment.Text & neu" machst du "neu & .comment.text". Die Logik des Zeilenumbruchs nicht vergessen anzupassen:
With ActiveCell
If .Comment Is Nothing Then
strNewComment = Date & ", " & Application.UserName & ": " & InputBox("Neues Kommentar  _
erfassen")
.AddComment strNewComment
Else
strAddComment = Date & ", " & Application.UserName & ": " & InputBox("Kommentar " & "ergä _
nzen") & Chr(10) & .Comment.Text
.ClearComments
.AddComment strAddComment & Chr(10)
End If
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
End With

(ungetestet)
Grüße,
Klaus M.vdT.

Anzeige
AW: Neuestes Kommentar immer zuoberst im Kommentarfeld
15.08.2014 14:07:02
Olaf
Ciao Klaus.
So einfach kann's sein...
Danke & Gruss
Olaf

Danke für die Rückmeldung! owT.
15.08.2014 14:14:10
Klaus
.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige