Wie kann man automatisch zur nächsten Zelle nach der Eingabe in Excel wechseln?

In diesem Artikel stelle ich Tricks vor, um den Cursor automatisch zur nächsten Zelle zu bewegen, um eine Sequenznummer einzugeben, ohne die Eingabetaste in Excel zu drücken.

Automatisches Wechseln zur nächsten rechten Zelle nach der Eingabe von 4 Ziffern ohne Drücken der Eingabetaste mit VBA

Automatisches Ausfüllen einer 4-stelligen Serie mit Kutools für Excel

Automatisches Wechseln zur nächsten rechten Zelle nach der Eingabe von 4 Ziffern ohne Drücken der Eingabetaste mit VBA

Hier ist ein VBA-Code, der Ihnen helfen kann, automatisch zur nächsten rechten Zelle zu wechseln, nachdem Sie eine 4-stellige Zahl eingegeben haben, ohne die Eingabetaste zu drücken.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden VBA-Code in das Modul-Skript ein. Siehe Screenshot:

VBA: Automatisches Wechseln zur nächsten rechten Zelle nach der Eingabe einer 4-stelligen Zahl.

Sub FourCharEntry1()
'UpdatebyExtendoffice20160614
    Dim xStr As String
    Dim I As Integer
    Dim K As Integer
    xStr = Application.InputBox("Enter string", "Kutools for Excel", , , , , , 2)
    K = 0
    Application.ScreenUpdating = False
    For I = 1 To Len(xStr) Step 4
        ActiveCell.Offset(0, K) = "'" & Mid(xStr, I, 4)
        K = K + 1
    Next
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie die F5 Taste, um den Code auszuführen, und ein Kutools für Excel Dialogfenster wird angezeigt, in dem Sie Sequenznummern ohne Trennzeichen eingeben können. Siehe Screenshot:

4. Klicken Sie auf OK. Nun wurden alle 4 Ziffern von links nach rechts in eine Zelle platziert.

Tipp: Wenn Sie 5-stellige, 6-stellige… Zahlen in eine Zelle eingeben möchten, können Sie die 4 im Code in 5, 6 oder andere ändern.

Automatisches Ausfüllen einer 4-stelligen Serie mit Kutools für Excel

Mit Kutools für Excel – einem praktischen Tool – können Sie Seriennummern automatisch in einen Bereich einfügen, ohne die Eingabetaste mit dessen Funktion „ Sequenznummer einfügen“ zu drücken.

Nach der kostenlosen Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie eine Spalte oder eine Zeile aus, die Sie mit einer Serie füllen möchten, und klicken Sie auf Kutools > Einfügen > Sequenznummer einfügen. Siehe Screenshot:

2. Im Sequenznummer einfügen Dialogfenster klicken Sie auf Neu , um das Dialogfenster zu erweitern. Siehe Screenshot:

3. Geben Sie dann die Serie wie benötigt an. Siehe Screenshot:

4. Klicken Sie auf Hinzufügen > Bereich ausfüllen, dann wird der ausgewählte Bereich automatisch mit den Seriennummern ausgefüllt.

Tipp: Mit der Funktion Sequenznummer einfügen können Sie auch wiederholte Serien einfügen. Aktivieren Sie die Option Endnummer im Dialogfeld, geben Sie die gewünschte Endnummer in das rechte Textfeld ein, und die Seriennummern werden alle 10 Zahlen wiederholt ausgefüllt. Siehe Screenshot: