Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Auf Doppelklick Zeilenumbruch und "X"
Gruppe
BeforeDoubleClick
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