Hallo,
ich habe eine Tabelle in Listenform, in die alle 12, 6 und 4 Zeilen, eine Zusatzzeile mit Zwischenergebnissen eingefügt wird. Je nach dem, welche Auswertung statt findet. In U12 habe ich eine Formel "=n*12+1" (n=Laufzeit z.B. 1*12+1, dann wird durch das +1 eine Zusatzzeile mit eingefügt. Die dafür vorgesehene Formel holt sich die Werte dann aus "U12". Das Problem ist aber, dass ich eine Auswertung mache, in die bis zu 50 Zusatzzeilen eingefügt werden müssen. Natürlich habe ich schon verschiedene Möglichkeiten ausprobiert und sie funktionieren auch. Aber bei "Wenn Abfragen" ist bei 8 Verschachtelungen im Normalfall Schluss. Über Hintertürchen kann man das anscheinend erweitern. Momentan experimentiere ich mit:
'
Select Case Range("n").Value
'
Case Is = 1
'
Range("U12").Value = 1 * 12 + 1
'
Case Is = 2
'
Range("U12").Value = 2 * 12 + 2
'
Case Is = 3
'
Range("U12").Value = 3 * 12 + 3
'
End Select
'
Ich weiß ja auch gar nicht, wieviele Möglichkeiten "Select Case" zu lassen, deshalb möchte ich mal fragen, ob es die Möglichkeit gibt, das per VBA zu realisieren.
Vielen Dank im voraus
Gruß Frieder