Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Suchbegriffe finden und weitersuchen

Zwei Suchbegriffe finden und weitersuchen
07.12.2003 20:12:02
Erwin
Hallo Leute,
ich habe meine Mitglieder-Datei in drei Tabellen aufgeteilt: Tab 1: pers. Daten, Tab 2: Einträge zum Mitglied und Tab 3: Ausgabe. Ich lasse in Tab 1 mittels einer UserForm ein bestimmten Datensatz suchen, der markiert wird.
Jetzt mein Problem:
Dann möchte ich die Werte der Spalten A und B (Nachname und Vorname) zwischenspeichern und in Tab 2 danach suchen lassen. Erst wenn beide Suchbegriffe in einer Zeile gefunden werden (in Tab 2 sind ebenfalls die Spalten A für Nachname und B für Vorname)soll diese Zeile kopiert und in Tab 3 eingefügt werden. Dann soll in Tab 2 wieder nach den 2 Suchbegriffen weitergesucht, kopiert und in Tab 3 eingefügt werden, solange bis in Tab 2 keine gleichen Suchbegriffe mehr gefunden werden.
Wenn also in Tab 1 der "Meier Peter" ausgewählt wird, soll in Tab 2 solange nach "Meier Peter" gesucht, die Zeile kopiert und in Tab 3 eingefügt werden, bis VBA in Tab 2 keinen "Meier Peter" mehr findet.
Ich habe im Forum ähnliche Beispiele schon gelesen, aber ich bin noch zu "schwach auf den Füßen" um diese Lösungen für mein Problem um- und zusammenbauen zu können.
Vielleicht kann mir jemand helfen. Wäre super!
Erwin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Suchbegriffe finden und weitersuchen
07.12.2003 23:59:54
Josef Ehrensberger
Hallo Erwin,

dieser Code sollte das machen was Du möchtest.


Sub Kopieren()
Dim rng As Range
Dim lngEnd As Long
Dim strS1 As String
Dim strS2 As String
strS1 = "Meier"     'hier die Suchbegriffe übergeben!
strS2 = "Peter"
lngEnd = Sheets("TB3").Range("A65536").End(xlUp).Row + 1
For Each rng In Sheets("TB2").Range("A1:A500")
If rng = strS1 And rng.Offset(0, 1) = strS2 Then
rng.EntireRow.Copy Sheets("TB3").Range("A" & lngEnd)
lngEnd = lngEnd + 1
End If
Next
End Sub


Die Namen der Tabellenblätter und die Bereiche musst Du
natürlich an deine Tabelle anpassen.
Die Übergabe der Suchbegriffe solltest Du hinkriegen,da
Du ja angibst, das die Suche über eine UF läuft.

Gruß Sepp
Anzeige

196 Forumthreads zu ähnlichen Themen

Suchen und finden
oscar

Hallo zusammen, über folgenden VBA-Code suche ich in einer Spalte.
Sub CSVAuslesen() Dim i As Integer Dim s As Variant auswahl = InputBox("Auswahl Spalte 2 = GCode") s = auswahl If auswahl = "" Then Exit Sub For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1 If Cells(i, 2).Value = s...
07.10.2008 09:46:29
Thread-ID: 1014618
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Anzeige
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Texte in mehreren Zellen suchen
Stephan

Hallo,
ich stehe gerade schwer auf dem Schlauch:
In einer Tabelle befinden sich folgende Werte:
Spalte A -- Text1, Text2 .... Text 4000
Spalte B -- Text1, Text2 .... Text 4000
Spalte C -- Zahl1, Zahl2 .... Zahl 4000
Zeile 1 -- die Suchbegriffe, also z.B. Text 2, Text7,...
28.12.2009 18:32:43
Thread-ID: 1126094
3 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge

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