Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchfunktion in Datenblatt integrieren?

Suchfunktion in Datenblatt integrieren?
25.10.2004 16:15:21
Thorsten
Hallo.
Ich suche eine Möglichkeit eine Suchfunktion in ein Datenblatt zu integrieren. Mein Datenblatt ist eine einfache Datenbank, in der viele Artikel-Nr. hinterlegt sind. Dabei kann die gleiche Artikel-Nr. in mehreren Feldern vorhanden sein. Nun suche ich nach einer Möglichkeit über eine in das Datenblatt integrierte Suchfunktion mir alle Datenfelder ausgeben zu lassen, in denen die gewünschte Artikelnummer vorhanden ist. Ich habe dabei zB daran gedacht, dass die entsprechenden Felder markiert oder farblich hinterlegt werden könnten.
Ich würde mich freuen, wenn ihr mir weiterhelfen könntet.
Viele Grüße und Dank im voraus
Thorsten

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

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion in Datenblatt integrieren?
Josef
Hallo Thorsten!
In welcher Spalte(n) befinden sich die Artikelnummern?
Gruß Sepp
AW: Suchfunktion in Datenblatt integrieren?
Thorsten
Hallo Sepp
Diese Nummern befinden sich im C6 x P30 . wäre super wenn du mir helfen könntest
Viele Grüße
Thorsten
AW: Suchfunktion in Datenblatt integrieren?
Josef
Hallo Thorsten!
Versuch mal das.

Sub Suchen_Markieren()
Dim rng As Range
Dim bereich As Range
Dim myRng As Range
Dim sFirst As String
Dim myStr As String
Set bereich = Range("C6:P30 ")  'Suchbereich
bereich.Interior.ColorIndex = xlNone    'Farbe zurücksetzen
myStr = InputBox("Bitte die gesuchte Artikelnummer eingeben!", _
"Suche", "Artikelnummer")   'Suchbegriff
If myStr = "" Then Exit Sub
Set rng = bereich.Find(What:=myStr, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
Set myRng = rng
sFirst = rng.Address
Do
Set rng = bereich.FindNext(after:=rng)
If rng.Address = sFirst Then Exit Do
Set myRng = Union(myRng, rng)
Loop
myRng.Interior.ColorIndex = 6   'Fundstellen einfärben
End If
Set rng = Nothing
Set myRng = Nothing
End Sub

Code in ein allgemeines Modul kopieren!
Gruß Sepp
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige