Office: (Office 365) CommandButton1 nur aktiv wenn Zelle gefüllt.

Hallo Zusammen,

habe den CommandButton1 mit einem Makro belegt.
Möchte aber das der Button nur funktioniert wenn die Zellen B5:B13 mit Werten gefüllt sind.
In den Zellen A5:A13 stehen Bezeichnungen.
Wenn jetzt der Wert aus B5 fehlt sollte eine Fehlermeldung erscheinen das der Name fehlt,in B6 würde dann die Schicht fehlen u.s.w.

Eventuell kann mir jemand helfen ?

Datei im Anhang

 

Hallo Merkur,

Code:

Sub CMM_Export()
    If Application.CountIf(Range("B5:B13"), "") <> 9 Then
        MsgBox " nicht alle gefüllt"
    Else
        Dim intCount2 As Integer
        Dim varArr() As Variant
        Dim lngCount1 As Long
        Dim strTMP As String
        varArr = Range("A6:C13")
        Open "Pfad" For Output As #1
        For lngCount1 = 1 To UBound(varArr)
            For intCount2 = 1 To UBound(varArr, 2)
                strTMP = strTMP & varArr(lngCount1, intCount2)
                If strTMP <> "" Then
                    Print #1, strTMP
                End If
                strTMP = ""
            Next intCount2
        Next lngCount1
        Close #1
    End If
End Sub

 

Hallo Hajo,

danke für die Hilfe,jetzt ist es aber so.
Wenn jetzt nichts in den Zellen zwischen B5:B13 steht,wird das Makro trotzdem ausgeführt.

 

Hallo Merkure,

dann habe ich die Aufgabe falsch verstandenb, das das Makrioo prüfen soll ob alle Zelle gefüllt sind.
Mit Makro woillst Du esa nicht lösen.
Ich bin dann raus, eine VBA freie Lösung habe ich nicht.

Gruß Hajo

 

..........schade.

 

Hallo,

du musst im Makro von Hajo_Zi

Code:

Sub CMM_Export()
   If Application.CountIf(Range("B5:B13"), "") <> 9 Then
  '....

aus dem Neuner in der IF-Zeile einen Nuller machen:

Code:

Sub CMM_Export()
   If Application.CountIf(Range("B5:B13"), "") <> 0 Then
   '.....

Hajo_Zi fragt nämlich in der Zeile ab, wie viele Leerzellen in diesem Bereich von 9 Zellen enthalten sind. Gibt es dort tatsächlich Leerzellen (Anzahl ist dann ungleich 0), soll der Infotext "nicht alle gefüllt" angezeigt und das eigentliche Makro von dir nicht ausgeführt werden.

 

Hallo Anton,

besten dank für die Hilfe.
Jetzt funktioniert es wie gewünscht.