Clever-Excel-Forum

Hallo.

Ich möchte, das, wenn in Spalte E etwas steht, verhindert wird, dass man das Blatt wechseln kann.

Wenn das Blatt kopiert wird, funktioniert der Code nicht mehr, weil ich nicht weiß, wie man die Codezeile bzw. die Anweisung verallgemeinern kann. Mit ActiveSheet.Select funktioniert's jedenfalls nicht. Da muss es doch was geben?

Gruß
Uwe

Codefenster des Tabellenblatts

Code:
Private Sub Worksheet_DeActivate()

If WorksheetFunction.CountIf(Range("E:E"), "Bitte alle Felder der Tabellenzeile ausfüllen!") > 0 Then

    Worksheets(6).Select     '<<<hier 

    MsgBox "UNERLAUBTE AKTION" & vbNewLine & vbNewLine & _

    "Ein Wechsel des Tabellenblatts ist erst möglich, wenn alle Felder der Tabelle ausgefüllt sind.", _

    vbCritical, ThisWorkbook.Name

End If

End Sub

Hallo,

Code:
Private Sub Worksheet_DeActivate()

If WorksheetFunction.CountIf(Range("E:E"), "Bitte alle Felder der Tabellenzeile ausfüllen!") > 0 Then

    Me.Activate     '<<<hier

    MsgBox "UNERLAUBTE AKTION" & vbNewLine & vbNewLine & _

    "Ein Wechsel des Tabellenblatts ist erst möglich, wenn alle Felder der Tabelle ausgefüllt sind.", _

    vbCritical, ThisWorkbook.Name

End If

End Sub

Warum ist ein anderes Arbeitsblatt sichtbar/wählbar, wenn noch nicht alle Bedingungen erfüllt sind ?
Sheet_deactivate scheint mir ein zu späte Kontrolle-Ort zu sein.

Potzblitz! Hab schon einiges mit der Activate-Methode experimentiert, hat aber nicht geklappt. Einfach "Me.Activate" reinzuschreiben ist mir leider nicht in den Sinn gekommen.

Ich bin nicht versiert. Mir fällt nix anderes ein. Wenn in einer Zeile (A:C) nicht alle Felder ausgefüllt sind, erscheint in E die Meldung. Dann wird im Worksheet_DeActivate abgefragt, ob in E was steht.

Hallo,

Zitat:Wenn in einer Zeile (A:C) nicht alle Felder ausgefüllt sind,

die Buchstaben stehen für Spalten, nicht für Zeilen. Du willst doch nicht ernsthaft ganze Spalten (über eine Million Zeilen), darauf überprüfen, ob die alle ausgefüllt sind?

Hallöchen,

ich denke, das passt schon so.

Das etwas fehlt wird durch die Ausgabe "Bitte alle Felder der Tabellenzeile ausfüllen!" angegeben, ist wohl ein Formelergebnis. Da weiß der Anwender Bescheid. Solange das irgendwo in Spalte E steht, willst Du einen Blattwechsel verhindern. Da reicht, das erst dabei zu tun.

CaptainNemo

Steffl

snb

CaptainNemo

Klaus-Dieter

schauan