|
Hallo RPP63
Hallo ralb_b
vielen Dank dass ihr mich bei der Lösungsfindung unterstützt.
Der Tipp mit |Range("A10").Value = Target.Offset(, -1).Address| funktioniert einwandfrei. In Zelle A10 wird die Zelle neben der aktiven Zell in der gewünschten Form angezeigt.
Leider brauche ich noch eine kleine Ergänzung und zwar beim nachfolgenden Vorgang:
Cells(i, lngSpalte).FormulaLocal = "=WENN(B" & i & "="""";"""";MIN(INDIREKT($A$10:U" & i & ")))"
Trotz INDIREKT schreibt mir das Programm in die entsprechenden Zellen immer
=WENN(B2004="";"";MIN(INDIREKT($A$10:U2004))) dann
=WENN(B2005="";"";MIN(INDIREKT($A$10:U2005))) dann
=WENN(B2006="";"";MIN(INDIREKT($A$10:U2006))) usw.
und leider eben nicht den Zellinhalt der Zelle U2004 welche sich aktuell unter (in) der Adresse $U$2004 befindet und auf den die $A$10 Bezug nimmt # hier z.B. -24,75
das sollte beim ersten Step der Routine am Ende in Zelle V2006 stehen:=WENN(B2004="";"";MIN($U$2004:U2004)))
beim weiteren Prozedere wird U2004 zu U2005 dann zu U2006 usw. | $U$2004:bleibt bis das Spaltenende erreicht ist.
Vielleicht könnte man ja auch in die Zelle A11 noch den hinterlegten Wert aus $A$10 einblenden und dann diesen in die Formeln reinschreiben lassen. Dann wäre das INDIREKT auf dem Excelblatt umgangen - nur so eine Idee.
Aber vlt. geht es auch viel eleganter ?
Ciao der Revanchist
|