in der 1. zeile stehen die beschriftungen.
Ich habe in der Spalte A beginnend ab A1 folgenden Inhalt:
0101
01010101
0101010101
0101010102
0101010103
01010102
daneben, also in B1 soll die jeweils höhere ID stehen, also:
0101 = 0101
01010101 = 0101
0101010101 = 01010101
0101010102 = 01010101
0101010103 = 01010101
01010102 = 0101
ich hab das so versucht:
i = 1
For i = 1 To Cells(i, 1) 'Range("A2:A150").End(xlUp).Row 'Schleife in der 1.Spalte, bei i = 1 Start B1
'0101 Len(Cells(i + 1, 1).Value) Then
Debug.Print i
'Hole & Setze den Wert
ActiveCell(i, 2) = ActiveCell.Offset(-1, 1)
i = i + 1
End If
Next i
aber es ging nicht
|