ich hab da mal ne´Frage. Ich bin dabei eine Tabelle zu entwerfen, die aussieht wie ein Formular. Wie erreiche ich es, daß der Courser automatisch nach jedem Buchstaben in die nächste Zelle nach rechts springt ?
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