alle zahlen * 90%



Excel-Version: 9.0
nach unten

Betrifft: alle zahlen * 90%
von: eveline
Geschrieben am: 11.07.2002 - 18:41:50

hallo
ich habe eine lange spalte mit zahlen, sowie zwischentotale (d.h. auch summen in derselben spalte). nun möchte ich alle zahlen *90% rechnen. wie bringe ich dies am schnellsten hin.
bearbeiten inhalte einfügen multiplizieren kenne ich. bei diesem vorgehen muss ich aber die zahlen noch von den zwischentotalen unterscheiden, sonst stimmen die summen nicht mehr.
besten dank für die hilfe

nach oben   nach unten

Re: alle zahlen * 90%
von: Hans W. Herber
Geschrieben am: 12.07.2002 - 06:47:54

Hallo Eveline,

VBA-Code wie folgt (ausgehend von Spalte A):


Sub Multiplizieren()
   Dim lRow As Long, lRowL As Long
   lRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For lRow = 1 To lRowL
      If Not Cells(lRow, 1).HasFormula _
         And Not IsEmpty(Cells(lRow, 1)) _
         And IsNumeric(Cells(lRow, 1)) Then
         Cells(lRow, 1).Value = Cells(lRow, 1).Value * 0.9
      End If
   Next lRow
End Sub

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "alle zahlen * 90%"