Kommentar-Position frei wählbar?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Dim zelle As Range On Error Resume Next Set rng = Me.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If Not rng Is Nothing Then For Each zelle In rng If Intersect(zelle, Target) Is Nothing Then zelle.Comment.Visible = False Else With zelle.Comment .Shape.Top = zelle.MergeArea.Top + zelle.MergeArea.Height + 5 .Shape.Left = zelle.MergeArea.Left + zelle.MergeArea.Width - .Shape.Width - 5 .Visible = True End With End If Next End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Dim zelle As Range Application.EnableEvents = False Me.Unprotect On Error Resume Next Set rng = Me.Cells.SpecialCells(xlCellTypeComments) On Error GoTo 0 If Not rng Is Nothing Then For Each zelle In rng If Intersect(zelle, Target) Is Nothing Then zelle.Comment.Visible = False Else With zelle.Comment .Shape.Top = zelle.MergeArea.Top + zelle.MergeArea.Height + 5 .Shape.Left = zelle.MergeArea.Left + zelle.MergeArea.Width - .Shape.Width - 5 .Visible = True End With End If Next End If Me.Protect Application.EnableEvents = True End Sub

…und deshalb kurz und bündig mit Nein geantwortet, Mike,
und sich so weiteren Erklärungsaufwand erspart.
Ich habe dir gesagt, was möglich wäre. Da das aber offensichtlich nicht zur Organisation deiner Mappe passt, musst du mit Nepumuks AW leben.
Mein Vorschlag wäre es sonst gewesen, dass in dem Fall, dass der Kommentar aus dem (Seiten-)Rahmen läuft und ggf gar nicht zu sehen ist, auf die kommentartragende Zelle geklickt wird. Dazu muss sie aber praktischerweise auswählbar sein. Wenn gleichzeitig auch die Indikatoren für die AutoAnzeige bei MauszeigerBerührung angezeigt wdn sollen, muss auch die Positionierung im EreignisPgmCode festgelegt wdn. Wenn die Indikatoren nicht angezeigt wdn, ist das nicht erforderlich (die AutoAnzeige löscht bei Auswählbarkeit der Zelle die zuletzt gemerkte Position).
Falls die Zellen nicht auswählbar bleiben sollen, muss festgelegt wdn, welcher Kommentar bei Klick auf welche auswählbare Zelle angezeigt wdn soll. Anderenfalls kann man alle Kommentare (ggf nur die in einem bestimmten Abstand von der Klickzelle) durchgehen und sie anzeigen bzw bereits angezeigte ausblenden.
Es wäre auch zu überlegen, ob dann nicht besser Legenden-Objekte verwendet wdn sollten, die man ein- und ausblenden kann, letzteres sogar durch Klick auf das Objekt (Kommentar-Objekten kann man kein AufrufMakro direkt zuordnen, anderen ZeichnungsObjekten aber wohl).
Einfach mal ansehen, was das Xl/VBA-ObjektModell zu Comment so an Eigenschaften und Methoden bereit hält. Gleiches gilt für das TabBlatt, speziell seine Ereignisse. Nachfolgend 2 Bspp:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Me.Cells(1, 1)    'Kommentar in gesperrter Zelle A1
If Not .Comment Is Nothing Then .Comment.Visible = Not .Comment.Visible
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target        'Kommentar in beliebiger ungesperrter Zelle
If Not .Comment Is Nothing Then .Comment.Visible = Not .Comment.Visible
End With
End Sub

Luc :-?

…sollte sich nicht derartige Ziele stellen, Mike;
anderenfalls muss er sich halt damit auseinandersetzen! ;-]
Ohne VBA-Pgmm hast du keine Chance, das zu realisieren. Wenn eine Datei solche enthält, muss sie auch als .xlsm bzw .xlsb gespeichert wdn. Nur, wenn alle Pgmm über ein AddIn (.xlam/b) abgearbeitet wdn können, ist das nicht erforderlich. Das wäre beim hochgeladenen Bsp aber nur für die beiden Fktt im (Standard-)Modul1 ohne tiefgreifendere Veränderungen möglich (sie müssten ggf als benannte Fmln formuliert wdn, auf die die sie benutzenden BedingtFormat-Regeln über ihren Namen zugreifen). Das Ereignis im DokumentKlassenModul des Blattes Tabelle1 müsste in diesem Fall über das Application-Objekt und seine DokumentKlassen erfolgen. Das ist aber standardmäßig nicht vorhanden und müsste erst angelegt wdn — dann natürlich im AddIn.
Legenden-Objekte sind Zeichnungs-Objekte wie Rechtecke, Kreise u.a., die man über Einfügen erzeugen und hinzufügen kann. Das Wissen darum gehört allerdings auch zu guten Xl-Kenntnissen. In der BspDatei bin ich aber bei Kommentar-Objekten geblieben.
Da wir von dir keine eigene BspDatei zV haben, musst du versuchen, das, was die BspDatei zeigt, auf deine OriginalDatei zu übertragen. Dabei bitte beachten, dass ein bestimmter Name für eine benannte Konstante definiert wird(/wurde), der von der 1.BedingtFormat-Regel (falls du das übernehmen willst) und vor allem der EreignisProzedur, die auf die ZellAuswahl reagiert, benötigt wird. Die anderen BedingtFormat-Regeln benötigen zT die beiden Fktt aus Modul1 und dienen der unterschiedlichen Zeilen-/ZellFärbung (Verbesserung der Lesbarkeit, AnzeigeUnterscheidung von Eingabe- und SperrZellen).
Beim Öffnen der hochgeladenen BspDatei müssen die beiden Fragen (Bearbeitung und Inhalte aktivieren) bestätigt wdn.
Achtung! Link ist maussensitiv!
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Kommentar-Position frei wählbar?

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread