Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA nach Namen suchen

VBA nach Namen suchen
26.08.2013 21:03:22
Dani
Hallo zusammen
Unter dem folgenden Link habe ich schon mal nach einer Formel gesucht, welche die Namen in einem Sheet anhand der ersten 3 Buchstaben sucht.
https://www.herber.de/forum/archiv/1316to1320/t1318819.htm#1318819
Nun hätte ich jedoch folgenden Wunsch:
In Zelle B9 wird ein Name eingegeben und mit dem Suchen Button sollen nun alle Treffer aus dem Sheet DB ab Zelle B11 aufgelistet werden. Am liebsten ohne Leerzeilen.
Wie muss der Code hinter dem Suchen Button aussehen?
Hier mal eine Beispieldatei
https://www.herber.de/bbs/user/87038.xls
Danke schon mal für eure Hilfe
Gruess Dani

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA nach Namen suchen
27.08.2013 15:30:13
grassshopper
Moin,
probier mal dies hier:
Private Sub but_Suchen_Click()
Dim suchwort As String
Dim zielSpalte, zielZeile, suchZeile, letzteGefundeneZeile As Integer
Dim suche As Boolean
Dim sheetSuche, sheetDB As Worksheet
Set sheetDB = ThisWorkbook.Sheets("DB")
Set sheetSuche = ThisWorkbook.Sheets("Suche")
suchwort = sheetSuche.Range("B9").Value
zielZeile = 11 'erste Zielzeile (B11)
zielSpalte = 2 'Spalte B
sheetDB.Select
sheetDB.Columns("C:C").Select
suche = Selection.Find(What:=suchwort, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
suchZeile = Application.ActiveCell.Row
letzteGefundeneZeile = 0 'erneutes Suchen vom Anfang verhindern
While suche = True And suchZeile > letzteGefundeneZeile
sheetSuche.Select
sheetSuche.Cells(zielZeile, zielSpalte).Value = sheetDB.Cells(suchZeile, 3).Value & " " &  _
sheetDB.Cells(suchZeile, 4).Value
zielZeile = zielZeile + 1
sheetDB.Select
letzteGefundeneZeile = suchZeile
Selection.FindNext(After:=ActiveCell).Activate
suchZeile = Application.ActiveCell.Row
Wend
sheetSuche.Select
MsgBox "Suche abgeschlossen", vbOKOnly, "Fertig"
End Sub

Gruß,
grassshopper

Anzeige
AW: VBA nach Namen suchen
27.08.2013 17:48:45
Dani
Hallo Grashopper
Super! Funzt perfekt. Genau das was ich suchte.
Vielen Dank für deine Mühe
Gruess Dani

36 Forumthreads zu ähnlichen Themen

Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Nach Sheet namen suchen und Formel erstellen
Dirk

Hallo zusammen,
ich möchte in verschiedenen Worsheets dessen Vorhandensein vor dem öffnen nicht bekannt ist, in immer der gleichen Zelle (HK613) die Formel =STDEV(HK$5:HK$604) schreiben. Wie kann ich mittels VB nach bestimmenten worksheet namen suchen, und wenn vorhanden die Formel dort rei...
15.05.2009 17:08:23
Thread-ID: 1075555
9 Beiträge
Tabellen zusammenführen, Spaltennamen durchsuchen
udo

Hallo, habe vor einiger Zeit hier schonmal Hilfe bekommen. Es ging um ein Makro, welches mehrere Dateien in einer neuen Übersichtstabelle zusammenfasst.
Option Explicit Const HomeDatei = "LeereArbeitsmappe.xls" 'Name Arbeitsmappe Makro-Excel-Datei Const HomeDaten = "Import-Dat...
04.11.2009 19:22:42
Thread-ID: 1114531
8 Beiträge
Anzeige
Sheets nach namen suchen
Achim

Hallo Excel Freunde
Wer kann helfen?
Ich habe in einer Excel datei von meinen Chef bekommen. In der Datei befinden sich mehr als 100 Sheets.
Diese Sheets sind mit Namen benannt worden. Nun soll ich immer in der Menge ein Sheet suchen und dort einträge vornehmen. Da es aber so viele...
16.12.2010 11:37:48
Thread-ID: 1191775
3 Beiträge
Suchen nach Tagesdatum im Namen
Max

Hallo Forum,
ich habe eine Tabelle (Kalender) in der bestimmte Zellen mit einem Namen versehen sind.
Dabei hat die Zelle A1 den Namen "Januar01", die Zelle A2 den Namen "Januar02"....die Zelle B1 den Namen "Februar01", die Zelle B2 den Namen "Februar02" usw.
Nun will ich per Makro z...
13.04.2012 11:59:15
Thread-ID: 1259099
3 Beiträge
Suche nach Vor- und Nachnamen
Peter

An Alle ein gesundes Neues zunächst,
bin am verzweifeln, denn: seit einigen Tagen suche ich nach einer Lösung.
folgendes Problem: ich habe eine Tabelle, in der in der Spalte B der Nachname, in Spalte C der Vorname und in Spalte D das Geb.Datum stehen. Vor- und Nachname sowie GebDatum b...
01.01.2014 20:36:16
Thread-ID: 1343891
3 Beiträge
Suche nach ID und Namen
Knoof

Hallo,
Ich habe ein Suchfeld in dem man eine ID eingeben kann und durch den Suchen Button wird diese ID gesucht.
Ist es möglich das gleiche Feld für eine Namenssuche zu verwenden?
Sagen wir der Benutzer kennt die ID nicht, gibt den Nachnamen ein und klickt auf suche, ist das möglich...
14.07.2014 11:42:06
Thread-ID: 1370230
13 Beiträge
Suche nach Namen
Helmut

Hallo Ihr da,
gibt es einen Trick, mit dem man in diesem Forum Beiträge nach Namen suchen kann, auch wenn sie schon ein paar Tage alt sind?Gruß Helmut
17.07.2002 12:36:02
Thread-ID: 137439
3 Beiträge
Anzeige

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
7
8
8
7
4
2
2
2
12
2
1
4
9
4
4
5
9
4
4
3
1
10
2
2
3