Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle finden

Forumthread: 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

Anzeige

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

Anzeige
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

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.

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige