Makro erweitern
21.11.2008 22:22:00
Werner
habe folgendes Problem,das nachfolgende Makro funktioniert wunderbar, d.h. wenn ich die Schaltfläche drücke wird das Makro ausgelöst, ich möchte aber, das das Makro zusätzlich automatisch ausgelöst wird , wenn in Zelle F11 die Zahl 1 steht. Wie muss ich das Makro ergänzen um das zu realisieren?
Private Sub CommandButton377_Click() 'Mitarbeiter 1 Berechnen
Range("O3").Select
Selection.Copy
Range("M11:N11").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("T1").Select
Application.CutCopyMode = False
Range("O4").Select
Selection.Copy
Range("H11:I11").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("O5") = 1
Range("T1").Select
Application.CutCopyMode = False
End Sub
Viele Grüße Werner
Anzeige