Anzeige
Archiv - Navigation
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kommentar auslesen und in eine Zelle übertragen

Kommentar auslesen und in eine Zelle übertragen
07.11.2002 18:51:54
NorbertK
Hallo Excelexperten,

ich doktere schon seit Tagen an dem Problem herum,
den Inhalt eines Kommentars (z.B. ein String) in eine
Zelle das gleiche oder eines anderen Arbeitsblatts
als String, Text o. Variant zu übertragen. Hab's mit
den Beispielen aus der neuesten Herber- Excel-CD probiert,
allerdings ohne Erfolg.
Beispiel:
In Zelle C1 steht als Kommentar "Bla Bla".
Wie kommt dieser Text mit VBA nach z.B. E1 ????

Möglicherweise liegt die Lösung - wie häufig nur einen Mausklick entfernt oder in einer Programmzeile.

Wer kann mir helfen??

fast verzweifelt NorbertK

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

Betreff
Datum
Anwender
Anzeige
Re: Kommentar auslesen und in eine Zelle übertragen
07.11.2002 19:14:41
Franz

Sub KommentarÜbertragen()
Dim Kom As Comment
Range("A3").Select ' In Zelle A3 soll der Kommentar übertragen werden
Set Kom = ActiveCell.AddComment
Kom.Text Range("A1").Comment.Text ' In A1 steht der Kommentar
End Sub

[E1] = [C1].Comment.Text
07.11.2002 19:20:21
andre
...
gruss andre
Prima Lösung
07.11.2002 21:02:02
NorbertK
Vielen Dank an Franz!!!!
Eine für mich optimale Lösung sieht aufgrund deines Hinweises jetzt so aus:

Sub KommentarÜbertragen()

Dim Kom As Comment
Worksheets("Tabelle1").Cells(3, 1).Select
Set Kom = ActiveCell.Comment
Worksheets("Tabelle1").Cells(5, 1).Value = Worksheets_("Tabelle1").Cells(3, 1).Comment.Text

End Sub

Anzeige
Re: Prima Lösung
08.11.2002 05:40:56
andre
Hallo Norbert,
für kurzen code:
die ersten 3 Zeilen kannst Du weglassen
es reicht die Zeile mit Worksheets...
(ist analog meinem Vorschlag [c3]=...)
gruss andre
Re: [E1] = [C1].Comment.Text
08.11.2002 18:30:19
NorbertK
Hallo andre

Einwand statt gegeben, Euer Ehren!

Für Schleifendurchläufe brauche ich aber die
"Cells"-Version.

Nochmal vielen Dank
Gruß NorbertK

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige