Office 2010: Excel-Makro: Aufpoppen Msg-Box, falls Bedingungen nicht erfüllt sind

[max1980]

Hallo Excel-Profi,

ich habe eine Frage zu einem Excel-Makro und bin mir sicher, ihr könnt mir dabei helfen.
Irgendwie bin ich nicht in der Lage im unterem Makro eine Abfrage einzubauen.
Ich möchte sicherstellen, dass die alle Makros nur dann ausgeführt werden, wenn:

Zelle F100 im "GB"-Tabellenblatt leer ist oder gleichtzeitig die Zellen A100 bis F100 befüllt sind
Sollte dies nicht eintreffen, dann soll eine Msg-Box aufpoppen mit der Meldung "Geht nicht" und die alle hinterlegte Makros nicht ausführen lassen.


Das Makro sieht so aus:

Private Sub CommandButton10_Click()

'Werte werden in Zahlen umgewandelt
Dim cell As Range
For Each cell In Worksheets("GB").Range("G10:G3000")
 cell.Value = cell.Value
 Next

D_A                 'Makro
D_B                 'Makro

Dim cell1 As Integer
cell1= 10
For cell1 = 10 To 55
    If Range("g" & cell1).Value = "" Then
        Rows(cell1).Hidden = True
            Else
        End If
    Next cell1

End Sub


Leider bekomme ich es nicht hin, obwohl ich es lange versucht habe :-(

Ich sage schon jetzt danke.

Gruß
Max

[gmg-cc]

Moin Max,
versuche mal dieses:

Code: [Auswählen]

Private Sub CommandButton10_Click()
   With Worksheets("GB")
      If (.Cells(100, 6) = "") Or WorksheetFunction.CountA(Range("A100:F100")) = 6 Then
         'Dein Code
         MsgBox "OK" 'Nur zum Test
      Else
         MsgBox "Ein satz mit X:" & vbCrLf _
         & "Das war wohl nix!"
      End If
   End With
End Sub


[max1980]

Hi gmg-cc,

es hat wunderbar funktioniert. Thank you very much.

Ich bräuchte jetzt das Makro so, dass er in zwei verschiedenen Tabellenblätter schaut (nicht nur in "GB"), also auch im Tabellenblatt "PS"
befor die Makros ausführt.
Voraussetzungen sind genau die selben.

Ich habe es so ausprobiert, hat aber nicht funktiert:

With Worksheets("GB")
If (.Cells(100, 6) = "") Or WorksheetFunction.CountA(Range("A100:F100")) = 6 Then
With Worksheets("PS")
If (.Cells(100, 3) = "") Or WorksheetFunction.CountA(Range("A100:C300")) = 3 Then

Kannst Du mir da auch helfen?

Danke und ein schönes Wochenende
Max

[gmg-cc]

Ja Max, vielleicht geht es ja anderen Helfern ähnlich wie mir.
Hilfe zur Selbsthilfe ist in einem Forum OK.
Auf der anderen Seite mag ich es gar nicht, wenn Probleme in kleine Happen aufgeteilt werden, damit es beim ersten Mal nicht zu viel ist. Zugegeben, du bist nicht der Einzige, der so vorgeht, aber ich denke, dass du mit ein wenig Training selbst weiter kommst.