VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wert in der Zelle neben dem Maximalwert ermitteln

Gruppe

Funktion

Bereich

SVERWEIS

Thema

Wert in der Zelle neben dem Maximalwert ermitteln

Problem

Wie kann ich den Wert einer Zelle rechts neber der Zelle mit dem Maximalwert ermitteln?

Lösung

Folgende Funktion: =SVERWEIS(MAX(A:A);A:B;2;0)




ClassModule: frmSuchen

Private Sub cboNamen_Change()
   Dim rng As Range
   Set rng = Columns(1).Find(cboNamen.Value, lookat:=xlPart, LookIn:=xlValues)
   If Not rng Is Nothing Then
      txtEdit.Text = rng.Text
      txtEdit.Tag = rng.Address
   End If
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Range(txtEdit.Tag).Value = txtEdit.Text
End Sub

Private Sub UserForm_Initialize()
   cboNamen.List = Range("F1").CurrentRegion.Value
   cboNamen.ListIndex = 0
End Sub

StandardModule: basMain

Sub CallForm()
   frmSuchen.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS