Marco kürzen
27.12.2005 09:47:57
Rene
Wie könnte man diesen Code:
Sub Test()
Dim Zelle As Range
If Range("F24") > 0 Then
Range("G24") = "(50%)"
End If
If Range("F24") = "" Then
Range("G24") = ""
End If
If Range("I24") > 0 Then
Range("J24") = "(50%)"
End If
If Range("I24") = "" Then
Range("J24") = ""
End If
End Sub
vereinfachen und bis "Y24\Z24" vervollständigen?
Über Hilfe wäre ich wie immer sehr dankbar.
Gruß Rene