MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.06.2019, 08:11   #1
manu1988
Neuer Benutzer
Neuer Benutzer
Standard Excel 2013 - Ich komme nicht weiter...

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

Ich bedanke mich recht herzlich im Voraus für eure Unterstützung und Mühe..
manu1988 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 08:29   #2
Mase
MOF Profi
MOF Profi
Standard

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

__________________

gruß
Marco
Mase ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 08:32   #3
steve1da
MOF Meister
MOF Meister
Standard

Hola,

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

Gruß,
steve1da
steve1da ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 08:44   #4
MisterBurns
MOF Meister
MOF Meister
Standard

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.

__________________

Schöne Grüße
Berni
MisterBurns ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 08:45   #5
Nepumuk
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Manu,

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

__________________

Gruß
Nepumuk
Nepumuk ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 12:29   #6
manu1988
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Zitat: von Mase Beitrag anzeigen

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

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 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 12:30   #7
manu1988
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Zitat: von steve1da Beitrag anzeigen

Hola,

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

Gruß,
steve1da

Kann es sein, dass ich den Namen im Nachhinein nicht mehr ändern kann? Habs irgendwie nicht hinbekommen.
manu1988 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 12:40   #8
Jadzia_Dax
MOF User
MOF User
Standard

Hi,

dann mach es doch so
Code:

...
Else
    If i = 31 Then
        'do something else
    End If
End If
LG Dax
Jadzia_Dax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 12:44   #9
MisterBurns
MOF Meister
MOF Meister
Standard

Ich verweise nochmals auf meinen Beitrag:

Zitat:

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.

__________________

Schöne Grüße
Berni
MisterBurns ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 13:48   #10
Mase
MOF Profi
MOF Profi
Standard

Korrekt.
Nutze den Else-Zweig.

__________________

gruß
Marco
Mase ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 15:20   #11
manu1988
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Zitat: von MisterBurns Beitrag anzeigen

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.

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.
manu1988 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2019, 16:15   #12
MisterBurns
MOF Meister
MOF Meister
Standard

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

__________________

Schöne Grüße
Berni
MisterBurns ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:05 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.