for schleife umbauel
11.07.2004 10:44:41
marc
ich moechte den unten stehenden Code so umbauen, dass die For Schleife
(fuer andere Aufgaben vorgesehen ) in Zeilen arbeitet zB: In dem Bereich
ab ("C4 : C30) was muss ich da aendern bzw. anpassen.
marc .
Declare Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)
Dim z As Byte
Sub Dia_ein()
Sheets("V190.1").ChartObjects("Chart 1").Visible = True
Sleep 1000
Sheets("D190.1").Rows("4:11").Hidden = True
For z = 4 To 11
Sheets("D190.1").Rows(c).Hidden = False
Sleep 1000
Next
End Sub
Sub Dia_aus()
Sheets("D190.1").Rows("4:11").Hidden = True
Sheets("V190.1").ChartObjects("Chart 1").Visible = False
End Sub