Hallo Holger,
vielen Dank, es hat super funktioniert, ich musste nur eine Änderung tun:
Selection.AutoFill Destination:=Range(strSp(iColumn + 2) & "3:" & strSp(iColumn + 2) & CStr(pWS_Stufen.Cells(Rows.Count, iColumn).End(xlUp).Row))
Danke nochmal
Gruss
loulita
Holger schrieb am 10.04.2009 16:44:45:
Sorry:
Selection.AutoFill Destination:=Range(strSp(iColumn + 2) & "3:" & strSp(iColumn + 2) & cstr(pWS_Stufen.Cells(Rows.Count, 1).End(xlUp).Row))
Holger schrieb am 10.04.2009 16:42:29:
Hallo Loulita,
UsedRange zeigt öfters unerwartete Ergebnisse. Woran das liegt, habe ich bisher auch noch nicht herausgefunden. Cells(Rows.Count, 1).End(xlUp).Row liefert die Nummer der letzten befüllten Zelle der Spalte A, also:
Selection.AutoFill Destination:=Range(strSp(iColumn + 2) & "3:" & strSp(iColumn + 2) & pWS_Stufen.CStr(Cells(Rows.Count, 1).End(xlUp).Row))
Gruß
Holger
Loulita schrieb am 10.04.2009 14:53:55:
Hallo Holger,
vielen vielen Dank.
Es passt gut,es werden aber alle Zeilen in der Spalte D ausgefüllt!
Ich brauche die werte aber nur solange die Spalte A mit Zahlen bestückt ist?
Gru?
loulita
Holger schrieb am 10.04.2009 14:18:41:
Hallo Loulita,
ich kann mangels Kenntnis über dein Vorhaben nur einen formalen Fehler korrigieren. Du solltest mehr auf öffnende und schließende Klammern und auf Teile, die als Text eingefügt werden, achten.
Selection.AutoFill Destination:=Range(strSp(iColumn + 2) & "3:" & strSp(iColumn + 2) & pWS_Stufen.UsedRange.Rows.Count)
Gruß
Holger
Loulita schrieb am 10.04.2009 13:39:43:
Hallo Holger,
danke für deine Hilfe.
Ich habe die Formel korrigiert:
pWS_Stufen.Range(strSp(iColumn + 2) & "3").Formula = "=(1+" & strSp(iColumn) & "3" & ")/(1+ $" & strSp(iColumn + 2) & "$" & 1 & " )-1" ' entspricht D3=((1+A3)/(1+$C$1))-1
Ich habe das Problem leider nicht richtig beschrieben.
Mein nächstes Problem ist :
D4, D5,...... bis ( die ausgefüllte Spalten von A,da ich Spalte A komplett habe).
ich habe folgendes Probiert , aber es passt nicht:
pWS_Stufen.Range(strSp(iColumn + 2) & "3").Select
Selection.AutoFill Destination:=Range(strSp(iColumn + 2) & "3"): strSp (iColumn + 2) & pWS_Stufen.UsedRange.Rows.Count)
es gibt eine möglichkeit mit Pastespecial aber ich komme nicht weiter damit!
Hast du eine Idee wie ich es realisieren kann?
für deine Hilfe bin ich sehr dankbar
Gruss
Loulita
Holger schrieb am 09.04.2009 14:08:42:
Hallo Loulita,
ohne Gewähr, dich richtig verstanden zu haben. .Formula gibt einen Variantausdruck zurück, der mit einem Gleichheitszeichen beginnt, das du abtrennen musst, wenn du den Ausdruck in einer anderen Formel (nicht am Anfang) verwenden willst:
pwS_Stufen.Range(strSp(iColumn + 2) & "3").Formula = "=(1+ " + Mid(pwS_Stufen.Range(strSp(iColumn + 2) & "3").Formula, 2) + ")/(1+$(pWS_Stufen.Range(strSp(iColumn + 2) & 1).value)$)-1 "
Vielleicht wirst du noch etwas mehr ändern müssen.
Gruß
Holger
Loulita schrieb am 09.04.2009 12:34:15:
Hallo zusamme,
kann mir Bitte jemand erklären, was ich hier falsch schreibe?
pWS_Stufen.Range(strSp(iColumn + 2)&"3").Formula ="=(1+ pwS_Stufen.Range(strSp(iColumn + 2) _& "3").formula)/(1+$(pWS_Stufen.Range(strSp(iColumn + 2) & 1).value)$)-1 "
Für eure Hilfe bin ich sehr dankbar
gruß
loulita |