Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon edik2 vom 23.09.2021, 11:45 Options

Wert finden VBA

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.

Antwort schreiben

Antwort 1 von coros vom 23.09.2021, 12:03 Options

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
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von Kauz vom 23.09.2021, 12:06 Options

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

Antwort 3 von edik2 vom 23.09.2021, 13:35 Options

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

Antwort 4 von coros vom 23.09.2021, 13:36 Options

Hallo edik,

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

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken