Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Istleer über mehrere Zellen
#41
Thumbs Down 
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.
Gruß Uwe
Antworten Top
#42
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


Angehängte Dateien
.xlsm   Blutdruck Zucker und Sauerstoff (2).xlsm (Größe: 37,26 KB / Downloads: 2)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Weiss der Geier
Antworten Top
#43
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!


Angehängte Dateien
.xlsm   Blutdruck Zucker und Sauerstoff.xlsm (Größe: 36,49 KB / Downloads: 0)
Gruß Uwe
Antworten Top
#44
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


Angehängte Dateien
.xlsm   Blutdruck Zucker und Sauerstoff (2).xlsm (Größe: 37,06 KB / Downloads: 0)
Gruß Uwe
Antworten Top
#45
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Weiss der Geier
Antworten Top
#46
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


Angehängte Dateien
.xlsm   Blutdruck Zucker und Sauerstoff (2).xlsm (Größe: 37,56 KB / Downloads: 2)
Gruß Uwe
Antworten Top
#47
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


Angehängte Dateien
.xlsm   Blutdruck Zucker und Sauerstoff (2).xlsm (Größe: 37,56 KB / Downloads: 2)
Gruß Uwe
Antworten Top
#48
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Weiss der Geier
Antworten Top
#49
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!!!!
Gruß Uwe
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste