Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Weitersuchen

Forumthread: VBA Weitersuchen

VBA Weitersuchen
27.05.2020 07:39:23
Michael
Hallo Ihr Excel Profis
Hoffe Ihr könnt mir weiter helfen.
Mein Problem ist das ich es nicht hinbekomme das in der Spalte 4 weitergesucht wird.
Ich möchte das es alle Personen mit der gleichen ID Nummer findet und mir entsprechend anpasst.
Habe denn Code mal so versucht mit weitersuchen aber dann bekomme ich die Fehlermeldung: Loop ohne Do
Wäre echt toll wenn mir jemand weiter helfen könnte.
Dim rngAuswahl As Range
With Worksheets("Teilnehmer")
Set rngAuswahl = .Columns(4).Find(Me.TextBox26.Value, LookAt:=xlWhole)
If Not rngAuswahl Is Nothing Then
.Cells(rngAuswahl.Row, 4) = Me.TextBox26 'ID
.Cells(rngAuswahl.Row, 7) = Me.ComboBox3 'Name und Vorname
.Cells(rngAuswahl.Row, 6) = Me.TextBox27 'Telefon
Do
Set rngAuswahl = .Columns(4).Find(Me.TextBox26.Value, LookAt:=xlWhole)
If Not rngAuswahl Is Nothing Then
.Cells(rngAuswahl.Row, 4) = Me.TextBox26 'ID
.Cells(rngAuswahl.Row, 7) = Me.ComboBox3 'Name und Vorname
.Cells(rngAuswahl.Row, 6) = Me.TextBox27 'Telefon
Loop
End If
End With

Danke für eure Hilfe.
Lg Michi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: mit findnext
27.05.2020 08:52:33
hary
Moin
Das geht mit findnext.Ungetestet. 
Dim rngFind As Range
Dim firstAddress As String
With Worksheets("Teilnehmer")
Set rngFind = .Columns(4).Find(TextBox26, LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
firstAddress = rngFind.Address
Do
.Cells(rngFind.Row, 4) = TextBox26 'ID ---das brauchst du doch nicht
.Cells(rngFind.Row, 7) = ComboBox3 'Name und Vorname
.Cells(rngFind.Row, 6) = TextBox27 'Telefon
Set rngFind = .Columns(4).FindNext(rngFind)
Loop While rngFind.Address  firstAddress
End If
End With

gruss hary
Anzeige
AW: Danke schön
27.05.2020 09:25:02
Michael
Hallo Hary
Danke dir für deine Hilfe. Genau das was ich wollte. Genial!
Stimmt das mit der ID brauche ich nicht, da ich da keine Änderung vornehme.
Wünsche noch Dir noch einen schönen Tag.
Lg Michi
;

Forumthreads zu verwandten Themen

Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
Userform weitersuchen
nico

Hallo
Besten dank für eure mühe aber es ist nicht genau das was ich suche. ich bräuchte nen 2 ten commandButten mit dem ich die funktion weitersuchen auslöse oder durch nochmaligen betätigen des commandbutten1 weitersuche. und da ich neuling im vba bin weiß ich nur das es mit findNext funkt...
09.03.2010 15:47:30
Thread-ID: 1144584
7 Beiträge
Suchen und weitersuchen auf Spalte
webdepp

Hallo Experts,
ich habe ein kleines Problem und komme irgendwie nicht auf die Lösung. Ich suche einen Begriff und wenn er gefunden wurde soll er weiter weitersuchen. Das funktioniert auch alles fein, nur sucht über das ganze Excel und nicht in Spalte 4 (Spalte D), die ich im beim Set angege...
10.01.2011 13:41:55
Thread-ID: 1194840
4 Beiträge
Weitersuchen
Daniel R.

Hallo
Mit dem folgenden Code möchte ich in Spalte A:A nach dem Wert "a" weitersuchen und die entsprechende Zelle aktivieren:Public Sub weitersuchen()
Dim suchbereich As Range
Dim suchwert as Variant
suchwert = "a"
Set suchbereich = Worksheets(1).Range("a:a").Find(What:=suchwert,...
05.06.2002 01:25:50
Thread-ID: 125935
3 Beiträge
Weitersuchen entfernen
Thomas

Hallo Forum,
Vorweg, bin absoluter Laie.
Hab mir für den Job eine Excel Liste mit Ungefähr 1500 Adtressen gebastelt.
Mit dem CommandButton1 einen Suchbutton eingefügt. Private Sub CommandButton1_Click() Call SearchAllTables End Sub
In dem zugehörigen Modul (heisst das so?) sie...
25.02.2012 21:28:39
Thread-ID: 1252497
3 Beiträge
UserForm Suchen und weitersuchen
Wilson

Hallo Community,
ich habe ein Problem und hoffe, bin mir ziemlich sicher dass ihr mir weiterhelfen könnt und werdet.
Ich habe mir eine Art datenbank in Excel 2003 aufgezogen mit mehreren Tabellen. In jeder Tabelle gibt es unzählige Produkte mit verschiedenen Sachnummern. Einige Sachnumm...
23.10.2012 08:18:36
Thread-ID: 1283362
3 Beiträge
Anzeige
VBA Suchfunktion und Weitersuchen
Wilson

Hallo Leute,
ich habe ein Problem und hoffe, bin mir ziemlich sicher dass ihr mir weiterhelfen könnt und werdet.
Ich habe mir eine Art Datenbank in Excel 2003 aufgezogen mit mehreren Tabellen. In jeder Tabelle gibt es unzählige Produkte mit verschiedenen Sachnummern. Einige Sachnummern...
25.10.2012 10:58:20
Thread-ID: 1283774
5 Beiträge
Weitersuchen und Markierung weitergeben
Peter

Hallo Forum,
ich bin relativ neu in der Welt der VBA- Programmierung und hab somit auch meine Probleme. Hoffentlich werdet ihr mir helfen können.
Ich versuche euch jetzt mein Problem zu schildern:
Habe eine Tabelle mit unzähligen Nummern in Spalte B. Diese Spalte B soll über eine Su...
12.11.2012 07:05:42
Thread-ID: 1286324
3 Beiträge
suchen, kopieren, weitersuchen
Michael

Hallo Forum,
versuche mal eine Beschreibung meines Problem und ich hoffe Ihr könnt mir weiterhelfen.
Habe eine Exceldatei mir mehreren Tabellenblättern.
Beipiel:
TabEingabe, Zelle C7, Eingabe des zu suchenden Datum, Enter und suche soll starten auf allen Tabellenblättern der Ar...
26.01.2014 22:27:05
Thread-ID: 1346781
16 Beiträge
suchen und weitersuchen
Sigi

Hallo,
ich möchte nach einem Begriff suchen, Makro ausführen und weitersuchen.
Leider weiss ich nicht wie ich das bewerkstelligen muß.
In Anlage Musterdatei zum besseren Verständnis.
Danke!
Gruß, Sigi
https://www.herber.de/bbs/user/103161.xlsm
Option Explicit
Pr...
31.01.2016 08:11:02
Thread-ID: 1472242
5 Beiträge
Makro mit Weitersuchen
Günther Nebel

Hallo Gemeinde!
Da hab ich folgendes Makro und schaff es nicht das Ding weitersuchen zu lassen. Ich möchte demnach bei der ersten Meldung das ERgebnis in einer Msg-Box angezeigt bekommen (steht in Spalte E und ist immer ein Hyperlink) mit den Schalftflächen weitersuchen oder abbrechen.
Ka...
20.08.2002 20:36:40
Thread-ID: 150813
2 Beiträge
Excel VBA Spaltensuche, Weitersuche, Werte
Jehona

Hallo zusammen,
ich als VBA Frischling stehe vor folgendem Problem:
Der Wert (Nachname) einer TextBox wird in der Spalte einer 2. Excel-Tabelle gesucht(funktioniert schon mal). Anschließend, wenn der Nachname gefunden wurde, soll in der gleichen Zeile, jedoch in der 4. Spalte, die aktue...
08.12.2017 14:38:14
Thread-ID: 1596096
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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