vba - automatisch verschieben in nächste Zelle

Ich viele 5-stellige zahlen eingeben (z.B. 12345, 23456)in Spalte A.

Gibt es eine Möglichkeit, automatisch weiter zur nächsten Zeile auf Spalte A, sobald ich enter 5-stellige Zahl, in meine Zelle aktivieren?

Meinst du, ohne Sie zu berühren die ENTER - Taste ??
Sie können, aber Sie sollte nicht.
Ja, das ist es, was ich meine.
Zwar gibt es einige tolle Lösungen hier, ehrlich gesagt, würden Sie gewinnen mehr durch immer geübter bei der Eingabe von Daten in der üblichen Weise. Es sei denn, Sie planen, die nur die Eingabe eines Konstanten string von 5 Zeichen Zeichen für die nächsten Monate, in dem Fall... der Ansicht, eine neue Karriere...

InformationsquelleAutor pexpex223 | 2015-03-15

3

Ersten Spalte "format" Eine zu Text

Geben Sie dann die folgenden Ereignis-Makro in das Arbeitsblatt code-Bereich:
```
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range, L2 As Long, Leftover As Long
    If Target.Count > 1 Then Exit Sub
    Set A = Range("A:A")
    If Intersect(Target, A) Is Nothing Then Exit Sub
    v = Target.Text
    L2 = Len(v) / 5
    Leftover = Len(v) - 5 * L2
    j = 1

    Application.EnableEvents = False
        For i = 1 To L2
            Target.Offset(i - 1, 0).Value = Mid(v, j, 5)
            j = j + 5
        Next i
        If Leftover = 0 Then
        Else
            Target.Offset(L2, 0).Value = Mid(v, j)
            L2 = L2 + 1
        End If
        Target.Offset(L2, 0).Select
    Application.EnableEvents = True
End Sub
```
Dann klicken Sie irgendwo in die Spalte Eine und beginnen Sie mit der Eingabe von Ziffern oder Buchstaben. Wenn Sie fertig sind (oder müde) Tippen Sie auf die Enter - Taste.

Ihre Daten werden am Ende verteilt in Gruppen von 5 nach unten mit dem cursor in die erste Zelle unter der eingegebenen Daten.

Weil es ist Arbeitsblatt-code, es ist sehr einfach zu installieren und automatisch zu verwenden:
1. der rechten Maustaste auf dem Namen der Registerkarte am unteren Rand des Excel-Fenster
2. wählen Sie Code Anzeigen - das bringt eine VBE-Fenster
3. paste die Sachen in, und schließen Sie das VBE-Fenster
Wenn Sie irgendwelche Bedenken haben, versuchen Sie zuerst, es auf einen Versuch Arbeitsblatt.

Wenn Sie die Arbeitsmappe speichern, wird das makro wird gespeichert.
Wenn Sie eine version von Excel später dann, 2003, die Sie speichern müssen
die Datei als .xlsm statt .xlsx

Entfernen Sie das makro:
1. um das VBE-Fenster wie oben
2. klar, den code aus
3. schließen Sie das VBE-Fenster
Erfahren Sie mehr über Makros im Allgemeinen finden Sie unter:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

und

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Erfahren Sie mehr zu Ereignis-Makros (Arbeitsblatt code), siehe:

http://www.mvps.org/dmcritchie/excel/event.htm

Makros müssen aktiviert sein, damit dies funktioniert!
- Hallo Gary, Das ist so ein eleganter code. Ich Liebe es! Aber noch, ist es möglich, automatisch nach unten bewegen Sie den Mauszeiger? ich habe versucht den code unten. aber ich werde nicht in der Lage, wählen Sie die Zelle aus, die bereits 5 Ziffern Länge wieder. SelectionChange(ByVal Target As Range) If Len(Target) = 5, ActiveCell.Offset(1, 0).Wählen Sie
- Meine interpretation der Frage ist: wenn der Benutzer die Eingänge 5 Ziffern, excel wählt automatisch die nächste Zelle. Ich nehme an, es könnte getan werden, mit einer textbox zu ändern, aber das wäre ein heck einer Menge von Textfeldern. Führen Sie irgendeine Art von Maßnahmen, um für das worksheet-change-Ereignis auslösen.
- Ist es möglich, es zu tun mit einfach auswählen und ändern, anstatt textbox?
- Das eigentliche problem ist das auslösen eines Ereignisses, wenn der Benutzer im Edit-Modus.............könnte möglich sein, mit einer UserForm.............
InformationsquelleAutor Gary's Student
2

Ja eine userform oder sogar ein ActiveX-textbox funktionieren könnte.

Einfügen Textbox

Rechten Maustaste auf Textfeld, und wählen Sie code anzeigen.

verwenden dieser code gibt.

Oder kopieren und fügen Sie den code, Stellen Sie sicher, dass die Textfelder sind die gleichen Namen wie im code
```
Private Sub TextBox1_Change()
    If Len(Me.TextBox1) = 5 Then
        Me.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Me.TextBox1.Value
        Me.TextBox1.Text = ""
    End If
End Sub
```
Beginnen Sie mit der Eingabe in die textbox, sobald Sie 5-stellig, es wird der text in die 1. leere Zelle in Spalte A und deaktivieren Sie das Textfeld ein.

InformationsquelleAutor Davesexcel
2

hier ist eine andere option, die möglicherweise Ihr problem lösen.
1. Öffnen Sie die developer-tool-Registerkarte
2. Fügen Sie ein neues Textfeld einer beliebigen Stelle auf Ihrem Blatt
3. Fügen Sie den folgenden code durch einen Doppelklick auf die textbox.
Private Sub TextBox1_Change() If Len(TextBox1.Value) = 5 Then ActiveCell.Value = TextBox1.Value ActiveCell.Offset(1, 0).Activate TextBox1.Value = "" TextBox1.Activate End If End Sub
1. Deaktivieren Sie den Entwurfsmodus, indem Sie auf das Dreieck mit dem Stift(auch in der developer-tool-tab).
2. Stellen Sie sicher, dass Sie in die Rechte Zelle und geben Sie anschließend in das Textfeld ein.
cya
Amnney

InformationsquelleAutor Amnney

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.