vba problem
07.03.2003 14:06:30
Michael
für folgenden code bräuchte ich eine erweiterung:
Sub faktor()
Dim zelle As Range
i = InputBox("faktor eingeben")
For Each zelle In Selection
zelle.Value = i * zelle.Value
Next zelle
End Sub
Wenn der Wert der Zelle in der Selektion = "" soll die betreffende Zeile gelöscht werden, ansonsten die zelle mit dem faktor der msg box multipliziert werden. Dann die nächste zelle prüfen und so weiter ...
Danke und gruß
michael