Wert finden VBA

Question

Hallo,

ich habe zb. Tabelle1 und mit den Anweisungen finde ich den Größten Wert der Spalte "H":

Set myRange = Worksheets("Tabelle1").Range("H1:H65000")
answer = Application.WorksheetFunction.Max(myRange)

wie kann ich jetzt den zugehörigen Wert aus der Spalte "B"auslesen.

Answer 1

Hallo edik,

z.B. mit nachfolgendem Makro.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Max_finden()
Dim myRange As Range
Dim answer
Dim rngFindZelle As Range
Dim strWert As String

Set myRange = Worksheets("Tabelle1").Range("H1:H65000")
answer = Application.WorksheetFunction.Max(myRange)


With ActiveSheet.Columns(8)
Set rngFindZelle = .Find(answer, LookIn:=xlValues)
If Not rngFindZelle Is Nothing Then
strWert = Cells(rngFindZelle.Row, 2)
End If
End With

MsgBox strWert

Set myRange = Nothing
Set rngFindZelle = Nothing
End Sub

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 2

Hallo edik2...

Hier ein möglicher Vorschlag:

Set myRange = Worksheets("Tabelle1").Range("H1:H65000")
answer = Application.WorksheetFunction.Max(myRange)
For i = 1 To 65000
If ActiveSheet.Cells(i, 8) = answer Then
MsgBox ActiveSheet.Cells(i, 2)
Exit For
End If
Next i

In der Schleife wird nach dem höchsten Wert (answer) gesucht.
Wenn gefunden, dann ist die Zeile bekannt (i).
Nun mit der Zeilennummer den Inhalt der Spalte B anzeigen.
Dannach die Schleife verlassen, und nicht weitersuchen (Exit For).

Hoffe das hilft Dir weiter

Gruß
Kauz

Answer 3

Besten Dank an Kauz und Oliver!
Ich kann nur einen großen Lob aussprechen, einfach schnell und präzise.

Answer 4

Hallo edik,

gerne geschehen. Danke auch für die Rückmelung.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]