Zeile löschen
15.10.2003 07:54:44
Hägar
Macroausschnitt:
Sub löschen()
****u_Tab.Rows(Z).löschen Verschieben:=xlUp****
Z = Z - 1
If Z < 2 Then Z = 2
u_Tab.Cells(1, 10).Value = u_Tab.Cells(1, 10).Value - 1
u_Tab.Cells(1, 12).Value = Z / K * 100
Daten
End Sub
Die Vuriable u_Tab Z und K werden ordnungsgemäß gefüllt.
Das Macro bricht in der mit Sternen Markierten Zeile ab
:-( Hägar