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

 

Moin
Frage an @Doming : Warum nicht Select Case?
Grüße

 

Hallo Bastler,
ich verstehe die Frage nicht, wo sollte man in dem Code SELECT CASE sinnvoll einsetzen?
Gruß
Doming

 

Moin Doming,
zB. so ...

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ""
    Case Cells(4, 2), Cells(5, 2), Cells(6, 2), Cells(7, 2)
        Cells(19, 6) = Cells(19, 6) + 1
        MsgBox Cells(19, 6)
End Select
End Sub

Und was die lange Liste einzelner Zellen betrifft: Für diese den Zellschutz entfernen, ansonsten das Blatt schützen und im Code nach On error resume next einfach allen Contents aus den bearbeitbaren Zellen mit cells.clearcontents entfernen.

Grüße

 

ok, ich neige mein Haupt

 

Kein Grund dafür! Jetzt aber zackig wieder hoch mit der Rübe!!
Kennste das DIW-Prinzip? Du lernst von mir, Ich lerne von Dir, so lernen Wir. Finde ich gut.
Grüße