VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Doppelklick Textbox mit Text einfügen

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Bei Doppelklick Textbox mit Text einfügen

Problem

Wie kann ich bei einem Doppelklick auf eine Zelle in Abhängigkeit vom Zellinhalt eine Textbox mit Text einfügen?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle2

Private Sub Worksheet_BeforeDoubleClick( _
   ByVal Target As Range, Cancel As Boolean)
   Dim oTxtBox As Object
   If Target.Column <> 1 Then Exit Sub
   If Target.Cells.Count > 1 Then Exit Sub
   Cancel = True
   With Target.Offset(0, 1)
      Set oTxtBox = Me.TextBoxes.Add( _
         .Left, .Top, .Width, .Height)
   End With
   oTxtBox.Text = "Text zu " & Target.Value
End Sub

    


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