Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alte durch aktuelle Werte bei Subtraktion ersetzen

Alte durch aktuelle Werte bei Subtraktion ersetzen
25.04.2013 09:26:33
Jana
Hallo zusammen,
ich habe folgendes Problem und möchte es gerne mit VBA lösen:
Zwei Tabellen sind jeweils mit Werten gefüllt, die ich voneinander abziehen will.
Man könnte z.B. sagen, dass in der oberen Tabelle Liefermengen stehen, die jeweils geliefert werden können. In der unteren Tabelle stehen die Kapazitäten eines Lagers, das gefüllt werden soll.
Beispiel:
Produkt A soll geliefert werden und in Lagerstelle AA gelagert werden. Ich will mittels VBA erreichen, dass solange die Kapazität in A größer 0 ist diese gefüllt werden soll. Wenn diese Kapazität bei 0 ist oder die maximale Liefermenge erreicht ist, dann sollen die Ursprungswerte (hier die oberen zwei Tabellen) durch die neuen Werte ersetzt werden (unteren zwei Tabellen).
Ursprungswerte
Liefermengen:
______Produkt A | Produkt B
Lagerstelle AA| 3 | 2
Lagerstelle AB| 2 | 1
Lagerkapazität:
______Produkt A | Produkt B
Lagerstelle AA| 2 | 4
Lagerstelle AB| 2 | 2
Im vorliegenden Fall müssten dann die neuen Werte in den jeweiilgen Zellen zu sehen sein.
Neue Werte
Liefermengen:
______Produkt A | Produkt B
Lagerstelle AA| 1 | 0
Lagerstelle AB| 0 | 0
Lagerkapazität:
______Produkt A | Produkt B
Lagerstelle AA| 0 | 2
Lagerstelle AB| 0 | 1
Kann mir jemand unter die Arme greifen? Ich verzweifle so langsam.
Danke vorab für's Lesen!
LG Jana

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alte durch aktuelle Werte bei Subtraktion ersetzen
25.04.2013 09:33:42
Jana
EDIT:
Produkt A soll geliefert werden und in Lagerstelle AA gelagert werden. Ich will mittels VBA erreichen, dass solange die Kapazität in AA größer 0 ist diese gefüllt werden soll.

mit ner kleinen Schleife ist das ganz einfach ...
25.04.2013 12:06:27
Matthias
Hallo Jana
Der Bereich C5:D6 ist als Name Bereich definiert.
Tabelle1

 BCD
3Liefermengen
4 ProduktAProdukktB
5LagerstelleAA32
6LagerstelleAB21


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Mit folgender Schleife kannst Du nun die Werte aktualisieren.
Ich bin hierbei davon ausgegangen das
  1. die Liefermengen und

  2. die Lagerkarpazitäten

im selben Registerblatt stehen
Option Explicit Sub jana() Dim rng As Range, BER As Range, Anz&, x& Set BER = Range("Bereich") For Each rng In BER Anz = rng For x = Anz To 0 Step -1 If rng.Offset(5, 0) > 0 And rng > 0 Then rng = rng - 1 rng.Offset(5, 0) = rng.Offset(5, 0) - 1 End If Next Next End Sub Das Ergebnis:
Tabelle1

 BCD
3Liefermengen
4 ProduktAProdukktB
5LagerstelleAA10
6LagerstelleAB00
7   
8Lagerkapazität:
9 ProduktAProdukktB
10LagerstelleAA02
11LagerstelleAB01


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
https://www.herber.de/bbs/user/85055.xls
Gruß Matthias

Anzeige
AW: mit ner kleinen Schleife ist das ganz einfach ...
25.04.2013 14:57:10
Jana
Hi Matthias,
vielen Dank für deine Mühe und die schnelle Antwort :)
Ich konnte deinen Code soweit ganz gut nachvollziehen und hätte dennoch zwei Fragen:
1)"Der Bereich C5:D6 ist als Name Bereich definiert."
Wo sehe ich, dass dieser Bereich im Code zugeordent wird. Ich hätte jetzt etwas wie "Set Bereich = Sheets("Tabelle1").Range(C52:D6") erwartet.
2) Ist es möglich anstelle der Offset Anweisung einen flexibleren Bezug zu wählen? Z.B. indem man den Inhalt der Zelle C5 über die zwei Eigenschaften Lagerstelle AA und Produkt A anspricht?
Grüße Jana

Anzeige
AW: mit ner kleinen Schleife ist das ganz einfach ...
25.04.2013 17:31:55
Matthias
Hallo Jana
Userbild
Set BER = Range("Bereich")
Mit For Each rng In BER startest Du dann die Schleife
Deine 2.Frage verstehe ich nicht, sorry
Es ist doch flexibel durch die Offset-Anweisung

  • 5 Zeilen weiter unten

  • 0 Spalten nach rechts


Brauchst Du also einen anderen Bezug, dann ändere die Werte in Offset(5,0) so wie Du sie brauchst
Gruß Matthias

Lagerkarpazität und Liefermengen
26.04.2013 09:56:07
Matthias
Hallo Jana
Hab mal eine weitere Variante erstellt.
Vielleicht verstehst Du hier besser was es mit Offset() auf sich hat.
https://www.herber.de/bbs/user/85076.xls
Gruß Matthias

Anzeige
heißt natürl. Kapazität (capacitas ) sorry kwT
26.04.2013 12:27:37
Matthias

AW: heißt natürl. Kapazität (capacitas ) sorry kwT
26.04.2013 13:12:48
Jana
Hi Matthias,
wow, danke für die neu angelegte Excel-Datei und ausführliche Erklärung!
Habe jetzt alles verstanden. Bezüglich meiner 2. Frage habe ich mich nicht deutlich genug ausgedrückt. Ich meinte mit flexibl, dass ja der Offset-Bezug seine Gültigkeit verliert, wenn eine neue Zeile oder Spalte eingefügt wird oder eine der Tabellen verschoben wird. Aber ich bin blutige Anfängerin und muss step by step reinkommen. Daher reicht das so, wie du es mir gezeigt hast allemal :)
Deine Idee mit den mittleren Tabellen zur Wiederherstellung haben mich auf wiederum auf die Idee gebracht, dass man evtl. die Ausgangstabelle (also die linke Tabelle) beim Klick auf den Einlagerungsbutton als neue Kopie in die Mitte kopiert. Dann würde ganz links der neueste Stand angezeigt werden und in der Mitte der vorherige. Den vorherigen könnte man dann wieder über den Wiederhrstellungsbutton nach links kopieren.
So hätte man eine Art "Rückgängigfunktion" für den Fall das die Ausgangsdaten variieren.
Dachte das geht indem ich folgende zwei Befehle an folgender Stelle einfüge:
...Set BER = Range("Bereich")
Range("Bereich").Offset(0, 6).Value = Range("Bereich").Value
Range("I16:M23").Value = Range("Bereich").Offset(11, 0).Value
For Each rng In BER...
Klappt natürlich nicht :(
LG Jana

Anzeige
konzentrier Dich auf die linken Tabellen
26.04.2013 14:16:58
Matthias
Hallo
...Set BER = Range("Bereich") 
'Das reicht schon (Blattschutz vorher entfernen!)
Range("Bereich").Offset(0, 6).Value = Range("Bereich").Value
Range("I16:M23").Value = Range("Bereich").Offset(11, 0).Value

For Each rng In BER...
Du solltest Dich aber auf die linken Tabellen konzentrieren! Eben Step by Step
Das macht mE auch so keinen Sinn, da es ja nur zur Demo mit drin war.
Gruß Matthias

AW: konzentrier Dich auf die linken Tabellen
27.04.2013 14:27:48
Jana
Ja, hatte den Blattschutz vergessen.
Danke für deine Hilfe, Matthias!
Liebe Grüße
Jana

Anzeige
Danke für die Rückmeldung ... kwT
27.04.2013 15:10:33
Matthias

301 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Verknüpfungen durch Werte ersetzen
Horst

Hallo Excel-Freunde!
Wie kann ich bei folgendem Makro angeben, dass nur Verknüpfungen ab der Spalte AA (Spalte 30) durch Inhalte ersetzt werden. Alle anderen Verknüpfungen sollen erhalten bleiben.
Sub update() Dim i As Long For i = 1515 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).R...
22.02.2009 12:18:26
Thread-ID: 1052805
4 Beiträge
Bei Blattschutz- Formeln durch Werte ersetzen
Mandy

Hallo Ihr Lieben,
habe mal wieder eine Frage: ich lade mit folgenden Code eine Datei und kopiere alle Tebellenblätter aus der Quelle bei mir rein.
Die Tabellenblätter der Quelle, die da eingelesen werden, habe zum Teil untereinander Verknüpfungen (Verweise). Beim einlesen wollte ich abe...
05.05.2009 15:04:37
Thread-ID: 1073102
7 Beiträge
Anzeige
Bestimmte Formeln in durch Werte ersetzen
Steffen

Hallo zusammen,
ich habe folgendes Problem:
ein spezielle Formel (Hyperion Retrieve AddOn(HPVAL)) transportiert externe Daten aus meinem Konsolidierungsprogramm in verschiedene Tabellenblätter einer Exceldatei. Diese externen Daten werden über normale Excelformeln in weiteren Tabellenbl...
21.08.2009 20:57:43
Thread-ID: 1097849
2 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 14:31:21
Thread-ID: 1142729
3 Beiträge
Wie Zahlenwerte durch Absolutwerte ersetzen?
Hans

Hallo,
wie kann ich in einer Spalte, die positive und negative Werte enthält, alle Werte durch deren Absolutwert ersetzen. Das ganze muß ich pro Spalte nur einmal machen, es wäre also ausreichend und von Vorteil, wenn das irgendwie mit dem Suchen/Ersetzen Dialog hinzubekommen wäre (ohne Mak...
02.03.2010 15:13:40
Thread-ID: 1142750
4 Beiträge
SVERWEISE finden und durch Werte ersetzen
grexx123

HAllo,
wie schon im Betreff beschrieben suche ich ein VBA-Schnipsel, das
1. Alle Sverweise sucht
2. Zellen, in denen ein SVERWEIS steht, mit "Wert" füttern (also kopieren und als Wert einfügen)
Ich weiß, dass man Verknüpfungen lösen kann, jedoch habe ich sowohl die Formel als au...
08.03.2010 13:25:36
Thread-ID: 1144304
6 Beiträge
Formeln in Zellen durch VBA ersetzen
Kuhlmey

Hallo, liebe Excel-Freunde ich habe folgendes Problem:
Mittels VBA setzte ich durch Doppelclick ein „X“ in bestimmte Zellen. Diese Zellen werden
ausgelesen und für nachfolgende Formel benötigt:
{=WENN(ZEILE()>ZÄHLENWENN(Tabelle1!A:A;"WAHR");"";INDEX(Tabelle1!B:B; KKLEINSTE(WENN(...
13.03.2010 14:03:05
Thread-ID: 1145598
18 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
17
3
6
4
1
2
3
5
17
2
6
10
3
4
7
8
9
2
1
5
13
2
3
4