VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Auf Doppelklick Zeilenumbruch und X

Gruppe

Ereignis

Bereich

BeforeDoubleClick

Thema

Auf Doppelklick Zeilenumbruch und X

Problem

Wie kann ich auf Doppelklick einen Zeilenumbruch so erzeugen, daß in der ersten Zeile ein "X" und in der zweiten Zeile der ursprüngliche Test steht?

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)
   If Target.Row <> 1 Or Target.Column > 31 Then Exit Sub
   Cancel = True
   If InStr(Target.Value, vbLf) Then
      Target.Value = WorksheetFunction.Substitute(Target.Value, vbLf & "X", "")
   Else
      Target.Value = Target.Value & vbLf & "X"
   End If
End Sub

    


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