Office: Wenn Zelle leer, dann zur nächsten Zelle (Code-Auszug enthalten!)

Neron · 21. August 2013

Hallo Community,

nach langer Zeit habe ich mal wieder eine Frage an euch.

Betreff: Zelle überspringen, wenn Zelle leer + Abbruchbedingung

In einer Tabelle sind in unregelmäßigen Abständen immer wieder Zellen in denen keine Daten enthalten sind, sprich sie sind leer.

Mein VBA-Code sucht jeweils in einer Spalte nach passenden Zahlenwerten. Ich gebe also ein, dass der Code sucht, wenn der Wert zwischen 0 und 0,1 liegt, dann sollen diese Werte makiert werden.

Leider bricht die Schleife ab, sobald eine Zelle keine Daten enthält.

Hier ein Ausschnitt aus meinem Code für die eine Spalte:

Code:

'Funktion
'Spalte G
Set SpalteA = Range("G7", Cells(8, "G").End(xlDown)) 'Wertebereich festlegen durch Eingabe in die Textboxen
For Each Zelle In SpalteA 'Besagt, dass alle Zellen in dieser Spalte folgende Formatierung bekommen
With Zelle
Select Case .Value
Case a To a1 'Textbox zugewiesen zu Variable a und a1 beschränkt auf die Spannweite der Suche
.Interior.Color = 65535 'Farbe Gelb
If .Value = 0 Then
.Interior.ColorIndex = xlNone
' Case Else:
' .Interior.ColorIndex = xlNone
End If 'Kann aktiviert werden, muss aber nicht
End Select
End With
Next 'zur nächsten Funktion

'Spalte H
Set SpalteB = Range("H7", Cells(8, "H").End(xlDown))
For Each Zelle In SpalteB
With Zelle
Select Case .Value
Case b To b1
.Interior.Color = 65535
If .Value = 0 Then
.Interior.ColorIndex = xlNone
' Case Else:
' .Interior.ColorIndex = xlNone
End If
End Select
End With
Next

'Spalte I
Set SpalteC = Range("I7", Cells(8, "I").End(xlDown))
For Each Zelle In SpalteC
With Zelle

.... usw für jeweils die Spalten
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eventuell kann man diesen Code sicherlich noch etwas verbessern, aber er funktioniert genau für das was ich brauche.

Ich möchte nun in diesen Code einbauen, dass wenn eine Zelle leer ist, diese einfach ignoriert wird und zur nächsten Zelle gesprungen wird.

Das Ganze hat nur einen Haken, da ich das Ende als xldown betitel habe, würde das Skript unendlich lange laufen.
Deshalb brauche ich auch eine Abbruchbedingung, dass zur nächsten Spalte/Funktion gesprungen wird, wenn z.b. 100mal hintereinander eine Zelle leer ist.

Natürlich könnte ich das Ganze auch umgehen, indem ich in jede Zelle eine 0 schreibe, jedoch ist das bei ca. 20000 Daten etwas aufwendig und nicht so elegant gelöst und macht das ganze unübersichtlich.

Ich hoffe ihr könnt mir helfen.

Grüße Neron

:)

hary · 22. August 2013

Moin
Warum nimmst du nicht bed. Formatierung?
gruss hary

jack_D · 22. August 2013

einfach einen weiteren Case

PHP:

case is = ""

Neron · 12. Januar 2021

Danke für die schnelle Antwort *Smilie .

von hary

Moin
Warum nimmst du nicht bed. Formatierung?
gruss hary
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weil ich über eine Oberfläche direkt nach mehreren Werten suchen kann.
In Spalte A bis Spalte F stehen unterschiedliche Werte. Über die Oberfläche kann pro Spalte dann nach den Wertebereichen gesucht werden.

von jack_D

einfach einen weiteren Case

PHP:

case is = ""

und die anweisung dahinter frei lassen

so macht er bei einer Leeren Zelle nix und geht zur nächsten Zeile (next)

Grüße
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 22. August 2013

Hallo Neron,

Leider bricht die Schleife ab, sobald eine Zelle keine Daten enthält.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das stimmt so nicht ganz: Der zu untersuchende Bereich "bricht ab".

Hier liegt der Hund begraben:
Code:

Set SpalteA = Range("G7", Cells(8, "G").End(xlDown))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eine leere Zelle unterhab G7 unterbricht damit die Bereichsfestlegung.
Ist es möglich, den Bereich von unten nach oben festzulegen oder steht unterhalb des zu untersuchenden Bereichs noch irgendetwas anders, was nicht untersucht werden soll?

Code:

Set SpalteA = Range("G7", Cells(Rows.Count, "G").End(xlUp)) 'Wertebereich festlegen durch Eingabe in die Textboxen
For Each Zelle In SpalteA 'Besagt, dass alle Zellen in dieser Spalte folgende Formatierung bekommen
With Zelle
Select Case .Value
Case 0
.Interior.ColorIndex = xlNone
Case a To a1 'Textbox zugewiesen zu Variable a und a1 beschränkt auf die Spannweite der Suche
.Interior.Color = 65535 'Farbe Gelb
' Case Else:
' .Interior.ColorIndex = xlNone
End Select
End With
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Neron · 25. August 2013

Hey Earlfred,

danke, dass leuchtet ein, dass er bei xldown ab der leeren Zelle abbricht.
Böser Hund! Sitz! *grins

Das Ganze von unten aufzuarbeiten ist keine schlechte Idee, werde ich mal probieren. *mrcool

Ich werde mich melden, ob es geklappt hat!

Grüße!

Office: Wenn Zelle leer, dann zur nächsten Zelle (Code-Auszug enthalten!)

Wenn Zelle leer, dann zur nächsten Zelle (Code-Auszug enthalten!)

Wenn Zelle leer, dann zur nächsten Zelle (Code-Auszug enthalten!)

Wenn Zelle leer, dann zur nächsten Zelle (Code-Auszug enthalten!)

Wenn Zelle leer, dann zur nächsten Zelle (Code-Auszug enthalten!) - Similar Threads - Zelle nächsten Zelle

Werte zusammenzählen - ab einer Zelle die nächsten 5

Auf die nächst mögliche Zelle mit Inhalt zugreifen

Wert in Zelle kopieren und in nächster freie Zelle einfügen

Bedingte Formatierung in Nächste Zelle Kopieren

VBA - Springen in nächste ungeschützte Zelle ohne TAB/Enter

Wenn Zelle leer, dann nimm nächst verfügbare oberhalb

Tabelle: Zelle einfügen. Sprung an Anfang nächster Zeile