Frage an Mac4
30.04.2004 14:46:31
Jürg
du hast mir folgendes scribt erstellt
Sub kra_alle()
Dim zl
zl = 2
For Each Zelle In Range("e6:p100")
Sheets("Ausw_Kra").Cells(zl, 4).value = Zelle.value
zl = zl + 1
Next
End Sub
habe noch ein anliegen! es hat auch sog "Null"zellen im Bereich e6:p100. gibt es eine möglich besispielsweise >0 einzubauen ?
mit Gruss und besten Dank!!!
Jürg
Anzeige