Zwei Fragen zu meiner Schleife
25.07.2003 11:22:18
Xico
in meinem Code will ich die mit 'HIER' markierte Stelle nur 1 mal ausführen lassen, ausserdem habe ich mein End IF einmal falsch gesetzt, weiss aber nicht wo ich es setzen soll. Wer kann mir helfen?
Sub Increase()
Dim d, e As Integer
For d = Cells(4, 1).Value To 14
For e = 3 To 7
Cells(2, d).Select ' HIER
Selection.Value = ("Test: ") & Format(Cells(1, 1).Value, "0%") 'HIER
If Cells(5, 1) <> "99" Then
If Cells(e, d) = "" Then
End If
Next e
Else
Cells(e, d) = Cells(e, d) * Cells(2, 1)
End If
Next e
Next d
End Sub
Danke vorab.
Gruss, Xico