Hallo eine Frage,
ich habe volgenden Code aus der Hilfe von MS:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:C10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Display a message when one of the designated cells has been
' changed.
' Place your code here.
MsgBox "Cell " & Target.Address & " has changed."
End If
End Sub
Damit habe ich bisher eine Zelle (B9) überwacht und mit der Select Funktion eine Aktion ausgeführt.
Nun möchte ich im selben Tabellenblatt eine andere Zelle überwachen und habe den SUB kopiert und angepasst. leider funktioniert es nicht, kann mir einer meinen Fehler nennen?
Vielen Dank Für Eure Unterstütung.
Bei dem zweiten SUB passiert nichts.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("B9")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
x = Sheets("Zentrale Projektdaten").Range("B9")
Select Case x
Case Is = "Ja"
Sheets("Cockpit").Rows("57:78").Hidden = False
Sheets("Planzahlen ANT").Columns("M").Hidden = False
Sheets("Planzahlen ANT").Columns("Z").Hidden = False
Case Is = "Nein"
Sheets("Cockpit").Rows("57:100").Hidden = True
Sheets("Planzahlen ANT").Columns("M").Hidden = True
Sheets("Planzahlen ANT").Columns("Z").Hidden = True
End Select
End If
End Sub
Private Sub Worksheet_Change2(ByVal Target As Range)
Dim KeyCells1 As Range
Set KeyCells1 = Range("B18")
If Not Application.Intersect(KeyCells1, Range(Target.Address)) _
Is Nothing Then
t = Sheets("Zentrale Projektdaten").Range("B18")
Select Case t
Case Is = "ungeplant"
Sheets("Zentrale Projektdaten").Rows("19:20").Hidden = False
Case Is = "geplant"
Sheets("Zentrale Projektdaten").Rows("19:20").Hidden = True
End Select
End Sub
End If
|