Das Archiv des Excel-Forums
leere zellen erkennen
Betrifft: leere zellen erkennen
von: nina
Geschrieben am: 01.10.2003 09:27:04
in meinem angepassten vba, dank nochmal an die fleissigen helfer hier, habe ich das problem, dass die sprünge über zellen hinweg nicht funzen, wenn ich darin keine eingabe mache. Ich möchte aber nicht jedesmal eine "Null" eingeben, dass die sprünge funktionieren.
Was muss ich ändern?? (grübel)
Private Sub worksheet_change(ByVal target As Range)
'springe nach unten
If target.Row = 14 Then Cells(target.Row + 3, target.Column).Select
If target.Row = 24 Then Cells(target.Row + 4, target.Column).Select
If target.Row = 45 Then Cells(target.Row + 5, target.Column).Select
'Ende der Eingaben
If target.Address = "$V$55" Then
Range("$V$55").Select
'und Erinnerung
MsgBox "So nun ist aber die Tabelle voll !"
Else
'und nach oben springen:
If target.Row = 55 Then Cells(7, target.Column + 1).Select
End If
End Sub
Lieben Gruß Nina
Betrifft: AW: leere zellen erkennen
von: Christoph
Geschrieben am: 01.10.2003 10:19:15
Hi Nina,
die Frage ist, wann sollen die Sprünge stattfinden.
so wie du das geschrieben hast, wird mit neuen Eintrag oder Eintragsänderung in den Zeilen 14, 24 und 45 das Sub ausgelöst. Wenn du sagst, du willst es jetzt nicht bei einer Eintragsänderung haben, wann dann?
Gruß
Christoph
Betrifft: AW: leere zellen erkennen
von: Nina
Geschrieben am: 01.10.2003 10:33:42
das müsste irgendwie beim verlassen der zelle aktiv werden.
meine eingaben rassele ich ich von C7 nach unten durch. es werden jedoch nicht immer alle zellen in C ausgefüllt. es bleibt halt manchmal eine leer und leider kann das passieren, dass das eine in Zeile 14 ist.
Also so bald ich eine Zelle in Zeile 14 verlasse muss der sprung nach Zeile 17(gleiche Spalte) erfolgen.
Betrifft: AW: leere zellen erkennen
von: Christoph
Geschrieben am: 01.10.2003 10:44:22
Hi Nina,
so ganz klar ist mir noch nicht, was in den Zeilen 15 und 16 passiert.
Wenn du diese mit dem Makro immer überspringen willst (genauso 25 bis 28 und 46 bis 50), dann schreib den Code nicht in eine WorkSheetChange-Anweisung sondern in die WorkSheetSelectionChange der Zeile 15, 25, und 46.
Außerdem noch 'ne Frage: Soll das Makro über die Zeile V hinaus gültig sein? So wie du es geschrieben hast, ist es für alle Spalten gültig, und führt bei Spalte 256 zu einem Fehler (da es keine weitere Spalte gibt).
Gruß
Christoph
Betrifft: DANKE
von: Nina
Geschrieben am: 01.10.2003 11:03:47
danke , genau das war's - nun ist meine tabelle anwenderfreundlich
PS: meine tabelle geht nur bis V55
Betrifft: Danke für die Rückmeldug
von: Christoph
Geschrieben am: 01.10.2003 11:14:02
hi Nina,
nur als Tipp:
ich würde in solchen Fällen immer die Grenzbedingungen setzen. (einfach um Fehlerquellen auszuschließen)
Wenn du den Bereich begrenzen willst, dann schreib ganz oben als erstes z.B:
If Target.Column < 3 Then Exit Sub 'gilt erst ab Spalte C
If Target.Column > 22 Then Exit Sub 'gilt nur bis Spalte V
Gruß
Christoph
Excel-Beispiele zum Thema " leere zellen erkennen"