Hallo liebe Experten,
ich habe in Excel ein Macro, dass aus einem Arbeitsblatt verschiedene Daten einließt. (Größe, Menge… des Gegenstandes) Dann habe ich ein Makro, dass mir relativ kompliziert den Preis (in Abhängigkeit von Menge, Größe…) ausrechnet.
Wie kriege ich hin, dass mir das Macro die Preise für Dinge mit Größe 100, 101,102,103… 500 auswirft??? Muss ich das Macro dann 400 mal laufen lassen, und jedes mal unter Größe was anderes eintippen?
lg,
Vera
Hallo liebe Vera
ich habe in Excel ein Macro, dass aus einem Arbeitsblatt
verschiedene Daten einließt. (Größe, Menge… des
Gegenstandes) Dann habe ich ein Makro, dass mir relativ
kompliziert den Preis (in Abhängigkeit von Menge, Größe…)
ausrechnet.
Wie kriege ich hin, dass mir das Macro die Preise für Dinge
mit Größe 100, 101,102,103… 500 auswirft??? Muss ich das
Macro dann 400 mal laufen lassen, und jedes mal unter Größe
was anderes eintippen?
Das verstehe ich nicht so ganz. Mach doch ein Beispiel: Wie sieht die Tabelle aus? wo stehen welche Daten? Was wird wie berechnet?
Ausgabe im Blatt und/oder Druck oder in anderes Blatt?
Die aufgabe scheint mir eher einfach, aber ohne mehr Infos kann ich nichts dazu sagen.
Gruss
Erich
Sorry, hab versucht, so gut wie geht zu erklären, aber probiers noch mal besser.
Also:
in B3:B7 stehen verschiendene Eingabeparameter:
Größe, Farbe usw. von den Rohren, um die es geht.
Dann soll in B8 der Preis des Rohrs ausgegeben werden.
Das funktioniert über ein Macro. (Makro tuts)
Es gibt jetzt aber ganz unterschiedliche Rohre mit Größe von 1m bis 500m. Wie mache ich, dass mein Makro für Längen von 1 - 500 den Preis ausrechnet und mir irgendwo (meinetwegen im gleichen Blatt)
hinschreibt??? oder muss ich wirklich 500 mal laufen lassen?
(Besser erklärt???)
Hallo,
du brauchst eine Schleifenstruktur und eine Variable, etwa so:
Option Explicit
Sub subPreiseBerechnen()
Dim intRohrLaenge As Integer
Dim intAndereVariableDieDenPreisBestimmt As Integer
intAndereVariableDieDenPreisBestimmt = 1
For intRohrLaenge = 1 To 500
Range("B8").Select
ActiveCell.Offset(intRohrLaenge - 1, 0) = intRohrLaenge \* intAndereVariableDieDenPreisBestimmt
Next
End Sub
Gruß, Bernd
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Bernd
Ich war einen Tag weg und du hast ganz in meinem Sinn geantwortet!
Erich