Zellinhalte in Kommentare einfügen - VBA

30/10/2007 - 11:03 von m-mahle | Report spam
Hallo Forum,

wieder ein VBA-Newbie Problem:

Ich habe eine Tabelle mit Personalnummern und dem Ausbildungsstand dieser
Leute.

Jetzt versuche ich auf einer anderen Tabelle diese Ausbildungsstànde als
Kommentar zur jeweiligen Person zuzuordnen. Das funktioniert soweit, dass der
Kommentar zwar gesetzt und der Text drinsteht, nur leider nie der Inhalt der
Quelltabelle, sondern nur die Formel als Text:

Private Sub CommandButton1_Click()


With Range("B6")
.ClearComments
.AddComment
FormulaR1C1 = "=+Personalübersicht!R[-3]C[3]"
.Comment.Text Text:=FormulaR1C1
Range("B6").Select


End With
End Sub
-

Wie bekomme ich den tatsàchlichen Inhalt (hier
'Personalübersicht!R[-3]C[3]') in den Kommentar der Zielzelle (B6)?

Vielen Dank für die Hilfe, auch wenns nicht so anspruchsvoll ist ;-)

Viele Grüße

Michael Mahle
 

Lesen sie die antworten

#1 Claus Busch
30/10/2007 - 11:15 | Warnen spam
Hallo Michael,

Am Tue, 30 Oct 2007 03:03:02 -0700 schrieb m-mahle:

Wie bekomme ich den tatsàchlichen Inhalt (hier
'Personalübersicht!R[-3]C[3]') in den Kommentar der Zielzelle (B6)?



probiers mal so:
Dim strCom As String

strCom = Sheets("+Personalübersicht").Range("E3")

With Range("B6")
.ClearComments
.AddComment strCom
End With


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen