Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1996to2000
1996to2000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Excel code für Formular Zellenspünge

Forumthread: Excel code für Formular Zellenspünge

Excel code für Formular Zellenspünge
04.12.2024 17:11:07
Stephan0101
Hallo Excel Profis,

Beim Erstellen eines Formulars habe ich das Problem, das bei nicht ausgefüllten Zellen durch drücken der Entertaste in eine vordefinierte Zelle gesprungen werden soll.

z.B.
in den Zellen A1 bis A6 kann ein beliebiger Text eingegeben werden.
Den normalen Zellensprung habe ich mit dem Code:

If Not Intersect(Range("A1"), Target) Is Nothing Then
Range("A2").Select
End If

hinbekommen und entsprechend weiter!!
Sollte aber in einer Zelle A1 Bis A6 kein Text eingegeben werden soll durch drücken der Entertaste in Zelle H4 gesprungen werden um dort weitere eingaben machen zu können.
Kann mir jemand für dieses Problem eine Antwort liefern???
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel code für Formular Zellenspünge
04.12.2024 17:47:00
emkaes
Hallo,

warum so kompliziert?

Du kann doch deine Eingabefelder über Formatieren -Schutz- gesperrt und anschließendem Blattschutz exklusiv editierbar machen.

Anschließend springst du entweder mit der Enter-Taste oder TabTaste von Feld zu Feld

Ist das eine Möglichkeit?
Anzeige
AW: Excel code für Formular Zellenspünge
05.12.2024 19:31:44
GerdL
Hallo Stephan! 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next

    If Target.Column = 1 And Target.Row > 1 And Target.Row  8 Then

        If IsEmpty(Target.Offset(-1)) Then Range("H4").Select

    End If

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)



    If Target.CountLarge > 1 Then Exit Sub

    On Error GoTo ende

    Application.EnableEvents = False

    If Target.Row  7 And Target.Column = 1 Then

        If IsEmpty(Target) Then

            Range("H4").Select

        Else

            Target.Offset(1).Select

        End If

    End If

ende:

    Application.EnableEvents = True



End Sub

Gruß Gerd
Anzeige
AW: Excel code für Formular Zellenspünge
06.12.2024 09:30:25
Stephan0101
Danke das ist das was ich brauche!!!
Jetzt kann ich diesen code weiterbearbeiten.
das hat mir sehr geholfen!!!!
AW: Excel code für Formular Zellenspünge
05.12.2024 09:41:15
Stephan0101
Danke für die Antwort hilft mir aber leider nicht weiter.
Bei diesem vorgehen muss ich ja immer noch alle Felder mit der Entertaste ansteuern.
Gedacht ist aber das wenn in einem Feld keine Eingabe erfolgt, das dann beim drücken von Enter in ein anderes vordefiniertes Feld gesprungen wird (hier H6).
Vielleicht gibt es ja da eine Lösung.
Danke!!!
Anzeige
AW: Excel code für Formular Zellenspünge
05.12.2024 12:54:54
emkaes
Hallo,

na dann mußt du deine Ausgangsdaten präzisieren, etwa wie folgt 

EingabeFelder           gehe zu

A1-A6



A1 gefüllt

A2 leer                       H?



A1 gefüllt

A2 gefüllt

A3  leer                     H?



usw.

noch besser: eine Musterdatei mit einem/mehreren Beispielen mit händischer Lösung



Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum