Nach "Enter" in eine bestimmte Zelle springen
Schritt-für-Schritt-Anleitung
Um in Excel nach der Eingabe in eine bestimmte Zelle zu springen, kannst du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass, wenn du in Zelle A9 etwas eingibst und die Enter-Taste drückst, du automatisch in Zelle B12 springst.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Doppelklicke auf das Arbeitsblatt, auf dem du die Funktion implementieren möchtest.
-
Füge den folgenden Code in das Modul ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$9" Then Range("B12").Select
End Sub
-
Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.
-
Teste die Eingabe in Zelle A9 und drücke Enter. Du solltest nun nach B12 springen.
Um sicherzustellen, dass der Sprung auch bei gleichbleibendem Wert erfolgt, kannst du den SelectionChange-Event verwenden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$10" Then Range("B12").Select
End Sub
Häufige Fehler und Lösungen
-
Problem: Der Code funktioniert nicht, wenn ich den Wert in A9 nicht ändere.
- Lösung: Verwende den
SelectionChange-Event wie oben beschrieben.
-
Problem: Nach der Eingabe springt Excel nicht zur gewünschten Zelle.
- Lösung: Stelle sicher, dass der VBA-Code im richtigen Arbeitsblattmodul eingefügt wurde.
Alternative Methoden
Wenn du nicht mit VBA arbeiten möchtest, kannst du auch die Excel-Einstellungen anpassen, um das Verhalten von Enter zu ändern:
- Gehe zu
Datei > Optionen.
- Klicke auf
Erweitert.
- Suche nach der Option „Nach dem Drücken der ENTER-Taste, den Cursor verschieben“ und wähle „Nach unten“ oder eine andere Richtung aus. Dies ändert jedoch nur die Bewegung in die nächste Zelle und nicht gezielt in eine bestimmte Zelle.
Praktische Beispiele
-
Beispiel 1: Wenn du in Zelle A10 etwas eingibst, möchtest du, dass Excel nach B12 springt. Verwende den SelectionChange-Event:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$10" Then Range("B12").Select
End Sub
-
Beispiel 2: Du möchtest nach der Eingabe in A15 nach C20 springen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$15" Then Range("C20").Select
End Sub
Tipps für Profis
- Verwende den
Application.OnKey-Befehl, um die Enter-Taste zu überschreiben und benutzerdefinierte Bewegungen zu definieren.
- Halte deinen VBA-Code gut kommentiert, damit du später leichter Änderungen vornehmen kannst.
- Teste den Code immer in einer Kopie deines Arbeitsblatts, um ungewollte Änderungen zu vermeiden.
FAQ: Häufige Fragen
1. Wie kann ich nach der Eingabe in mehrere Zellen springen?
Du kannst mehrere If-Bedingungen im Worksheet_Change-Event verwenden, um verschiedene Zielzellen zu definieren.
2. Funktioniert dies auch in Excel Online?
Nein, VBA ist nur in Desktopversionen von Excel verfügbar. In Excel Online kannst du diese Funktion nicht implementieren.
3. Was passiert, wenn ich mehrere Arbeitsblätter habe?
Du musst den Code in jedes Arbeitsblattmodul einfügen, in dem du diese Funktionalität benötigst.