Thema: Errechneten Wert durch nächsthöheren ersetzen

StandardModule: basMain

Sub WertWandeln()
   Dim dValue As Double, dStart As Double
   Dim iRow As Integer
   dValue = Range("A1").Value
   MsgBox _
      prompt:="Wert aus Zelle A1: " & dValue & "..."
   dValue = dValue * 5
   dStart = dValue
   MsgBox _
      prompt:="Wert aus Zelle A1 * 5: " & dValue & "..."
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      If Cells(iRow, 1).Value > dStart Then
         If Cells(iRow, 1).Value < dValue Or dValue = dStart Then
            dValue = Cells(iRow, 1).Value
         End If
      End If
      iRow = iRow + 1
   Loop
   MsgBox _
      prompt:="... ersetzt durch den nächsthöheren" & vbLf & _
      "Wert aus der Tabelle: " & dValue
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen