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