AW: Comment teilweise auslesen für Zelleneintrag
03.08.2011 13:42:20
Klaus
Hallo Rudi,
Vielen Dank! Dein Beispiel funktioniert für die gesamte Seite. Aber es sollte nur in einem vorher ausgewählten Bereich (kann aus einer oder mehrere Zellen bestehen) funktionieren.
Mein Wunsch:
Sub Zahl_aus_Kommentar()
Dim cmt As Comment
Dim Bereich As Range
Set Bereich = Application.InputBox _
(prompt:="Zelle oder Bereich(e) (nur mit roter Schrift und Inhalt) markieren," & _
" für die die Zahl im jeweiligen Kommentar verwendet werden soll.", Type:=8)
If bereich Is Nothing Then Exit sub
Bereich.Select
For each cmt in Bereich.comments
' For Each cmt In Bereich.Comments 'ActiveSheet.Comments
With cmt.Bereich.DrawingObject
If InStr(.Text, ":") Then
cmt.Parent = Trim(Mid(.Text, InStrRev(.Text, ":") + 1)) * 1
End If
End With
Next
End Sub
Schon "For each cmt in Bereich.comments" bringt Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438).
Wo ist mein Fehler?
Gruß Klaus