Microsoft Excel

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