-
Berechnung mit VBA
Hallo zusammen, ich habe das Problem nun gelöst. Vielen Dank an alle. Hier mein - funktionierender - VBA-Code! Do While ActiveSheet.Cells(Zeile, Spalte - 3).Value <> "ENDE" If ActiveSheet.Cells(Zeile, Spalte + 4).Value <> "" Then If ActiveCell.Value = Tabelle2.Range("D15").Value Or ActiveCell.Value = Tabelle2.Range("D18").Value Then Bestelllaenge = ActiveSheet.Cells(Zeile, Spalte + 3).Value Bestellanzahl = ActiveSheet.Cells(Zeile, Spalte + 4).Value Solllaenge = ActiveSheet.Cells(Zeile, Spalte + 5).Value Sollanzahl = ActiveSheet.Cells(Zeile, Spalte + 6).Value If Solllaenge * Sollanzahl <= Bestelllaenge * Bestelllaenge Then Laenge_Pruef = Bestelllaenge / Solllaenge Laenge_Pruef = WorksheetFunction.RoundDown(Laenge_Pruef, 0) Anzahl_Pruef = Laenge_Pruef * Bestellanzahl Anzahl_Pruef = WorksheetFunction.RoundDown(Anzahl_Pruef, 0) If Anzahl_Pruef >= Sollanzahl Then ActiveSheet.Cells(Zeile, Spalte + 4).Select Selection.Interior.Color = 13434828 ActiveSheet.Cells(Zeile, Spalte).Select ActiveSheet.Cells(Zeile, Spalte + 20).Value = 0 Else ActiveSheet.Cells(Zeile, Spalte + 4).Select Selection.Interior.Color = 8420607 ActiveSheet.Cells(Zeile, Spalte).Select ActiveSheet.Cells(Zeile, Spalte + 20).Value = 1 End If End If End If End If Zeile = Zeile + 1 ActiveSheet.Cells(Zeile, Spalte).Select Loop
-
Berechnung mit VBA
Hallo Arlegermi, ich möchte noch einmal erwähnen, dass es um eine Plausibilitätsprüfung (ausgeführt als VBA-Code) gehen soll. Ich habe zwei Holzbretter mit jeweils 500cm Länge. Die Länge und die Anzahl kann natürlich variabel sein. Wenn ich in der Arbeitsvorbereitung nun sage, dass der im Zuschnitt aus 2 x 500cm bitte 6 x 166cm dann ist das möglich....jeweils 498cm pro Brett und 2cm Rest. Wenn ich dagegen sage, dass er bitte 5 x 167cm machen soll ist das nicht möglich, da ich aus jedem Holzbrett nur 2 x 167cm (=334cm) herausbekommen würde. Die Plausibilitätsprüfung müsste dann sagen, dass ich für 5 x 167cm ein weiteres Brett (500cm) bestellen müsste. Verstanden?.......sorry, ich kann das Problem nicht plastischer darstellen ;-)
-
Berechnung mit VBA
Hallo, die Variablen sind völlig egal ;-) Da es sich um Zahlen handelt würde ich aber Integer wählen! Mir geht es doch gerade um die Rechnung (kleines mathematisches Problem!), die ich anstellen muss um das oben aufgezeigte Ergebnis zu erhalten. Es geht um Längenberechnung! Im o.g. Beispiel habe ich eine Gesamtlänge von 1.000mm. 3 x 251mm = 753mm es passt zwar in 1.000mm, das Programm würde dann aber trotzdem einen Fehler erzeugen, da es mit den Einzellängen von jeweils 500mm nicht geht! Nun mehr Licht im Dunkeln? AHNUNG?
-
Berechnung mit VBA
Hallo zusammen, ich habe abe ein kleines mathematische Problem bei dem mir vllt. einer helfen kann. ich habe zwei Variablen a = 500 b = 2 a x b = 1.000 nun die Ergebnisse der Überprüfung. 2 x 500 = ok 4 x 250 = ok 6 x 166 = ok Alle Längen über 250 (wenn Variable = 500) passen nur ein Mal. 3 x 251 = falsch (passt zwar für die Gesamtlänge (1.000), aber nicht für die Einzellänge von 500 vielleicht kann ja jemand helfen. vielen Dank im Voraus Ahnung?
AHNUNG?
User
-
Registriert
-
Letzter Besuch