VBA, Dreifachschleife
06.03.2022 16:37:24
Chris
ich habe schon gestern einen Beitrag erstellt, allerdings ist der nicht durchgekommen.
Also ich brauche eine Schleife mit drei Variablen. Dabei sollen zwei Variablen, hier "v" und "a" gleichzeitig erhöht werden, nachdem "i" durchgelaufen ist.
Meine bisherigen Versuche mit "Next a,v"; "Next a & v" oder "Next a & Next v" sind fehlgeschlagen.
Die Möglichkeit einen Parameter "a" oder "v" wegzulassen und dann eine neue For-Schleife zu erstellen geht zwar, allerdings hat der Bereich a oder v 13 Wiederholungen und Korrekturen sind dann eben aufwendig bei 13 For-Schleifen.
Das ist meine bisherige Programmierung:
Das ist nur ein Test
Sub und nicht der endgültige!
Da auf der Arbeit mit Excel 2013 gearbeitet wird, gibt es die Funktion maxwenns nicht. Ansonsten gäbe es das ganze Problem nicht.
Danke im voraus für die Hilfe!!!
Sub t2()
Dim i As Double
Dim a As Double
Dim v As Double
For v = 2 To 3
For a = 1 To 2
For i = 1 To 6
Range("M" & i + 1).Value = IIf(Range("A" & i + 1) = a, Range("B" & i + 1), "")
Range("F" & v).Value = WorksheetFunction.Max(Range("M2", "M10"))
Next i
Range("M2", "M10").Clear
Next a, v
End Sub
GrußChris