Office: (Office 2013) Ich komme nicht weiter...

manu1988 · 11. Juni 2019

Hallo zusammen,

Ich möchte eine gewissen Anzahl (Bsp. 31) an Zellen überprüfen, ob diese leer oder voll sind. Wenn alle voll sind, dann soll eine Operation ausgeführt werden. Sollte aber auch nur eine einzige Zelle von diesen 31 leer sein, soll eine MsgBox ausgegeben werden und nichts weiter. Die Schleife soll dann natürlich auch abgebrochen werden, sobald eine leere Zelle gefunden wurde. Ich habe wirklich sehr lange versucht diese Logik einzubauen, aber vergeblich.

Mein aktueller Code funktioniert im Grunde sehr gut, nur will ich eben eine Operation ausführen, wenn alle Zellen voll sind.

Ich freue mich sehr, wenn ihr mit helfen könntet.

Folgender Code:

Code:

Sub Leer()

Dim j As Integer
Dim i As Long
Dim Fct_LngZNrEingabe As Long

For j = 1 To 1
For i = 1 To 31
If IsEmpty(Cells(i, j)) Then GoTo Fehler_Eingabe
Next i
Next j

Exit Sub

Fehler_Eingabe:
MsgBox "Monat noch nicht abgesclossen"

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

Ich bedanke mich recht herzlich im Voraus für eure Unterstützung und Mühe..

:)

Mase · 12. Juni 2019

Hi,

ohne weiter auf den Code einzugehen:
Was spricht dagegen den Else-Zweig zu benutzen?

Code:

Sub Leer()

Dim j As Integer
Dim i As Long
Dim Fct_LngZNrEingabe As Long

For j = 1 To 1
For i = 1 To 31
If IsEmpty(Cells(i, j)) Then
GoTo Fehler_Eingabe
Else
'do something else
End if
Next i
Next j

Exit Sub

Fehler_Eingabe:
MsgBox "Monat noch nicht abgesclossen"

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

steve1da · 12. Juni 2019

Hola,

bitte änderen deinen Betreff in etwas sinnvolles! "Ich komme nicht weiter" hilft bei späteren Recherchen nicht weiter.

Gruß,
steve1da

MisterBurns · 12. Juni 2019

Dazu brauchst du keine Schleife, du kannst einfach mit WorksheetFunction.CountBlank die Anzahl der leeren Zellen zählen. Wenn diese > 0 ist, dann erfolgt die Msgbox.

Auf den sinnlosen Betreff wurdest du bereits hingewiesen - bitte ändern.

Nepumuk · 12. Juni 2019

Hallo Manu,

du musst die Aktion nach "Next j" und vor "Exit Sub" starten, denn wenn du dahin kommst sind alle Felder ausgefüllt.

manu1988 · 12. Januar 2021

von Mase

Hi,

ohne weiter auf den Code einzugehen:
Was spricht dagegen den Else-Zweig zu benutzen?

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

Sub Leer()

Dim j As Integer
Dim i As Long
Dim Fct_LngZNrEingabe As Long

For j = 1 To 1
For i = 1 To 31
If IsEmpty(Cells(i, j)) Then
GoTo Fehler_Eingabe
Else
'do something else
End if
Next i
Next j

Exit Sub

Fehler_Eingabe:
MsgBox "Monat noch nicht abgesclossen"

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

Danke für die Rückmeldung. Wenn ich das so mache, dann wird das Programm die Operation durchführen, sobald es eine gefüllte Zelle findet. Es kann ja aber sein, dass die Zelle 1 voll ist aber die Zelle 25 leer. Dann wird die Operation trotzdem durchgeführt.

Ich entschuldige mich für den Beitragstitel. Habe irgendwie versucht es zu ändern, vergeblich..

manu1988 · 12. Januar 2021

von steve1da

Hola,

bitte änderen deinen Betreff in etwas sinnvolles! "Ich komme nicht weiter" hilft bei späteren Recherchen nicht weiter.

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

Kann es sein, dass ich den Namen im Nachhinein nicht mehr ändern kann? Habs irgendwie nicht hinbekommen.

Jadzia_Dax · 13. Juni 2019

Hi,

dann mach es doch so Code:

...
Else
If i = 31 Then
'do something else
End If
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG Dax

MisterBurns · 13. Juni 2019

Ich verweise nochmals auf meinen Beitrag:

Dazu brauchst du keine Schleife, du kannst einfach mit WorksheetFunction.CountBlank die Anzahl der leeren Zellen zählen. Wenn diese > 0 ist, dann erfolgt die Msgbox.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase · 13. Juni 2019

Korrekt.
Nutze den Else-Zweig.

manu1988 · 12. Januar 2021

von MisterBurns

Dazu brauchst du keine Schleife, du kannst einfach mit WorksheetFunction.CountBlank die Anzahl der leeren Zellen zählen. Wenn diese > 0 ist, dann erfolgt die Msgbox.

Auf den sinnlosen Betreff wurdest du bereits hingewiesen - bitte ändern.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Funktioniert wirklich super! Vielen lieben Dank! Ich muss das wirklich noch einmal erwähnen. Hier wird einem geholfen!! Auch in der Vergangenheit habe ich sehr viel und schnell Unterstützung bekommen!!

Ich danke selbstverständlich allen anderen für deren Mühe!!

Ich versuche jetzt noch einmal, den Beitragstitel zu verändern.

MisterBurns · 13. Juni 2019

Lass gut sein wegen dem Betreff, das nachträglich zu ändern geht glaub ich nur für kurze Zeit, genauso wie die Beitragseditierung selbst. Hauptsache, dir wurde geholfen