Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und anzeigen mit VBA

Suchen und anzeigen mit VBA
27.11.2004 15:12:21
Dietmar
Hallo Freunde
Ich habe ein Problem !
Ich habe ein Tabellenblatt mit Inhalten in den Spalten A bis R, in den Zellen von A2 bis R500 !!
Ich möchte jetzt mit VBA und einer Dialogbox folgendes machen :
Einen Suchbegriff eingeben und alle Daten die zu diesem Suchbegriff passen ( sind alle in den Zeilen z.b. A2,B2,C2 usw anzeigen lassen !
Falls der Suchbegriff nicht vorhanden ist, sollte eine Nachricht erscheinen : Nicht vorhanden !
So etwas kann man zwar auch mit dem Excel-Menüpunkt "Maske" machen, das jedoch
möchte ich nicht ! Es sollte mit VBA bewerkstelligt werden !
Kann mir da jemand detailliert helfen, ich habe keine Ahnung von VBA !
Gruß
Dietmar

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen und anzeigen mit VBA
27.11.2004 15:17:48
Josef
Hallo Dietmar!
Was soll Angezeigt werden?
Die Fundstellen, die ganze Zeile, bestimmte Spalten in der Zeile?
Gruß Sepp
AW: Suchen und anzeigen mit VBA
28.11.2004 11:58:11
Dietmar
Hallo Sepp
Vielen Dank für deine Anfrage. Komme leider erst jetzt zu antworten.
Also :
Ich hätte gerne, dass die Inhalte aller Zellen die links bzw. rechts vom Suchbegriff
liegen angezeigt werden.
Das bedeutet : Ist der Suchbegriff gefunden worden z.b. in Zelle c2, sollte der Inhalt der
zellen A2 und B2 sowie D2 bis R2 angezeigt werden. Falls der Suchbegriff z.b. in Telle R2
gefunden wurde, sollen die Zellen A2 bis Q2 angezeigt werden.
Ich hoffe ich habe genau erklärt was ich möchte und hoffe du kommst damit zurecht.
Vielleicht kennst due die Lösung !
mfg
Dietmar
Anzeige
AW: Suchen und anzeigen mit VBA
28.11.2004 12:44:29
Josef
Hallo Dietmar!
Da die Ausgabe ja doch sehr umfangreich sein kann, würde ich das
auf einem eigenen Tabellenblatt machen!
Erstelle eine neue Tabelle mit dem Namen "Suche".
Füge im Oberen Bereich der Tabelle einen Commnadbutton ein und weise ihm
diesen Code zu.

Private Sub CommandButton1_Click()
Dim wks As Worksheet, wksS As Worksheet
Dim rng As Range
Dim sFirst As String, sFind As String
Dim lRow As Long
lRow = 5 'Zeile ab der die gefundenen zeilen angezeigt werden
Set wks = Sheets("Tabelle1") 'Tabelle in der gesucht wird - anpassen
Set wksS = Sheets("Suche") 'Tabelle für die Ausgabe - anpassen
sFind = wksS.[A1] 'Suchbegriff
wksS.Range("A5:R505").ClearContents 'Zellen löschen
Set rng = wks.Range("A2:R500").Find(sFind, wks.Range("R500"), xlValues, xlWhole)
If Not rng Is Nothing Then
sFirst = rng.Address
wks.Range(wks.Cells(rng.Row, 1), wks.Cells(rng.Row, 18)).Copy _
wksS.Range(wksS.Cells(lRow, 1), wksS.Cells(lRow, 18))
lRow = lRow + 1
Do
Set rng = wks.Range("A2:R500").FindNext(rng)
If rng.Address = sFirst Then Exit Do
wks.Range(wks.Cells(rng.Row, 1), wks.Cells(rng.Row, 18)).Copy wksS(Cells(lRow, 1))
lRow = lRow + 1
Loop
Else
MsgBox "Kein Treffer"
End If
End Sub
Den Suchbegriff gibst du dann in Zelle "A1" ein und die Ergebnisse werden ab
Zeile 5 aufgelistet.
Gruß Sepp
Anzeige
AW: Suchen und anzeigen mit VBA
28.11.2004 12:59:47
Dietmar
Hallo Sepp
Danke für deine schnelle Antwort. Funktioniert einwandfrei. Ohne dir natürliche lästig fallen zu wollen, aber kann ich die Resultate nicht in einem Formular übertragen lassen.
Ich meine so wie bei der Excel-Maske. Dann hätte ich alles schön übersichtlich auf einem
Blick untereinander. Ich hoffe du verstehst was ich meine.
Kurzum :
ich hätte gerne ein Formular. Da gebe ich in einer Box den Suchbegriff ein und in anderen Boxen auf dem Formularblatt erscheinen die Resultate !!
Klingt kompliziert aber ich weiß es nicht anders auszudrücken.
mfg
Dietmar
AW: Suchen und anzeigen mit VBA
28.11.2004 16:25:35
Josef
Hallo Dietmar!
https://www.herber.de/bbs/user/14049.xls
Datei öffnen, deine Datei ebenfalls öffnen, in den
VBA - Editor wechseln und die Userform einfach mit DragAndDrop
in deine mappe kopieren.
Gruß Sepp
Anzeige

166 Forumthreads zu ähnlichen Themen

Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Anzeige
Wert mit 2 Bezügen mit VBA suchen und ausgeben
Klaus

Sehr verehrte Excel-Gurus!
Wäre toll, wenn ihr mir wieder einmal bei einer EDV-mäßigen Umsetzung helfen könntet.
In der beigefügten Arbeitsmappe befinden sich die folgenden, beiden Tabellen:
https://www.herber.de/bbs/user/64497.xls
Tabelle alleSZ
beinhaltet Daten über Statio...
17.09.2009 13:21:08
Thread-ID: 1103502
6 Beiträge
String im Array suchen und Treffer anzeigen
Udo

Hallo,
ich bräuchte mal Eure fachmännische Hilfe.
Ich möchte einen Begriff aus einer TextBox in 12 verschiedenen Tabellenbättern suchen, und die gefundenen Einträge mit den entsprechenden Tabellenblatt-Namen anzeigen lassen.
Meine bisherigen "Versuche" lassen mich verzweifeln ...
29.11.2009 00:45:36
Thread-ID: 1120753
24 Beiträge
Anzeige
Wordvba Dialg "Durchsuchen" anzeigen , Datei wähln | Herbers Excel-Forum
Reinhard
Hallo Wissende,
ich möchte ein Objekt aus einer Datei erstellt als Symbol einfügen.
Manuell geht es so daß ich anwähle:
Einfügen--Objekt (es erscheint das Fenster "Objekt"), dort klick auf "Durchsuchen", es erscheint ein gleichnamiges Fensterchen wo ich Datei auswählen kann.
Wie kan...
22.01.2010 13:15:09
Thread-ID: 1132081
4 Beiträge
Makro: Nichtleere Zelle suchen und markieren
Daniel

Guten Tag
Ich möchte ein Makro ausführen können, dass folgendes macht:
In der Arbeitsmappe "Schüler B Startkarten" die Zelle B5 kontrollieren ob etwas drinsteht. Wenn etwas drinsteht, soll das Makro die 4 Zellen obendran,
die 1 Zelle links, die 3 Zellen rechts und die 13 Zellen unte...
18.02.2010 11:48:41
Thread-ID: 1139472
16 Beiträge
vba: teilstring suchen und kopieren
Jonathan

Hallo zusammen,
in einer Spalte A meiner Tabelle können in einer Zelle mehrere, durch Komma getrennte, Nummern vorkommen.
Die länge wie auch die Anzahl der verschiedenen Nummern in einer Zelle ist unterschiedlich.
In den Zellen A3-A5 stehen die zu suchenden Nummern.
Nun soll die...
10.04.2010 15:20:40
Thread-ID: 1150922
4 Beiträge
Verweis-Formel oder Makro: 2xSuchen und Einfügen
Chris

Hallo zusammen,
bin auf der Suche nach einer Formel oder einem Makro, was Folgendes erledigt:
Suche in einem Tabellenblatt (Quelle) einmal in einer Spalte (B) nach einem Wert ("A") sowie in einer Zeile (3) nach einem Datum. Entspricht dieser Wert dem Wert in einer bestimmten Zelle (B3)...
04.05.2010 15:49:03
Thread-ID: 1155368
6 Beiträge
Makro um doppelte Einträge zu suchen und zu filtern
Excelneuling2

Hallo Zusammen,
ich bin ein Excelneuling und habe dementsprechend noch nie ein Makro programmiert und hoffe auf Hilfe.
Mein Problem:
Ich habe eine Datenbank (siehe Beispieltabelle) in der x Zeilen und y Spalten vorhanden sind. Ich möchte ein Makro schreiben, welches doppelte Zeilen...
31.07.2010 16:44:49
Thread-ID: 1169831
10 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
5
23
1
3
15
3
5
9
6
3
1
5
2
4
27
10
7
5
9
6
3
4
3