Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

VBA Suche und andere Spalte ausgeben

Forumthread: VBA Suche und andere Spalte ausgeben

VBA Suche und andere Spalte ausgeben
22.08.2019 11:32:28
Sandra
Hey folgende Frage,
ich such nach einen Wert in einer Zeile, nun hab ich den Wert gefunden (in meinen Fall der Größte).
Jetzt benötige ich Hilfe
Ich möchte einen Wert der selben Zeile jedoch nicht der selben Spalte in eine Textbox haben.
Annahme:
Gesuchter Wert : spalte(F) Zeile (4)
Erscheinender Wer : Spalte(A) Zeile (4)
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 11:34:08
EtoPHG

AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 11:37:06
Sandra
Dim maxlag As Double
maxlag = Application.Max(Range(Cells(2, 6), Cells(Rows.Count, 2).End(xlUp)))
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 12:24:42
Lara
Hm?
Anzeige
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 12:27:11
Lara
Das selbe Problem hat ich auch gehabt, du musst das mit einer if-schleife lösen ..
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 12:32:04
Nepumuk
Hallo Sandra,
ist das Absicht? Cells(Rows.Count, 2).
Ich würde das so machen:
Public Sub Test()
Dim maxlag As Double
Dim objCell As Range
maxlag = Application.Max(Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)))
Set objCell = Columns(6).Find(What:=maxlag, LookIn:=xlValues, LookAt:=xlWhole)
MsgBox objCell.Offset(0, -5).Value
End Sub

Gruß
Nepumuk
Anzeige
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 12:53:47
Sandra
Hat irgendwie nicht funktioniert wenn ich statt MsgBox
Textbox1 mache zeigt es mir einen Laufzeitfehler an .( Anmerkung : ich lass es bei UserForm_Initialize() direkt laufen..)?
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 15:28:22
Nepumuk
Hallo Sandra,
"funktioniert nicht" ist als Fehlerbeschreibung unzureichend. Was passiert?
Gruß
nepumuk
Anzeige
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 15:47:48
Sandra
Hey,
in der letzten Zeile
"MsgBox objCell.Offset(0, -5).Value"
stürzt es ab ?
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 15:50:27
Nepumuk
Hallo Sandra,
kommt eine Fehlermeldung?
Gruß
Nepumuk
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 15:51:51
Sandra
Ja Laufzeitfehler 91 - Objektvariable ... nicht festgelegt
Anzeige
AW: Wie sieht dein Code für die Suche aus? (owT)
22.08.2019 16:51:57
Nepumuk
Hallo Sandra,
kannst du eine Mustermappe hochladen in welcher der Fehler ausgelöst wird?
Gruß
Nepumuk

Forumthreads zu verwandten Themen

Anzeige
Anzeige