Ich möchte das Gewicht, von E2 mit dem Gewicht von D17 vergleichen. Wenn die Abweichung beider Gewichte größer als 2 % ist. Soll die Meldung kommen "Wiegegewicht außer Toleranz. Bitte überprüfen!"
Der Gewichtsvergleich soll erfolgen, wenn ich das Makro sub drucken ausführe.
Sub Drucken()
ActiveSheet.PrintOut
Dim iLetzte As Integer
iLetzte = Sheets(4).[a65536].End(xlUp).Row + 1
' Daten in Tabellenblatt 2 als Historie einfügen
Range("D8:D18").Copy
Sheets(4).Cells(iLetzte, 1).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D2,D11,D15,A2,B2,C2,D2,G14,H14,I14,J14").ClearContents
Range("A2").Select
End Sub
Wenn die Differenz beider Gewicht kleiner als 2 % ist darf das Makro ausgeführt werden und ein Etikett gedruckt werden.
Vielleiht kann mir jemand das Makro erweitern?
Vielen Dank für eure Hilfe!
Tschüß
Rolf