ich bekomme das einfach nicht hin. Ich möchte einen Höchstwert aus 18 Zeilen auslesen lassen (Bereich K2:K19) und den Top-Wert aus diesen Zeilen mit in der gleichen Zeile vorhandenen Namen versehen:
Beispiel: Top Wert ist K7. In einer MsgBox soll dann stehen:
"Text K7 Text A7"
Folgenden Quellcode hab ich, allerdings funktioniert der nur solange, wie die Anzahl der Zellen gesamt sich nicht verändert.
----------------------------------
Quellcode:
Sub topwertfinden()
Dim wert1 As Single
Dim ber As Range
Sheets("tabelle1").Activate
Set ber = Range("k2:k19")
wert1 = Application.WorksheetFunction.Large(ber, 1)
For Each zellen In ber
If zellen.Value = wert1 Then
MsgBox wert1 & Cells(zellen.Row, zellen.Column - 10)
end if
next
End Sub
--------------------------------
Kann mir jemand sagen wie ich es hinbekomme die dazugehörige Zelle in derselben Zeile des Top-Wertes in die MsgBox zu kriegen?
Hatte diese Frage schon mal so ähnlich gestellt, konnte aber mit der Antwort von Andre keine funktionierende Einbindung hinbekommen.