Ärger mit Schleife
13.05.2008 12:44:00
Martin
bei diesem Skript, das funktioniert, wenn Daten von spalte 1 nach Spalte 4 übertragen
werden, schaffe ich es nicht, dasselbe als Schleife danach für spalte 2 nach spalte 5
zu organisieren. Weiß jemand was ich hier vermurkse?
Option Explicit
Sub Letzte_10_Zahlen()
Dim lngRows As Long, i As Long, j As Long, k As Long
Dim ar(1 To 10) As Variant
Dim intCount As Integer
lngRows = IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
j = lngRows
' k = lngRows
intCount = 10
For i = lngRows To 1 Step -1
If Len(Cells(i, 1)) Then
Cells(j, 4) = Cells(i, 1)
j = j - 1
intCount = intCount - 1
If intCount
Danke fürs Mitdenken,
Born