Das Archiv des Excel-Forums

leere zellen erkennen

Bild

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
Bild


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


Bild


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.


Bild


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


Bild


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


Bild


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


 Bild

Excel-Beispiele zum Thema " leere zellen erkennen"

Makros in Abhängigkeit vom Zellennamen aufrufen download Zellen auf Kommentar überprüfen download
Spalten bedingt summieren und Zellen formatieren download Text aus Textbox in Zellen aufteilen download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download
Verweise anhand einer Kopfzeile erkennen download In der UserForm aufrufende Schaltfläche erkennen download
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen download