Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nach enter eingabe in gleiche Zelle bleiben

Nach enter eingabe in gleiche Zelle bleiben
20.09.2017 10:57:49
kurt
Hall zusammen
Ich möchte nach einem "Return/Enter" immer in der aktive Zelle eines definiertes Zellenbereich bleiben.
Zellenbereich ist z.B. B5:K20, soll nur in einem Tabellenblatt für ein bestimmte Zellenbereich (B5:K20) aktiv sein und der User kann trotzdem mit dem Maus in gleichem Zellenbereich z.B. (B5:K20) hin und her springen.
Für die restlichen Excelanwendungen (Mappe. Blättern etc.) sollte die Enter Eingabe ganz normal vorhanden sein.
Gibt es da eine Möglichkeit...
Ich hoffe, ihr könnt mit meiner Beschreibung etwas anfangen.
Über eine Antwort wäre ich dankbar.
kurt
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach enter eingabe in gleiche Zelle bleiben
20.09.2017 11:03:26
Bernd
Hi,
Code vom hajo:
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                     *
'* 18.04.10                                       *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("C5:C7")
' noch mehr Bereiche
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
RaZelle.Select
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing
End Sub
Bereich eben anpassen.
Hier der gesamte Beitrag:
https://www.herber.de/forum/archiv/1152to1156/1152463_Nach_Eingabe_in_Zelle_bleiben.html
MfG Bernd
Anzeige
AW: Nach enter eingabe in gleiche Zelle bleiben
20.09.2017 11:11:44
kurt
Hallo Bernd
vielen dank.
iergend wie klappt es bei mir nicht.
Ich habe in meine Datei neu Modul eingefügt und der Code eingefügt.
Da ich im VBA nicht so fit bin,,,was meinst du mit option Explicit, muss ich noch irgendwas anderes anpassen?
gruss
kurt
AW: Nach enter eingabe in gleiche Zelle bleiben
20.09.2017 11:16:15
UweD
Hallo
der Code darf NICHT in ein Modul sondern...
das ginge so...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Den Code dort reinkopieren
LG UweD
Anzeige
AW: Nach enter eingabe in gleiche Zelle bleiben
20.09.2017 11:28:16
kurt
Hallo UweD
jetzt funktioniert perfekt, vielen Dank an dich und natürlich auch an Bernd.
gruss
kurt
Gerne und Danke für die Rückmeldung - owT
20.09.2017 11:33:49
Bernd
AW: Nach enter eingabe in gleiche Zelle bleiben
20.09.2017 11:19:29
Matthias
Hallo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C10")) Is Nothing Then
Application.MoveAfterReturn = False
Else
Application.MoveAfterReturn = True
End If
End Sub
Bereich der Wirksamkeit bitte anpassen
Gruß Matthias
Anzeige
AW: Nach enter eingabe in gleiche Zelle bleiben
20.09.2017 11:32:00
kurt
vielen dank Matthias
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Nach der Enter-Eingabe in der gleichen Zelle bleiben


Schritt-für-Schritt-Anleitung

Um in Excel nach der Eingabe mit der Enter-Taste in der gleichen Zelle zu bleiben, kannst du folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass die aktive Zelle innerhalb eines definierten Zellenbereichs bleibt. Hier sind die Schritte, um den Code einzufügen:

  1. Öffne dein Excel-Dokument und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Suche im Projekt-Explorer auf der linken Seite das entsprechende Arbeitsblatt, in dem du die Funktion aktivieren möchtest.
  3. Mache einen Rechtsklick auf den Tabellenblattreiter und wähle „Code anzeigen“.
  4. Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RaBereich As Range, RaZelle As Range
    ' Bereich der Wirksamkeit anpassen
    Set RaBereich = Range("B5:K20") ' Definiere deinen Zellenbereich
    Set RaBereich = Intersect(RaBereich, Range(Target.Address))
    If Not RaBereich Is Nothing Then
        For Each RaZelle In RaBereich
            RaZelle.Select
        Next RaZelle
    End If
    Set RaBereich = Nothing
End Sub
  1. Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.
  2. Teste die Funktion, indem du in eine Zelle innerhalb des Bereichs B5:K20 eingibst und die Enter-Taste drückst.

Häufige Fehler und Lösungen

  • Code nicht funktioniert: Stelle sicher, dass du den Code im richtigen Arbeitsblatt eingegeben hast. Der Code muss im Code-Bereich des entsprechenden Tabellenblatts stehen, nicht in einem allgemeinen Modul.

  • Fehlermeldungen: Wenn du beim Ausführen des Codes auf Fehler stößt, überprüfe, ob du die richtigen Zellbereiche definiert hast und ob keine anderen Makros den Ablauf stören.


Alternative Methoden

Eine alternative Methode, um in Excel nach dem Drücken der Enter-Taste in der gleichen Zelle zu bleiben, ist die Verwendung von Excel-Einstellungen:

  1. Gehe zu Datei > Optionen.
  2. Wähle den Reiter Erweitert.
  3. Suche die Option Nach dem Drücken der Eingabetaste die Auswahl verschieben und deaktiviere diese.

Diese Methode bleibt jedoch nicht auf einen bestimmten Zellenbereich beschränkt.


Praktische Beispiele

Angenommen, du möchtest, dass der Benutzer in einem bestimmten Bereich von B5 bis K20 bleibt, während er Daten eingibt. Der obige VBA-Code stellt genau dies sicher. Du kannst den Zellenbereich im Code anpassen, um verschiedene Bereiche zu testen.


Tipps für Profis

  • Nutze Option Explicit, um sicherzustellen, dass alle Variablen im Code deklariert sind. Dies hilft dir, Fehler zu vermeiden und den Code leserlicher zu gestalten.
  • Du kannst den Zellenbereich auch dynamisch anpassen, indem du den Code so modifizierst, dass er sich an der Größe deines Datenbereichs orientiert.

FAQ: Häufige Fragen

1. Wie kann ich den Zellenbereich anpassen?
Du kannst den Zellenbereich im VBA-Code ändern, indem du die Zeile Set RaBereich = Range("B5:K20") anpasst.

2. Funktioniert das auch in Excel Online?
Leider funktionieren VBA-Makros nicht in Excel Online. Du musst die Desktop-Version von Excel verwenden, um diese Funktion zu aktivieren.

3. Was passiert, wenn ich den Code nicht richtig einfüge?
Wenn der Code nicht korrekt eingefügt wird, funktioniert die Funktion nicht. Achte darauf, dass du ihn im richtigen Codefenster für das spezifische Arbeitsblatt einfügst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige