wiederholungsprozedur
01.01.2005 21:03:51
Markus
ich brauche Hilfe bei einer sich wiederholenden Prozedur.
So sieht mein Anfang aus.....
Sub test()
Dim letztezeile As Integer
Dim erstezeile As Integer
Dim nächstezeile As Integer
nächtstezeile = Cells(Rows.Count, 26).End(xlUp).Row
erstezeile = [Temp!t5].Value
letztezeile = [Temp!t4].Value
Cells(nächtstezeile, 26) = Cells(erstezeile, 15)
If erstezeile + 1 < letztezeile + 1 Then
Cells(nächstezeile + 1, 26) = Cells(erstezeile + 1, 15)
End Sub
Die Schleife soll enden wenn der wert aus letztezeile abgearbeitet wurde.
Kann mir jemand helfen? Danke!
Markus
Anzeige