Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Errechneten Wert durch nächsthöheren ersetzen

Gruppe

Berechnen

Problem

Ein errechneter Wert soll durch den nächsthöheren Wert aus Spalte A ersetzt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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