Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche per Zelle im Excelsheet

Forumthread: Suche per Zelle im Excelsheet

Suche per Zelle im Excelsheet
13.02.2009 15:13:00
Steffen
Hallo zusammen,
ich möchte gerne eine Suche in meine Excel Mappe integrieren.
Wenn ich in die Zelle oder eine Textbox den Suchbegriff eingebe
soll er die Spalte A nach unten durchgehen und zu dem Begriff springen.
Das am besten währen der Eingabe und mit Enter zum nächsten Wort.
Anders gesagt das Fenster STRG+F fest in die oberen Zellen intergrieren.
Nur wie?....
Vielen Dank!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche per Zelle im Excelsheet
13.02.2009 15:21:00
ransi
HAllo Steffen
Als Ansatz:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Gefunden As Range
If Target.Address <> "$A$1" Then Exit Sub
Set Gefunden = Range("A:A").Find(Range("a1").Value, Range("a1"))
If Not Gefunden Is Nothing Then Gefunden.Select
End Sub
ransi
Anzeige
AW: Suche per Zelle im Excelsheet
13.02.2009 15:25:00
MathiasW
Hallo Steffen füg mal diesen Code in Tabellenblatt1 im VBE ein un gib dein Suchkriterium in Zelle D1 ein
Gruss Mathias

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, z As Range
Set rng = Intersect(Target, Range("D1"))
If Not rng Is Nothing Then
If rng.Value  "" Then
Set z = Range("A1:A10000").Find(What:=rng.Value, LookAt:=xlWhole)
If z Is Nothing Then
MsgBox "FAUF nicht gefunden!"
Range("G1").Select
Else
z.Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=0).Activate
End If
End If
End If
End Sub


Anzeige
;

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