Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Kommentar aus einer Zelle auslesen

157 views
Skip to first unread message

Claudius Schulz

unread,
Jun 8, 2001, 11:46:04 PM6/8/01
to
Hi,

Ich habe öfter den Fall, dass ich einen Kommentar aus einer Zelle auslesen
möchte! (Win 2000, Excel 97/2000)
Ziel ist es den Kommentar in der Zelle daneben schriftlich darzustellen.

Danke für Eure Hilfe
Claudius


Ullrich Schwarz

unread,
Jun 9, 2001, 4:26:20 AM6/9/01
to
Hallo Claudius,
verwende folgende kleine benutzerdefinierte Funktion, Aufruf in der Tabelle
'=Kommentar(A1)':

Public Function Kommentar(rg As Excel.Range)
Kommentar = rg.Comment.Text
End Function

MfG Ullrich


"Claudius Schulz" <CLSc...@T-Online.de> schrieb im Newsbeitrag
news:9fs66r$ab6$00$1...@news.t-online.com...

Claudius Schulz

unread,
Jun 9, 2001, 5:18:41 AM6/9/01
to
Danke Ulrich,

kann ich auch nur den Kommentar, ohne den Namen auslesen?

Gruß Claudius

"Ullrich Schwarz" <Ullrich...@gmx.de> schrieb im Newsbeitrag
news:9fsmn9$5ohru$2...@ID-7341.news.dfncis.de...

Ullrich Schwarz

unread,
Jun 9, 2001, 5:56:48 AM6/9/01
to
Hallo Claudius,
der sinnvollere Weg dürfte es wohl sein, den Autor direkt im Kommentar zu
entfernen, enstprechende kleine Tools wurden in dieser NG schon mal
gepostet. Nichtsdestotrotz ein Lösungsvorschlag, folgende Funktion gibt den
Kommentar nur ab dem ersten Doppelpunkt aus:

Public Function Kommentar(rg As Excel.Range)

Application.Volatile
Kommentar = rg.Comment.Text
Kommentar = LTrim(Right(Kommentar, Len(Kommentar) - InStr(1, Kommentar,
":")))
If Asc(Left(Kommentar, 1)) = 10 Then Kommentar = Right(Kommentar,
Len(Kommentar) - 1)
End Function

Noch eine Anmerkung: Das Ergebnis dieser Funktion aktualsiert
sich_nicht_automatisch, wenn_nur_der Kommentartext geändert wird.

MfG Ullrich

"Claudius Schulz" <CLSc...@T-Online.de> schrieb im Newsbeitrag

news:9fspmg$chp$06$1...@news.t-online.com...

Claudius Schulz

unread,
Jun 9, 2001, 6:11:12 AM6/9/01
to
Hi Ullrich,

Danke für Deine Hilfe! Ich glaube du kannst jetzt ins Wochenende gehen. ;-))

By Claudius


"Ullrich Schwarz" <Ullrich...@gmx.de> schrieb im Newsbeitrag

news:9fss0k$5ues6$1...@ID-7341.news.dfncis.de...

Ullrich Schwarz

unread,
Jun 9, 2001, 6:01:48 AM6/9/01
to
Hallo Claudius,
eine Alternativlösung, die ohne "Krücke" (Doppelpunkt) auskommt, die
sonstigen Vorbehalte bleiben bestehen:

Public Function Kommentar2(rg As Excel.Range)
Application.Volatile
Kommentar2 = rg.Comment.Text
Kommentar2 = LTrim(Right(Kommentar2, Len(Kommentar2) - InStr(1, Kommentar2,
":")))
Kommentar2 = Application.WorksheetFunction.Substitute(Kommentar2,
rg.Comment.Author & ":", "", 1)
If Asc(Left(Kommentar2, 1)) = 10 Then Kommentar2 = Right(Kommentar2,
Len(Kommentar2) - 1)
End Function

MfG Ullrich


"Ullrich Schwarz" <Ullrich...@gmx.de> schrieb im Newsbeitrag

news:9fss0k$5ues6$1...@ID-7341.news.dfncis.de...

0 new messages