2 Worksheet_Change Ereignisse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
Teil1:


Private Sub Worksheet_Change(ByVal Target As Range)
'    If Target.Address  "$D$5" And Target.Address  "$F$5" Then Exit Sub
'    If Range("D5") > Range("F5") Then
'       MsgBox "Anfangsdatum darf nicht größer als Enddatum sein"
'    Else
'        ActiveSheet.Unprotect Password:="wg"
'        With Range("D14:M1500")
'          .AutoFilter Field:=1, Criteria1:=">=" & Range("D5").Value2, Operator:=xlAnd _
'            , Criteria2:="

Teil2:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim WkS As Worksheet
Set WkS = ThisWorkbook.Worksheets("Eingabe")
WkS.Unprotect Password:="wg"
WkS.Cells.Locked = True
Select Case Range("N4").Value
Case "mh"
WkS.Range("D13:N1264").Locked = False
WkS.Range("N4,D5,F5").Locked = False
Case "rro"
WkS.Range("M13:M1264").Locked = False
WkS.Range("N4").Locked = False
Case ""
WkS.Range("N4").Locked = False
Case "as"
WkS.Range("N4").Locked = False
Exit Sub
End Select
WkS.EnableSelection = xlUnlockedCells
WkS.Protect "wg"
End Sub

Danka und Gruß

Private Sub Worksheet_Change(ByVal Target As Range) Dim WkS As Worksheet If Target.Address = "$N$4" Then Set WkS = ThisWorkbook.Worksheets("Eingabe") WkS.Unprotect Password:="wg" WkS.Cells.Locked = True Select Case Range("N4").Value Case "mh" WkS.Range("D13:N1264").Locked = False WkS.Range("N4,D5,F5").Locked = False Case "rro" WkS.Range("M13:M1264").Locked = False WkS.Range("N4").Locked = False Case "" WkS.Range("N4").Locked = False Case "as" WkS.Range("N4").Locked = False Exit Sub ' Was soll damit bezweckt werden? Dann wird der Blattschutz doch nicht _ wieder gesetzt End Select WkS.EnableSelection = xlUnlockedCells WkS.Protect "wg" ElseIf Target.Address = "$D$5" Or Target.Address = "$F$5" Then If Range("D5") > Range("F5") Then MsgBox "Anfangsdatum darf nicht größer als Enddatum sein" Else ActiveSheet.Unprotect Password:="wg" With Range("D14:M1500") .AutoFilter Field:=1, Criteria1:=">=" & Range("D5").Value2, Operator:=xlAnd _ , Criteria2:="

Hi,
Zitat: Wenn du jetzt auf die Adresse N4 schaust und nur dann den Code ausführst dann muss der Zeiger doch auch immer auf N4 stehen oder?
Wenn ich nun die Zelle verlasse ist der Effekt wie ich ihn wollte eben nicht mehr gegeben!

Wenn du eine Zelle verlässt, kann der Cursor nicht mehr auf die Zelle verweisen. Sorry, aber ich weiß leider immer noch nicht was für ein Effekt ausgelöst werden soll, und deine Beschreibung sagt mir absolut nichts. Der 1. Teil des Codes wird ausgelöst wenn du einen Eintrag in N4 machst, der 2. Teil wenn der Eintrag in D5 oder E5 erfolgt. Wenn der 1. Teil immer ausgelöst werden soll dann lass den ElseIf-Teil weg und setze stattdessen nur den 2. Teil in die If-Anweisung, den 1. Teil lässt du ohne.
Mehr kann ich dazu nicht sagen. Aber vielleicht kommt ja ein anderer Helfer besser mit deiner Beschreibung zurecht.

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread