Office: (Office 365) VBA Editor - Hilfe benötigt - Speichern, nur wenn Felder gefüllt

Hallo liebes Forum, habe schon etwas rumprobiert - komme aber leider nicht mehr weiter mit VBA (Anfänger):

Ich habe folgende Aufgabenstellung:
Spalte A (Artikel) bekommt Werte eingepflegt
Spalte B (EK) soll "Pflichtfeld" werden, wenn Zellen in Spalte A nicht leer sind
Die Datei soll nicht gespeichert werden, solange nicht Spalte B gefüllt ist

Hier mein Code:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Artikel As Range
    Dim EK As Range
        For Each Artikel In Worksheets("Test").Range("A2:A5")
        If c <> "" Then
            For Each EK In Worksheets("Test").Range("B2:B5")
            If d = "" Then
                MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!"
                Cancel = True
                Exit For
            End If
        Next
End Sub

Könnte mir jemand helfen? DANKE

 

fü
If d = "" Then
If Artikel<>"" and ek.offset(0,1) ="" then
und Schleife
For Each EK In Worksheets("Test").Range("B2:B5")
löschen

 

Danke Hajo für die schnelle Antwort!! Meinst Du so:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Artikel As Range
    Dim EK As Range
        For Each Artikel In Worksheets("Test").Range("A2:A5")
        If c <> "" Then
            If Artikel <> "" And EK.Offset(0, 1) = "" Then
                MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!"
                Cancel = True
                Exit For
            End If
        Next
End Sub

was bedeutet in dem Code eigentlich c bzw. d ? müüste c nicht Artikel sein!

Gruß Peter

 

also Spalten würden so aussehen:
Spalte A Spalte B
Artikel EK

 

Fürr
If c <> "" The musst Du den Fragen der Dir das vorgeschlagen hat.
Ich bin dann raus da meine Variante nicht mehr relevant, Du hast dazu ja schon jemand anmderes gefragt.
Ich schreibe nicht für den Papirkortnb.
Viel Erfol,g noch.

Gruß Hajo

 

Guten Morgen Hajo, danke erstmal mal das Du helfen willst, verstehe aber nicht ganz, warum Du so sauer bist/wirst. Habe den Code aus dem Internet und versucht es für mich anzupassen und komme leider nicht klar (bin Anfänger mit VBA) - hatte gehofft Hilfe zu bekommen. Deine Hilfe ist definitiv nicht für den Papierkorb.
Ich probiere es dann trotzdem nochmal:
Artikel ist meine erste Spalte
EK meine 2.te Spalte
EK soll Pflichtfeld werden, sobald in Artikel was eingetragen wird
Speichern der Datei soll verhindert werden, sobald in Artikel was steht und das zugehörige Feld in EK leer ist.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Artikel As Range
    Dim EK As Range
        For Each Artikel In Worksheets("Test").Range("A2:A5")
        If Artikel <> "" And EK.Offset(0, 1) = "" Then
                MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!"
                Cancel = True
                Exit For
            End If
        Next
End Sub

Dieser Code bringt folgenden Fehler:

 

Geht wohl jetzt hier weiter.....
VBA Problem