Office: Hilfe komplette Spalte berechnen

Hi,

hab ein kleines Problem und hoffe ihr könnt mir weiterhelfen:

Ich würde gerne aus einer Spalte (z.B. A) die Werte der einzelnen Zellen nacheinander also erst A1 dann A2 usw. durch eine Formel durchjagen und dann in einer anderen Spalte (z.B. E) ausgeben, sprich A1 in E1 , A2 in E2 usw.

Das soll solange laufen bis in der Spalte A kein Wert mehr gefunden wird. Also nicht fest definiert von A1 bis A10 sondern von A1 bis zur ersten leeren Zelle in der Spalte A.

Vielen Dank schonmal,

Christoph

 

Hi Christoph,

meinst du das so:

Code:

Sub Berechnen()
    Dim lngZeile As Long
    lngZeile = 1
    Do
        Cells(lngZeile, 5) = Cells(lngZeile, 1) * 2
        lngZeile = lngZeile + 1
    Loop While Cells(lngZeile, 1) <> ""
End Sub

Bis später,
Karin

 

Ich bekomm es leider nicht hin, muss dazu sagen, dass ich aber auch ein VBA-Anfänger bin :-).

Habe mal die Mappe angehängt. Es geht dabei nur um die sheets: "Input Cash Flow Modell", "BET und Ratingergebnisse" und "Sensitivitätsanalyse".

Auf dem Sheet "Input Cash Flow Modell" soll die Zelle C9 mit den Zahlen der Tabelle von B4:B53 im Sheet "Sensitivitätsanalyse" gefüllt werden und das Ergebnis, dass dann im Sheet "BET und Ratingergebnisse" in Zelle J3 angezeigt wird, soll dann entsprechend in der Tabelle in den Zellen C4:C53 in der "Sensitivitätsanalyse" eingetragen werden.

Die Wert die aktuell drin stehen habe ich manuell berechnet, da ich die Analyse ausweiten möchte, wärs automatisch sehr hilfreich.

Wenn das wer hinbekommt, wär ich sseehhrr dankbar!!

 

Code:

Sub Berechnung()
    Dim lngZeile As Long
    With Worksheets("Sensitivitätsanalyse")
        For lngZeile = 4 To IIf(IsEmpty(.Cells(.Rows.Count, 2)), _
            .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count)
            Worksheets("Input Cash Flow Modell").Range("C9") = .Cells(lngZeile, 2)
            .Cells(lngZeile, 3) = Worksheets("BET- und Ratingergebnis").Range("J3")
        Next lngZeile
    End With
End Sub

Bis später,
Karin

 

Perfekt !! Vielen Dank für die Lösung.