Office: (Office 2010) Makro nur ausführen wenn Zellen befüllt sind.

Santhes · 14. Juni 2015

Hallo miteinandern,

es geht um folgendes,
in meiner Excel Tabelle habe ich einen Großteil der Formeln so Verknüpft, das sie Ihre werte aus einem separaten Arbeitsblatt namens "Einstellungen" ziehen.

Um nun das ganze weniger Fehleranfällig zu machen (Fehler indem ein Wert fehlt) benötige ich eine Möglichkeit um sämtliche 64 Felder zu kontrollieren.

Ich habe es bereits so ermöglicht, das man nur per Button aus diesem Arbeitsblatt in ein anderes kommt, jedoch wie baue ich nun diesen VBA Code zusammen, das der Button nur seine Aufgabe erfüllt, wenn alle diese Felder ausgefüllt sind? (Wenn es nicht ausgefüllt ist, dann sollte eine Fehlermeldung kommen)

Bisher habe ich es so versucht:
(nur ein winziger Abschnitt)

Code:

Sub Hauptmenü ()

If Range("Mein Arbeitsblatt") = "" Then
MsgBox "zelle... nicht ausgefüllt"
Else
Sheets("Start").Activate
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Funktioniert auch soweit, jedoch dauert es Ewigkeiten bis es komplett durchgelaufen ist.

Hoffe ihr könnt mir weiterhelfen *Smilie
Danke schon mal im vorraus

Santhes

:)

RPP63 · 16. Juni 2015

Hi!
Code:

Dim DeinBereich As Range
Set DeinBereich = Range("Meine64Zellen")
If WorksheetFunction.CountA(DeinBereich) < 64 Then
MsgBox "Da fehlt noch was!"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich würde sowas aber mit bed. Formatierung lösen.

Gruß Ralf

EarlFred · 16. Juni 2015

Hi Ralf,

ich habe verstanden, dass er Zellen, in denen Formeln stehen, prüfen will - also nicht den Zellinhalt, sondern die Rückgabewerte der Formeln.
Ich vermute, dass man das, zumindest ohne präzisere Angaben, nur durch Abklappern der Zellen prüfen kann.

Grüße
EarlFred

Santhes · 12. Januar 2021

von EarlFred

Hi Ralf,

ich habe verstanden, dass er Zellen, in denen Formeln stehen, prüfen will - also nicht den Zellinhalt, sondern die Rückgabewerte der Formeln.
Ich vermute, dass man das, zumindest ohne präzisere Angaben, nur durch Abklappern der Zellen prüfen kann.

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

Nein, in den Zellen stehen lediglich Zeiten, Personalien und ähnliches.
Die Formeln beziehen sich nur darauf.

von RPP63neu

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

Dim DeinBereich As Range
Set DeinBereich = Range("Meine64Zellen")
If WorksheetFunction.CountA(DeinBereich) < 64 Then
MsgBox "Da fehlt noch was!"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich würde sowas aber mit bed. Formatierung lösen.

Gruß Ralf

Danke Ralf, dein Lösungsweg hat einwandfrei funktioniert!

Hier nun mein Lösungsweg.
Zwar nicht sehr schick aber sie funktioniert. ;-)

Code:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''************************************************************''''
''''* *''''
''''* Erweiterte Ansicht öffnen *''''
''''* *''''
''''************************************************************''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Hauptmenü()

Call Kontrolle_Stammdaten
Call Kontrolle_Sonderdienste1
Call Kontrolle_Sonderdienste2
Call Kontrolle_Regeldienstzeit
Sheets("Start").Activate

End Sub

Sub Kontrolle_Sonderdienste1()

Dim DeinBereich As Range
Set DeinBereich = Range("F17:M19")

'24 Ist die Anzahl an Kästchen die gefüllt sein müssen.
If WorksheetFunction.CountA(DeinBereich) < 24 Then
MsgBox "Da fehlen noch Zeiten für Sonderdienste (Montag-Freitag)!"
'Markiert den Bereich in dem der Fehler liegt
Range(Cells(17, 6), Cells(19, 13)).Select
End

Else
End If
End Sub

Sub Kontrolle_Sonderdienste2()

Dim DeinBereich As Range
Set DeinBereich = Range("F27:M29")

'24 Ist die Anzahl an Kästchen die gefüllt sein müssen.
If WorksheetFunction.CountA(DeinBereich) < 24 Then
MsgBox "Da fehlen noch Zeiten für Sonderdienste (Montag-Freitag)!"
'Markiert den Bereich in dem der Fehler liegt
Range(Cells(27, 6), Cells(29, 13)).Select
End
Else
End If
End Sub

Sub Kontrolle_Regeldienstzeit()

Dim DeinBereich As Range
Set DeinBereich = Range("D39:E48")

'10 Ist die Anzahl an Kästchen die gefüllt sein müssen.
If WorksheetFunction.CountA(DeinBereich) < 10 Then
MsgBox "Da fehlen noch Zeiten für Sonderdienste (Fr-So & Feiertage)!"
'Markiert den Bereich in dem der Fehler liegt
Range(Cells(39, 4), Cells(48, 5)).Select
End
Else
End If
End Sub

Sub Kontrolle_Stammdaten()

Dim DeinBereich As Range
Set DeinBereich = Range("J34:L45")

'6 Ist die Anzahl an Kästchen die gefüllt sein müssen.
If WorksheetFunction.CountA(DeinBereich) < 6 Then
MsgBox "Da fehlen noch Angaben bei den Stammdaten (Montag-Freitag)!"
'Markiert den Bereich in dem der Fehler liegt
Range(Cells(34, 10), Cells(45, 10)).Select
End
Else
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Makro nur ausführen wenn Zellen befüllt sind.

Makro nur ausführen wenn Zellen befüllt sind.

Makro nur ausführen wenn Zellen befüllt sind.

Makro nur ausführen wenn Zellen befüllt sind.

Makro nur ausführen wenn Zellen befüllt sind. - Similar Threads - Makro ausführen Zellen

Makro nur ausführen wenn wenigstens eine Zelle gefüllt

Makro stoppen und sobald Wert in Zelle vorhanden Makro weiter ausführen

Makro erst ausführen wenn Wert in Zelle >0

Makro bei klick in Zelle ausführen

Aktuallisierte Zellwerte kennzeichnen

Suche Hilfe bei einem VBA Code --> Prüfen ob Zelle Leer, dann Makro ausführen

Makro ausführen bei Wertänderung in Zelle