Wenn Zelle gefüllt i.d. nächste springen

[Didi]

Hallo ihr wissenden,

alle Jahre wieder kommt bei meinen Stundenzetteln etwas neues.
Alles war früher mal gemacht wurde habe ich in versuchen tatsächlich wieder einbinden können.
Doch diesmal hat mein AG sich etwas neues einfallen lassen.
Diesmal hat mein AG neue Zettel entworfen welche zum Ausfüllen von Hand gedacht sind.
Da ich es lieber am Rechner mache habe ich ein (hoffentlich) kleines Problem.
Ich darf die Zellen in denen ich etwas eingeben soll nicht verbinden.

Es darf immer nur ein Wert pro Zelle stehen.
Gehe ich z.B. in Feld G14 um einen Wert einzugeben, schreibe ich aus Gewohnheit alles in diese Zelle, obwohl der Wert bis K14 gehen soll.
Ich muss also nach jeder Eingabe eine neue Zelle anklicken.
Gibt es eine Möglichkeit das nach Eingabe eines Wertes automatisch in die nächste Zelle gesprungen wird?
Alternativ könnte der Wert welcher in G14 eingegeben wurde auf die folgenden Zellen verteilt werden.
Die Werte in G bis K sowie L bis R passen immer genau in die Zellen.

Bei Nutzung des Scrollrades verschiebt sich ein Teil der Tabelle ab Zeile 14. Wo kann man dies abstellen?

Kann man anhand des Wertes der Zellen G bis K eine andere Tabelle durchsuchen und bei einem Treffer die Zellen BK bis BG automatisch ausfüllen ?


Vielen Dank für für die Hinweise

Dieter

[WillWissen]

Hi Dieter,

sollte es dir darum gehen, dass nach Eingabe eines Zeichen/Wertes o. dgl. und der Bestätigung der Enter-Taste der Cursor nach rechts springt anstelle nach unten, kannst du das in den Optionen ändern.

Datei==> Optionen==> Erweitert==> Bearbeitungsoptionen==> Markierung nach Drücken....: hier kannst du die Richtung auswählen.

Deine Gewohnheit, alles in eine Zelle zu schreiben, musst du dir halt abgewöhnen - das kann dir Excel nicht abnehmen. Dein Scrollrad macht im Übrigen genau das, für was es konzipiert ist: es scrollt dein Blatt zeilenweise ab Zeile 14, weil ab hier die Fensterfixierung eingestellt ist.

[RPP63]

Moin!
Da sind ja richtig intelligente Formeln drin …  °O°
Als Beispiel in AL50:
=WENN(AL49>=700;7;WENN(AL49>=600;6;WENN(AL49>=500;5;WENN(AL49>=400;4;WENN(AL49>=300;3;WENN(AL49>=200;2;WENN(AL49>=100;1;0)))))))
würde ich eher so schreiben:
=MIN(7;ABRUNDEN(AL49%;))

Gruß Ralf

[RPP63]

Um zum Thema zu kommen:
Sicherlich könnte man Dein gewünschtes Verhalten (Eintrag in G13 und splitten auf Nachbarzellen) nachstellen.
Dies ginge aber nur mittels VBA!
Ich gehe aber mal davon aus, dass die Lohnbuchhaltung etwas dagegen haben wird.
Ich gebe Dir aber Recht, dass die Vorgabe, eine Nummer auf Spalten aufzuteilen, Blödsinn und unnötige Zusatzarbeit ist!
Vielleicht kann die LoBu ja noch etwas ändern.
Kannst ja gerne diesen Thread zeigen …

Gruß Ralf

[Didi]

Ich glaube ich habe einen, wenn auch umständlichen Weg gefunden.
Ich kopiere den Wert aus G14 in die daneben liegenden Zellen.
Dann lege ich die Anzahl der Stellen fest welche angezeigt werden.

Dieter

[RPP63]

Dann lege ich die Anzahl der Stellen fest welche angezeigt werden.

Würde mich mal interessieren, wie Du das machst, Dieter.

Ab H ist es ja ein einfaches =TEIL($G14;SPALTE(B1);1)
Aber wie schaffst Du es ohne VBA, in G nur das erste Zeichen anzuzeigen?

[Didi]

=TEIL(G15;2;1)
=TEIL(G15;3;1)
=TEIL(G15;4;1)
=TEIL(G15;5;1)

Bei G bin ich noch am suchen

[Dieter63]

Hallo NamensKollege

Ich muss also nach jeder Eingabe eine neue Zelle anklicken.

Nein --> benutze die  Tab Taste   --> damit  springst du nach  rechts     (oder links mit  umschalttaste)

Die ist  auf der Tastatur links , mit den  2 Pfeilen drauf

[Käpt'n Blaubär]

Hallo,

Ich muss also nach jeder Eingabe eine neue Zelle anklicken.

mit VBA könnte man das auch automatisieren.

[RPP63]

Eingabe in G, String mit der Länge 5 wird automatisch auf G:K aufgeteilt:

Microsoft Excel Objekt Tabelle2

Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim i& 
With Target 
  If .Column = 7 And Len(.Text) = 5 Then 
    Application.EnableEvents = False 
    For i = 4 To 0 Step -1 
      .Offset(0, i).Value = Mid(.Text, i + 1, 1) 
    Next 
    Application.EnableEvents = True 
  End If 
End With 
End Sub