Worksheet-Change zweimal
04.06.2009 20:18:59
Karel
wie kann ich die beiden Worksheet-Change Ereignisse zu einem zusammenfassen?
mein kentnisse reiche nicht aus für diese Problem.
code von Tino und Hajo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim rngKrit As Range
If Target.Address = "$F$1" Or Target.Address = "$A$1" Then
With Tabelle26
Set Bereich = .Range("A2:P" & .Cells(.Rows.Count, 6).End(xlUp).Row)
Set rngKrit = .Range("Q2", IIf(.Range("R3") "", .Range("R3"), .Range("Q3")))
End With
With Tabelle9
Bereich.AdvancedFilter xlFilterCopy, rngKrit, .Range("B4:I4"), False
Set Bereich = .Range("A4:G" & .Cells.SpecialCells(xlCellTypeLastCell).Row)
Bereich.Sort Bereich(1, 5), xlAscending, Bereich(1, 6), , xlAscending, , , xlYes
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range
Dim RaZelle As Range
Set RaBereich = Range("F3:F20000")
ActiveSheet.Unprotect
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each RaZelle In RaBereich
If RaZelle = "" Then
RaZelle.Offset(0, 9) = ""
ElseIf RaZelle.Offset(0, 9) = "" Then
RaZelle.Offset(0, 9) = Date
End If
Next RaZelle
ActiveSheet.protect
Application.ScreenUpdating = True
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Grusse
Karel