Pflichtfelder definieren Bearbeitung fortsetzen

Hallo leibe VBA - Cracks,
gibt es eine Möglichkeit per VBA eine Tabelle so einzuschränken, das eine Bearbeitung der folgenden Zeile nur möglich wenn die Zeile darüber vollständig ausgefüllt wurde. Meine Tabelle hat folgende Eigenschaften:
Ich habe 40 nebeneinanderliegende Spalten jeder dieser Spalten muß mit irgendeinem Wert gefüllt sein, davon ausgenommen sind immer die Spalten I,J,K,AH;AJ;AK diese sollen nicht geprüft werden. In Zeile 3 Steht die Überschrift und ab Zeile 4 beginnen meine Datenspalten. Jetzt stellt sich natürlich noch das Problem wie viele Zeilen den eigentlich überprüft werden sollen. Das habe ich gelöst in dem ich in die Spalte in der Betreffenden Zeile ein "x" eingebe. Nur wenn dort ein "X" steht soll die Prüfung der Zeile erfolgen, dasselbe gilt für die nachfolgenden Zeilen.
Danke an alle Helfer schonmals im Vorraus! :-)))
Grüßle,
Maris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
mit VBA würde ich die Formel einfach nachbauen und entsprechend einsetzen.
Mit VBA bescheiden wahrscheinlich schwer nachzuvollziehen?!
kommt als Code in Tabelle1

Option Explicit 
 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rngEingabe As Range 
Dim sFormel$, lngRow& 
 
'Wirkungsbereich anpassen 
Set rngEingabe = Intersect(Range("B2:H30"), Target) 
'Keine Zelle im Wirkungsbereich? 
If Not rngEingabe Is Nothing Then 
'Schleife über Eingabebereich 
For Each rngEingabe In rngEingabe 
   If rngEingabe <> "" Then 'ist Zelle nicht leer 
    lngRow& = rngEingabe.Row 'Zeile der Zelle für Formel 
    'Formel zusammenbauen 
    sFormel$ = "=(LOWER($A" & lngRow& & ")=""x"")*(COUNTA($B" & lngRow& - 1 & ":$H" & lngRow& - 1 & ")=7)" 
    If Not CBool(Evaluate(sFormel)) Then 'Ergebnis der Formel mit Prüfung 
        Application.EnableEvents = False 'events aus 
            Application.Undo 'Handeingabe rückgängig 
            MsgBox "Füllen Sie alle Pflichtfelder aus", vbCritical, "aktion Rückgängig" 'Fehlermeldung 
        Application.EnableEvents = True 'events an 
        Exit Sub 'aussteigen 
    End If 
   End If 
Next rngEingabe 
End If 
End Sub

Hier die Testmappe.
https://www.herber.de/bbs/user/70714.xls
Gruß Tino

Beliebteste Forumthreads (12 Monate)

Pflichtfelder definieren Bearbeitung fortsetzen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pflichtfelder definieren Bearbeitung fortsetzen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread