Gruppe
Ereignis
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?
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