Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
leere zellen erkennen
- leere zellen erkennen von nina vom 01.10.2003 09:27:04
- AW: leere zellen erkennen - von Christoph am 01.10.2003 10:19:15
- AW: leere zellen erkennen - von Nina am 01.10.2003 10:33:42
- AW: leere zellen erkennen - von Christoph am 01.10.2003 10:44:22
- DANKE - von Nina am 01.10.2003 11:03:47
- Danke für die Rückmeldug - von Christoph am 01.10.2003 11:14:02
- Danke für die Rückmeldug - von Christoph am 01.10.2003 11:14:02
- DANKE - von Nina am 01.10.2003 11:03:47
- AW: leere zellen erkennen - von Christoph am 01.10.2003 10:44:22
- AW: leere zellen erkennen - von Nina am 01.10.2003 10:33:42
- AW: leere zellen erkennen - von Christoph am 01.10.2003 10:19:15
 |
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
| |