Supportnet / Forum / Tabellenkalkulation
Excel: Nach einer Zeicheneingabe soll Excel automatisch in die nächste Zelle springen
Frage
Hallo,
Folgendes Problem:
Ich habe eine Tabelle in der ich in jede Zelle nur ein Zeichen schreiben soll. Jetzt wäre es sehr hilfreich wenn nach Eingabe eines Zeichens, Excel automatisch in die nächste Zelle springt.
Gibt es dafür eine Lösung?
Danke im Voraus
LG Stefan
Antwort 1 von Tomschi
Hi Stefan!
Im Normalfall kannst Du dies unter Extras --> Optionen --> Reiter Bearbeiten --> "Markierung nach dem Drücken der Eingabetasten verschieben" einstellen.
Frage:
Was genau ist Deine nächste Zelle?
Soll der Cursor z. B. in eine bestimmte andere Zelle springen, dann könntest Du eventuell mit einem Blattschutz und entsperrten Zellen arbeiten.
Ciao
Tom
Im Normalfall kannst Du dies unter Extras --> Optionen --> Reiter Bearbeiten --> "Markierung nach dem Drücken der Eingabetasten verschieben" einstellen.
Frage:
Was genau ist Deine nächste Zelle?
Soll der Cursor z. B. in eine bestimmte andere Zelle springen, dann könntest Du eventuell mit einem Blattschutz und entsperrten Zellen arbeiten.
Ciao
Tom
Antwort 2 von Hajo_Zi
Hallo Tom,
ich habe es so gelesen das nach Eingabe von 1 Zeichen Excel in die nächste Zele springt (es ist nicht kalr welch), aber ich habe es so gesehen das dies ohne Enter passieren soll.
Gruß Hajo
ich habe es so gelesen das nach Eingabe von 1 Zeichen Excel in die nächste Zele springt (es ist nicht kalr welch), aber ich habe es so gesehen das dies ohne Enter passieren soll.
Gruß Hajo
Antwort 3 von nighty
hi all :)
2 beispiele fuer eine erzwungene eingabe :-)
gruss nighty
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Worksheets(1)
Dim bereich(2)
Dim zaehler1 As Integer
bereich(0) = "A1"
bereich(1) = "A3"
bereich(2) = "A5"
For zaehler1 = 0 To 2
If Range(bereich(zaehler1)) = "" Then
Range(bereich(zaehler1)).Select
Exit For
End If
Next zaehler1
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rgBereich As Range
Dim zaehler1 As Range
Set rgBereich = Worksheets("Tabelle1").Range("A1,A3,A5")
For Each zaehler1 In rgBereich
If zaehler1 = "" Then
zaehler1.Select
Exit For
End If
Next zaehler1
End Sub
2 beispiele fuer eine erzwungene eingabe :-)
gruss nighty
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Worksheets(1)
Dim bereich(2)
Dim zaehler1 As Integer
bereich(0) = "A1"
bereich(1) = "A3"
bereich(2) = "A5"
For zaehler1 = 0 To 2
If Range(bereich(zaehler1)) = "" Then
Range(bereich(zaehler1)).Select
Exit For
End If
Next zaehler1
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rgBereich As Range
Dim zaehler1 As Range
Set rgBereich = Worksheets("Tabelle1").Range("A1,A3,A5")
For Each zaehler1 In rgBereich
If zaehler1 = "" Then
zaehler1.Select
Exit For
End If
Next zaehler1
End Sub
Antwort 4 von nighty
hi all :-)
einzufuegen
alt f11/projektexplorer/DeineTabelle
gruss nighty
einzufuegen
alt f11/projektexplorer/DeineTabelle
gruss nighty
Antwort 5 von Tomschi
Hi Hajo!
Tja, so unterschiedlich kann man es auffassen.
Wenn ich nochmals die Fragestellung von Stefan durchlesen, dann könntest Dur Recht haben mit Deiner Vermutung.
Ciao
Tom
Tja, so unterschiedlich kann man es auffassen.
Wenn ich nochmals die Fragestellung von Stefan durchlesen, dann könntest Dur Recht haben mit Deiner Vermutung.
Ciao
Tom
Antwort 6 von nighty
hi hajol :)
wenn das so stimmen sollte,geht glaub ich nicht oder
gruss nighty
wenn das so stimmen sollte,geht glaub ich nicht oder
gruss nighty
Antwort 7 von Stefann
Hi Leute,
Es soll immer in die nächste Zelle (rechts daneben) springen.
Nach einem Zeichen, und ohne Betätigung der Eingabetaste.
Danke für Eure Hilfe
Gruß Stefan
Es soll immer in die nächste Zelle (rechts daneben) springen.
Nach einem Zeichen, und ohne Betätigung der Eingabetaste.
Danke für Eure Hilfe
Gruß Stefan