Schlaufe durchlaufen bis Zähler abgearbeitet
10.08.2007 23:23:00
Peter
Ich möchte nachfolgende Formel in Zelle C13 einsetzen und weitere in D13, G13, etc. und dies in den nachfolgenden Zeilen wiederholen, bis der Zähler auf 0 ist. Zu Beginn wird er ermittelt und sagen wir er sei 6 und der Variable Zähler (as Long) zugewiesen.
Wie muss die Schlaufe aussehen, dass ich bis Zeile 18 die Formeln eintrage?
Sub Eintragen()
Dim lastRow As Long, Zähler As Long, Zeile as Long
Dim xWks As Worksheet
Set xWks = Worksheets("Auswertung")
letzteZeile= xWks.Cells(Rows.Count, 1).End(xlUp).Row
If lastRow > 10 Then Zähler = lastRow - 13
xWks.Cells(11, 11) = "=sum(K12:K" & letzteZeile & ")" 'Summenformel in K11 - Total Börsenwert _
CHF
xWks.Cells(11, 12) = "=sum(L12:L" & letzteZeile & ")" 'Summenformel in L11 - Total Marchzins _
CHF
xWks.Cells(11, 13) = "=sum(M12:M" & letzteZeile & ")" 'Summenformel in M11 - Total vorige _
Totale CHF
Zeile = 13 'Beginn bei Zeile 13
? Zähler setzen
''''=VLOOKUP($A13,xDaten,6,FALSE)
tarWks.cells(Zeile,3) = "=vlookup($A"&Zeile&",xDaten,6,FALSE)" 'xDaten = definierter Bereich
tarWks.cells(Zeile,4) = "=vlookup($A"&Zeile&",xDaten,3,FALSE)"
Zeile = Zeile + 1
? Zähler abgearbeitet
End Sub