Office: (Office 2007) Wie kann ich per VBA Kommentare automatisch anzeigen lassen?

Guten Abend zusammen,

ich habe zwar das Forum durchsucht und bereits auch schon gegoogelt, aber leider keine Lösung für mein Problem gefunden. Im Grunde handelt es sich um eine Banalität an der ich aber mittlerweile verzweifle.

Ich habe einige Zellen in denen ich einen Kommentar hinterlegt habe. Fahre ich nun mit der Maus auf das Dreieck, dann wird der Kommentar angezeigt. Das passiert aber nicht wenn ich die Zelle über die Pfeiltasten auswähle oder den Cursor hineinstelle.

Daher meine Frage an Euch. Gibt es eine Lösung per VBA bei der Anwahl einer bestimmten Zelle (z. B. A5), egal ob über die Pfeiltasten oder per Mausklick, das Kommentarfeld automatisch einzublenden und beim Verlassen der Zelle wieder auszublenden?

Für eure Hilfe wäre ich euch dankbar.

Thomas

:)

 

Hi Thomas,


kopiere folgenden Code in das Modul "DieseArbeitsmappe".


' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
With Target(1, 1)
If Not .Comment Is Nothing Then .Comment.Visible = True
End With
End Sub

 

\@ josef e

Hallo und guten Morgen,

vorab vielen Dank für deine sehr schnelle Antwort. Im Grunde funktioniert dein Script auch, aber ...

Wenn ich in der Zelle A1 einen Kommentar hinterlege wird er mit deinem Script auch beim Überfahren mit dem Cursor angezeigt. Hinterlege ich aber in A5 einen Kommentar und ändere den Code auf

PHP:

         With Target(5, 1)


 

Hi Thomas,


kann mich nicht erinnern, das ich geschrieben hätte, du solltest den Code irgendwo ändern! Probier den Code einfach so, wie ich in gepostet habe.

Deine weitere Frage verstehe ich nicht, bitte genauer erläutern.

 

\@ josef e

Hallo nochmal,

ich muss mich entschuldigen. Ich bin mangels Know How davon ausgegangen, dass die With Zeile die Reihe und Spalte angibt in der der Kommentar liegt. Erst auf deine zweite Mail hin habe ich bemerkt, dass jedes Kommentarfeld in der Arbeitsmappe automatisch geöffnet wird.

Ingnoriere bitte meinen zweiten Post, denn deine Lösung reicht mir allemal. Ein Bonbon wäre allerdings noch wenn man die Tabelle und Zeile/Spalte angeben könnte in der ein Kommentar steht und nur diesen öffnet. *wink.gif*

Danke nochmal.

Thomas *Smilie

 

Hi Thomas,



dannn lege diesen Code in das Modul der entsprechenden Tabelle.



' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$5" Then
Range("A5").Comment.Visible = True
Else
Range("A5").Comment.Visible = False
End If
End Sub