Re: Worksheet_Change
06.05.2002 15:19:46
Wilhelm R.
Hallo Hans,
ist nicht ganz so einfach.
erstes Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Dim c As Range
Dim erg As Byte
'Schliesst Makrostart bei Eingabe in Spalte 2 sowie ungleich 170 aus.
If Cells(Target.Row, 2).Value <> 170 Then Exit Sub
''Schließt Makrostart über Spalte 3 und Zeile 52 aus
If Target.Column <> "3" Or Target.Row > 52 Then Exit Sub
''Überprüft ob Wert in Zelle in Spalte E den Ausnahmedurchmessern entspricht
If IsNumeric(Cells(Target.Row, 5).Value) Then
If Cells(Target.Row, 5).Value = 219.1 Or Cells(Target.Row, 5).Value = 273# _
Or Cells(Target.Row, 5).Value = 323.9 Or Cells(Target.Row, 5).Value = 406.4 _
Then Application.Run "IsoDicke"
End If
End Sub2. makro
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A17:D52")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
With Cells(Target.Row, Target.Column)
If .Value = "" Then
Call Nochn.Makro
Application.CutCopyMode = False
End If
End With
End Sub
Wobei dieses 2. Teil laufen soll, wenn die Eingabezellen A17:D52 gelöscht (Entf) werden. Wobei der markierte und zu löschende Bereich auch nur ein Teilbereich sein kann.
Ich sehe nicht wie ich das verzweigen kann.
Wilhelm