Makro
21.02.2008 17:35:09
klaro
Wiso arbeitet dieses Makro nicht?
Wurde nach Muster CD von Herber erstellt
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address Range("F1") Then Exit Sub
If IsNumeric(Target) = False Then Exit Sub
If Range("F1") = 1 Then
Call Makro1
End If
End Sub
Grüße
klaro