VBA-Schleife (Zeilenschaltung)
25.01.2008 13:16:55
Bernd
bei folgendem Code würde ich gerne ein Anpassung vornehmen, die folgendes bewirken soll:
der gesamte Code soll z. B. 20x durchlaufen werden, dabei soll die Zeilenschaltung (For i=) aber jeweils um +1 erhöht werden. D. h. ich erhalte eine Liste mit Werten in Spalte B und C. Diese Werte stammen aus verknüpften Dateien (und dort aus den Zellen b5,c5, b6 ,c6).
Ich kenne mich bei VBA leider nur sehr schlecht aus, deshalb wäre konkrete Lösung für mich sehr hilfreich!
Danke und Gruß
Bernd
Hier der Code:
Private Sub CommandButton1_Click()
Dim lZeile As Long, i As Long
Dim Formeltext As String
'Stichtag
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
Formeltext = "='C:\Test\Reports\" & Year(Cells(i, 1)) & "_" & CStr(Format(Month(Cells(i, 1)), " _
00")) & "\" & _
CStr(Format(Day(Cells(i, 1)), "00")) & "\Werte\Werte.xls]Werte1'!$B$5"
Cells(i, 2).FormulaLocal = Formeltext
'Bestand
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
Formeltext = "='C:\Test\Reports\" & Year(Cells(i, 1)) & "_" & CStr(Format(Month(Cells(i, 1)), " _
00")) & "\" & _
CStr(Format(Day(Cells(i, 1)), "00")) & "\Werte\Werte.xls]Werte1'!$C$5"
Cells(i, 2).FormulaLocal = Formeltext
Next i
' Stichtag
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
Formeltext = "='C:\Test\Reports\" & Year(Cells(i, 1)) & "_" & CStr(Format(Month(Cells(i, 1)), " _
00")) & "\" & _
CStr(Format(Day(Cells(i, 1)), "00")) & "\Werte\Werte.xls]Werte1'!$B$6"
Cells(i, 2).FormulaLocal = Formeltext
'Bestand
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
Formeltext = "='C:\Test\Reports\" & Year(Cells(i, 1)) & "_" & CStr(Format(Month(Cells(i, 1)), " _
00")) & "\" & _
CStr(Format(Day(Cells(i, 1)), "00")) & "\Werte\Werte.xls]Werte1'!$C$6
End Sub
Anzeige