Tastenkombination Alt Enter mittels VBA erzeugen?
29.07.2005 12:44:38
Oliver
ich benötige noch mal Eure Unterstützung. Man kann doch, wenn man in einer Zelle etwas schreibt, einen Zeilenumbruch mit der Tastenkombination Alt Enter erzwingen. Hat man auch die Möglichkeit, dass wenn man in einer bestimmten Zelle, z.B. A1, schreibt, das nach dem Betätigen der Entertaste nicht die Zelle verlassen wird, sondern dieser Zeilenumbruch mittels VBA erzeugt wird und ich dann in dieser Zelle weiterschreiben kann?
Ich habe es mal mit nachfolgenden Anweisungen versucht, aber nur mit einem Teilerfolg. Durch ein SelectionChange-Ereignis wird zugewiesen, dass wenn in der Zelle A1 die Entertaste betätigt wird, das Makro "Zeilenumbruch" ausgeführt werden soll. Dieses Makro ließt dann den Text aus, erzeugt einen Zeilenumbruch und fügt beides wieder in Zelle A1 ein. Nur leider kann ich dann nicht gleich wieder weiterschreiben, sondern muss entweder in die Zelle doppelt klicken oder die F2-Taste betätigen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Address = "$A$1" Then
Application.OnKey "{ENTER}", "Zeilenumbruch"
Application.OnKey "~", "Zeilenumbruch"
Else
Application.OnKey "{ENTER}"
Application.OnKey "~"
End If
End Sub
Sub Zeilenumbruch()
Dim Text As String
Text = Range("A1").Text
Range("A1").FormulaR1C1 = Text & Chr(10)
End Sub
Kann mir da jemand eventuell etwas zu sagen oder sogar den dazu benötigten VBA Code hier hin schreiben? Das wäre riesig.
Danke schon mal im Vorfeld,
Oliver