Office: VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind

Hallo zusammen,

ich möchte, dass mein VBA Code nicht nur (wie in meinem Code) die Zelle B4 prüft, ob diese ausgefüllt ist, er soll auch noch vier weitere Zellen überprüfen.

Sub NeueAbrechnung()

If Range("B4").Value <> "" Then
Range("S6").Value = Range("S6").Value + 1
Range("B4,B5,K1:O1,K2:O2,O4:O5,N6:O6,N7,O7,A10:M40,O46").Select
Range("O46").Activate
ActiveWindow.SmallScroll Down:=-15
Range("B4,B5,K1:O1,K2:O2,O4:O5,N6:O6,N7,A10:M40,O46,P10:P40").Select
Range("P10").Activate
Selection.ClearContents
Else
MsgBox "Bitte Abrechnung erst ausfüllen"

End If

End Sub

Wie gesagt, für die eine Zelle funktioniert es, ich bekomme es nur leider nicht hin, dass er die anderen Zellen auch noch prüft. Kann mir hier jemand einen kleinen Tipp geben?

Vielen Dank im Voraus!

Viele Grüße

 

Moin Steffi

Code:

Sub NeueAbrechnung()

    If Range("B4") <> "" And Range("B5") <> "" And Range("B6") <> "" And Range("B7") <> "" Then
        Range("S6") = Range("S6") + 1
        Range("B4,B5,K1:O1,K2:O2,O4:O5,N6:O6,N7,A10:M40,O46,P10:P40").Select
        Range("P10").Activate
        Selection.ClearContents
    Else
        MsgBox "Bitte Abrechnung erst ausfüllen"
    End If
End Sub

Ich habe Deinen Code mal etwas eingekürzt, wobei ich denke da geht noch mehr.
Wenn Du die Zellen in der IF-Zeile anpasst, müsste der Code funktionieren.

Gruß
Doming
(übrigens dürfte Deine Frage im Excel-Forum schneller zu Antworten geführt haben)

 

Moin Doming,

super vielen lieben Dank! Funktioniert perfekt! :-) Auch danke für den Tipp, wo meine Frage schneller zu Antworten geführt hätte. :-)

Einen guten Start in die neue Woche.

VG
Steffi