AW: Zellensprung nach jedem Buchstaben
02.10.2006 21:49:27
Daniel
Hallo,
daß der Cursor nach nach eingabe eines Buchstabens direkt ins nächste Feld springt, ist meines bescheinden Wissens nach nicht möglich, bzw dazu müsste man ziemlich tief ins System eingreifen oder jeder Taste ein Makro zuordenen, das eben dies tut.
Aber vielleicht erfüllt ja dieses Makro deine wünsche.
Es verteilt nach drücken der Entertaste den eingegeben Text Buchstabenweise auf die rechts angrenzenden Zellen.
Es muß im Codebereich zu der Tabelle eingeben werden, in der es laufen soll.
Bei Bedarf wäre es sogar möglich, dieses Verhalten auf einen bestimmten Zellbereich einzugrenzen un Beispiel gehts nur in Spalte A, bei eingabe in anderen Spalten verhält sich Excel normal
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim Text As String
Text = Target(1).Value
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim Text As String
Text = Target(1).Value
'---Einschränkung Zellbereich, nur bei Eingaben in spalte A
If Target.Column <> 1 Then Exit Sub
'---sicherheitsabfragen
If Target.Cells.Count > 1 Then Exit Sub
If Len(Text) + Target.Column > 254 Then
MsgBox ("Text ist zu lang.")
Exit Sub
End If
'--- Text verteilen
Application.EnableEvents = False
For i = 1 To Len(Text)
Target(1).Offset(0, i - 1).Value = Mid(Text, i, 1)
Next
Application.EnableEvents = True
End Sub
Gruß, Daniel