Wenn da ein "x", dann Zellinhalt da hinschreiben
26.11.2003 08:00:07
Abdi
habe folgenden Code zusammengebastelt.
Was habe ich falsch gemacht. Die Erste Zeile wird gemacht, weiter geht´s nicht mehr. Habe mind. 5 "x" geschriebeen in die Spalte 8. Da sollten doch auch min. 5 Zeilen in meinem Tabellenblatt "Reklamationen" rauskommen..hmmm...schwierig schwierig.
Kann mir jemand Helfen?
Gruß Abdi
Sub Sperrlager()
Dim z As Integer, iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If Worksheets("Reklamationen").Cells(iRow, 8) = Then
z = z + 1
Cells(z + 3, 2) = Worksheets("Reklamationen").Cells(iRow, 11).Value
End If
Next iRow
End Sub