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