Hallo,
ich wollt bei meiner vorigen Antwort ging es darum, das ich in J nicht eintragen muss und trotzdem dann zu A springen um das nächste Datum eintragen zu können.
Hallo Uwe,
ich zitiere mich nochmal:
Code:
Wenn man einfach nur auf den Wechsel in die Spalte J reagieren würde, dann könntest Du nichts eingeben, weil der Cursor mit einem Makro Wirksheet_Selection_Change ja gleich wieder raus springen würde.
Man könnte das Makro aber auch so schreiben, dass, wenn Du in die Spalte J gehst und in der nächsten Zeile in A1 noch kein Datum steht, Du dorthin springst und nix in J eingeben kannst. Nur wenn in der nächsten Zeile schon das Datum steht, dann kannst Du in J auch was eingeben.
Wäre das ein gangbarer Weg?
Umgesetzt siehe Anhang
Hallo SchauAn,
ja die Idee ist super, in A steht ja noch nichts drin da kommt ja erst das Datum rein mit Strg + . Habs gerade noch mal gelesen, iss vielleicht doch nicht so gut. Ich enter die Tabelle durch und ge was ein oder auch nicht, so auch bei J am Ende. Wenn was rein kommt enter und auch wenn nicht kommt ja auch enter und denn soll es wieder von vorn losgehen. so wäre mein Plan, aber leider keine Ahnung wie!
Morgen,
habe jetzt alle zellen von k bis Ende ausgeblendet. Es geht dahin, das mit der Tab oder Pfeiltasten von J nach A springe, nur leider nicht mit Enter. Siehe Anhang
Hallo Uwe,
tja, die Beschreibung des Vorgangs ...
wenn Du z.B. die Codezeile
If Target.Offset(1, -9).Value = "" Then ActiveCell.Offset(1, -9).Select
so änderst
If Target.Offset(0, -9).Value = "" Then ActiveCell.Offset(0, -9).Select
--> aus 1 wird 0 <--
kannst Du die Spalte J mit ENTER durchgehen und wenn in der Zeile wo diu mit ENTER reinwechselst in Spalte A nix steht, dann springt er dorthin.
Wenn also in J noch nix steht, die Daten in A1 bis A14, dann kannst Du den Cursor z.B. in J2 stellen und dann ENTER bis J14 drücken, Es wird nicht nach A gewechselt, und wenn Du J14 mit ENTER verlässt geht's nach A15.
Das setzt natürlich auch voraus, dass Du mit ENTER nach unten gehst und nicht nach rechts. Hast Du die Einstellung verändert und ENTER geht nach rechts, muss man anders programmieren. Das würde dann übrigens auch den Fall abdecken, wenn Du mit der Cursortaste nach rechts gehst. Aber da könnte man ja auch die Zellen sperren, den Blattschutz reinnehmen und die Auswahl von gesperrten Zellen deaktivieren.
Hallo SchauAn,
habe das so mit der Null geändert, und es Funktioiert Soper, ausser das K geentert wird und dann zu A. Ich habe es so,das ich mit Enter nach rechts gehe. :17: Allein mit Zahlen ändern im Code hat nichts positieves gebraucht. Aber, na ja.
schönes Wochenende
Hallo SchauAn,
habe das so mit der Null geändert, und es Funktioiert Super, außer das bis K geentert wird und dann zu A. Ich habe es so,das ich mit Enter nach rechts gehe. :17: Allein mit Zahlen ändern im Code hat nichts positives gebraucht. Aber, na ja.
schönes Wochenende
Hallo Uwe,
hatte ich ja geschrieben, wenn DU mit ENTER nicht nach unten gehst, muss man noch was ändern. Habe hier mal die Spaltennummer noch angepasst und dafür die Zeile wieder auf 1 gesetzt.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 11 Then
If Target.Offset(1, -10).Value = "" Then ActiveCell.Offset(1, -10).Select
End If
End Sub
Hallo SchauAn,
Danke für die schnelle Antwort, im Grunde geht es ja, wird mit Enter halt bis K gegangen und dann zuA eine Zeile tiefer. Melde mich später, mein Internet ist hier 64 kbit "Schnell" :@ .
habs eben schnell getestet, ja es geht, zuckt kurz, aber geht, liegt wahrscheinlich daran, das ich die Tabelle fast auf Bildschirm Breite gestreckt habe. Danke nochmal!!!!