Thema Datum  Von Nutzer Rating
Antwort
09.04.2009 12:34:15 Loulita
NotSolved
09.04.2009 14:08:42 Holger
NotSolved
10.04.2009 13:39:43 Loulita
NotSolved
10.04.2009 14:18:41 Holger
NotSolved
10.04.2009 14:53:55 Loulita
NotSolved
10.04.2009 16:42:29 Holger
NotSolved
Rot Aw:Aw:Aw:Aw:Aw:Aw:Formula einfügen
 10.04.2009 16:44:45 Holger
NotSolved
10.04.2009 17:17:16 Loulita
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
10.04.2009 16:44:45		 Views:
2109		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Formula einfügen
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.04.2009 12:34:15 Loulita
NotSolved
09.04.2009 14:08:42 Holger
NotSolved
10.04.2009 13:39:43 Loulita
NotSolved
10.04.2009 14:18:41 Holger
NotSolved
10.04.2009 14:53:55 Loulita
NotSolved
10.04.2009 16:42:29 Holger
NotSolved
Rot Aw:Aw:Aw:Aw:Aw:Aw:Formula einfügen
 10.04.2009 16:44:45 Holger
NotSolved
10.04.2009 17:17:16 Loulita
NotSolved