Ich möchte die erste nicht leere Zelle (enthält allerdings eine
Bezugsformel!) der Spalte suchen und danach die fixierten Zellwerte
eintragen.
Das funktioniert in der ersten Zeile, allerdings sucht mir mein Code die
weiteren, darunterliegenden Zellen nicht ab???
Danke für eure Hilfe!
Jörg
For irow = 14 To 30
If IsEmpty(Cells(irow, icolumn)) Then
irow = irow + 1
Else
lstd = Cells(irow, icolumn)
Stdk = Cells(irow, 2)
k = Cells(irowkl, icolkl)
Sheets("tab1").Activate
Cells(ir, ic) = Stdk
Cells(ir + 1, ic) = lstd
Cells(ir + 2, ic) = k
irow = irow + 1
ic = ic + 1
End If
Next irow