Office: (Office 2010) VBA: Größten Wert mit Hilfsvariable ermitteln und weiterverarbeiten

Hey Excel-Nutzer,

ich möchte von 4 Werten, die untereinander in einer Spalte stehen den größten Wert ermitteln und diesen dann von einem Wert abziehen, der sich in einer anderen Spalte befindet. Die Subtraktion soll Einer-Schritten erfolgen, solange die Werte größer 0 sind. Die 4 Werte werden jeweils mithilfe der Offset-Funktion erreicht.
Für die Ermittlung des größten Wertes habe ich eine Hilfsvariable „max“ angelegt, die mittels einer If-Schleife den je größten Wert annimmt.

Unten seht ihr meinen bisherigen Code. Mein Problem beginnt nach dem Abarbeiten der ersten If-Schleife. Ich bräuchte die Information, in welcher der Offset Bezüge das Maximum ermittelt wurde, um dann die Subtraktion durchzuführen. Denn „zahl.Offset(-13 + i, 7) = zahl.Offset(-13 + i, 7) - 1“ funktioniert ja sonst nicht.

PHP:

         Dim zahl As Range, allezahlen As Range, hilfe&, runterzaehlen&, max&, i&
Set allezahlen = Range("G26:I27")
For Each zahl In allezahlen
hilfe = zahl
For runterzaehlen = hilfe To 0 Step -1
max = -1
For i = 1 To 4 Step 1
If max < zahl.Offset(-13 + i, 7) Then
max = zahl.Offset(-13 + i, 7)
End If
Next
If max > 0 And zahl > 0 Then
zahl = zahl - 1
zahl.Offset(-13 + i, 7) = zahl.Offset(-13 + i, 7) - 1
End If
Next
Next


:)

 

Hallo MagY,

Den größten Wert in einem Bereich ermittelst du z.B. so: Code:

Das verstehe ich leider nicht.

Mein gerne wiederholter Tipp: Das Hochladen einer Beispieldatei, gerne auch mit anonymisierten Daten, in der zu sehen ist, worin das Problem besteht und wie das Ergebnis aussehen soll, erhöht die Chance auf eine befriedigende Antwort ungemein!

 

Hallo Hasso,

danke für deine Antwort!

Ich habe mal eine Beispieldatei hochgeladen und für einen Bereich meiner Tabelle beispielhaft den VBA Code, (welcher ja fehlerhaft ist).

Ich hoffe, dass du anhand meiner Kommentare auf dem Tabellenblatt meine Absicht erkennst und dann auch die Frage nach den "Einer-Schritten" klar wird.

Da ich ein gesamtes Range abarbeiten will, kann ich nicht einfach die Max-Funktion anwenden, wie du sie vorgeschlagen hast. Daher würde ich gerne die Offset-Funktion nutzen.

Ich wäre dankbar, wenn du dir das mal anschaust.

Grüße
MagY

 

Hallo MagY,

noch bemühe ich mich, zu verstehen, was da genau passieren soll, aber ich glaube, das wird mir nach einer Weile gelingen. Das Hauptproblem sehe ich darin, zu ermitteln, in welche Zeilen der zweiten Tabellen die Zahlen der ersten verteilt werden sollen. Dazu muss man ja die Angaben in der Spalte D auswerten (I, II, III etc.). Wie das eindeutig gehen soll, ist mir noch schleierhaft. Ich melde mich, wenn ich einen Ansatz für eine Lösung sehe.
Nur vorsichtshalber mal nachgefragt: Ist die Mustermappe die engültige Form der Tabelle oder erwartet uns da noch etwas Neues, dass die römischen Zahlen z.B. nicht von I bis V, sondern vielleicht bis X oder M gehen)?

 

Guten Morgen Hasso,

die römischen Zahlen geben quasi an, welche Werte der linken Tabelle an die rechte Tabele verteilt werden können.

Wenn z.b. in D10 "I, II" steht, dann heisst das, dass der Wert in D11 (hier =1) in L 5 (da in K5 ja ein "I" steht) und/oder in L6 (da in K6 ein "II" steht) verteilt werden kann.
Anstelle der römischen Zahlen könnte also auch irgendetwas anderes stehen, es dient nur als Zuordnung.
In diesem Fall würde die 1 Einheit aus D10 an L6 verteilt werden. Da L6 2 Einheiten aufnehmen kann und ich zuerst den größten Wert verteilen will. Nach der Verteilung würde in D10 eine 0 stehen und in L6 eine 1.
Grundsätzlich ist meine Regel "Verteile erst an den größten Wert solange es geht und sobald zwei Werte gleich groß sind, nehme den oberen der beiden"

Außerdem sollen erst die Einheiten im Berich (E10:G13), dann die in (E14:G16), dann (E17:G18), usw. verteilt werden.

Die Mustertabelle ist nur ein kleiner Ausschnitt. Ich habe weitaus mehr römische Zahlen. Mir geht er nur um einen Ansatz, den ich dann auf meine Tabelle anwenden kann.
Ich vergleiche die Aufgabe auch mit der Füllung von freier Kapazität in einem Lager, allerdings handelt es sich um einen völlig anderen Bereich.

Gruß
MagY

 

Hallo MagY,

Das hatte ich befürchtet. stehen diese denn wenigstens immer in der gleichen Form in Spalte D - also durch Komma und Leerzeichen getrennt? Irgendwie muss ich ja diese Werte einzeln herausziehen, um sie in einem Makro verwenden zu können, das die zweite Tabelle nach diesen Werten durchsucht. In D17 steht z.B. nach der IV noch ein Komma - das bringt alles durcheinander!

 

Hallo Hasso,

leider kann ich derzeit keine Datei anhängen, damit ich dir nochmal meine richtige Datei zeige. Werde ich nachholen, sorry!

Aber grundsätzlich ist die Struktur immer gleich (das Komma war ein Tippfehler). Wenn es die Umsetzung erleichtert, könnte man evtl. noch die Spalte C nutzen. Dann könnte man die Grenzen wie folgt angeben.

___C ___ D
10_I____ II
11_II____ III
12_III___ IV
13_IV___ V
14_I____ III
15_II____ IV
16_III___ V
17_I ____ IV

Oder anstelle der römischen Zahlen auch arabische Ziffern. Das wäre mir nciht so wichtig, solange es funktioniert.

Gruß
MagY