der in der Folge stehende Code darf nur ausgeführt werden, wenn in den
Feldern: "MNAME" und "MAUF" ein Eintrag ist.
Wenn eines oder beide Felder leer ist oder sind, soll der Hinweis kommen:
"Namen oder Auftragsnummer fehlt!"
Nach dem Klick auf das "O.K." Button soll das Makro zum Feld: "MNAME" zurück kehren.
Kann man das realisieren?
Sub DifferenzJa()
Range("D17:F17").Select
ActiveCell.FormulaR1C1 = "=MEK-MVK"
Range("D17:F17").Select
ActiveCell.FormulaR1C1 = "=(MEK-MVK)/MWST/100-(MEK-MVK)"
Range("D17:F17").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D18:F18").Select
Application.CutCopyMode = False
Beep
End Sub
gruss rudiflei