Thema: Bei Doppelklick Hilfetext als Kommentar anzeigen.

Home

Gruppe

Ereignis

Problem

Bei Doppelklick auf eine Zelle soll aus einer Textdatei ein zugehöriger Hilfetext aus- und in einen Kommentar eingelesen werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim cmt As Comment
   Dim sHelp As String, sTxt As String, sFile As String
   If Intersect(Target, Range("A1:C1")) Is Nothing Then Exit Sub
   Cancel = True
   sFile = ThisWorkbook.Path & "\12help" & Target.Column & ".txt"
   If Dir(sFile) = "" Then
      sHelp = "Keine Hilfedatei gefunden!"
   Else
      Close
      Open sFile For Input As #1
      Do Until EOF(1)
         Line Input #1, sTxt
         sHelp = sHelp & sTxt & vbLf
      Loop
      Close
   End If
   If Not ActiveCell.Comment Is Nothing Then
      ActiveCell.Comment.Delete
   End If
   Application.DisplayCommentIndicator = xlCommentAndIndicator
   Set cmt = ActiveCell.AddComment(sHelp)
   cmt.Shape.TextFrame.AutoSize = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeDoubleClick

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ??	Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter	Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Ereignis von Laufzeit-Checkbox	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Worksheet_BeforeDoubleClick
Objekt_Error - Ereignis in UserForm	change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen?	Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse	Ausnahmen für Exit-Ereignis
Worksheet_BeforeDoubleClick	Exit-Ereignis SetFocus
select Ereigniss UF Show	Ereignis zeitweise mit Fehler
Ereignismakro	Worksheet_BeforeDoubleClick
Selectereigniss in Spalte	doppeltes Klick-Ereignis
Doppelklick-Ereignis	VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht	Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten	Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an	Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic	change ereigniss nicht ausführen Userform
Exit Ereignis	Rekursiven Aufruf von Ereignissen verhindern
Makro läuft nicht, falsches Ereignis?	Dropdown Ereignis