Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle finden

Zelle finden
26.04.2007 14:44:46
Chris
Hallo VBA-Profis,
hoffe ihr könnt mir helfen.
ich habe in Spalte A Namen stehen und möchte über einen String eine Abfrage starten (Namen eingeben:), dann soll Excel den Namen in Spalte A finden und in den Spalten B bis H einen zu dem Namen gehörigen Wert heraussuchen (gleiche Zeile). Der Wert ist variabel, aber steht immer in der Spalte mit der Überschrift "Beitrag", wobei diese in verschiedenen Spalten im Bereich B:H stehen kann, aber immer nur einmal als Überschrift vorkommt.
wenn der Wert gefunden wurde, soll er als Textbox ausgegeben werden.
Mit meinen VBA-Kenntnissen kriege ich das nicht hin, wäre super, wenn mir jemand helfen könnte.
Gruß
Chris

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle finden
26.04.2007 15:57:00
Rudi
Hallo,

Sub tt()
Dim strText, vntWert
strText = InputBox("Name?")
If strText  "" Then
strText = Cells(WorksheetFunction.Match(strText, Range("A:A"), 0), _
WorksheetFunction.Match("Beitrag", Range("A1:H1"), 0))
End If
MsgBox strText
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Zelle finden
26.04.2007 16:17:00
Chris
Schaut richtig einfach aus. Naja, wenn man weiß, wie es geht.
Funktioniert super!
Vielen Dank
Gruß
Chris

AW: Zelle finden
26.04.2007 16:28:32
Chris
Hallo Rudi,
kann man das auch so umbauen, dass die gefundene Zelle dann aktiviert wird , also sowas wie Select ?
Gruß
Chris

Anzeige
AW: Zelle finden
26.04.2007 23:22:00
Rudi
Hallo,
ja, aber wozu?

If strText  "" Then
Cells(WorksheetFunction.Match(strText, Range("A:A"), 0), _
WorksheetFunction.Match("Beitrag", Range("A1:H1"), 0)).select
End If


Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

AW: Zelle finden
26.04.2007 23:44:00
Chris
Reine Neugier, brauche ich eigentlich nicht, wollte es aber trotzdem wissen.
Danke
Gruß
Chris

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige