Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba String im batch suchen

Forumthread: vba String im batch suchen

vba String im batch suchen
21.03.2007 13:22:00
Peter
Guten Tag,
ich benötige einen Ansatz für folgenden:
In Spalte A einer Datei möchte ich nach Strings suchen.
Dies sind ca. 350 String-Varianten. Wenn in Tabelle1 was gefunden
wurde, sollte diese Zeile in das 2.Tabellenblatt (Tabelle2) derselben
Arbeitsmappe kopiert werden und der Eintrag in Tabelle1 farblich (rot)
markiert werden.
Im Achiv fand ich leider nichts.
Schönen Gruss
Peter
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba String im batch suchen
21.03.2007 13:42:00
Hans
Hallo Peter,
wenn sich die Suchstrings in Tabelle3 befinden: 

Sub SuchenMarkieren()
Dim col As New Collection
Dim vRow As Variant
Dim iRow As Integer, iRowT As Integer
col.Add Worksheets("Tabelle1")
col.Add Worksheets("Tabelle2")
col.Add Worksheets("Tabelle3")
iRow = 1
Do Until IsEmpty(col(3).Cells(iRow, 1))
vRow = Application.Match(col(3).Cells(iRow, 1).Value, col(1).Columns(1), 0)
If Not IsError(vRow) Then
iRowT = iRowT + 1
col(2).Cells(iRowT, 1).Value = col(1).Cells(vRow, 1).Value
col(1).Cells(vRow, 1).Interior.ColorIndex = 6
End If
iRow = iRow + 1
Loop
End Sub

Gruss hans
Anzeige
AW: vba String im batch suchen
21.03.2007 13:46:00
Peter
Schönen Dank Hans!
Mach mich gleich ran.... und
gebe Rückmeldung!
Gruss
Peter
AW: vba String im batch suchen
21.03.2007 14:07:00
Peter
Hallo Hans,
läuft Prima, aber hatte vergessen zu schreiben, dass
die Strings auch Teile von Wörtern sein können.
Soll heißen, wenn hier stände: wasser eimer schwarzmeersalz
und der Suchstring wäre: meer oder Meer dann sollte die
Zeile mit schwarzmeersalz markiert werden ect.
Gruss
Peter
Anzeige
AW: vba String im batch suchen
21.03.2007 14:11:00
Hans
Hallo Peter,
ändere die Zeile:
Application.Match(col(3).Cells(iRow, 1).Value, col(1).Columns(1), 0)
in:
Application.Match("*" & col(3).Cells(iRow, 1).Value & "*", col(1).Columns(1), 0)
Gruss hans
AW: vba String im batch suchen
21.03.2007 14:14:19
Peter
Danke für die Superschnelle Hilfe.
Ihr seid ein Superteam!!!
Gruss
Peter
Anzeige
AW: vba String im batch suchen
21.03.2007 14:23:00
Peter
Leider nochmal ich.
Mir fiel jetzt auf, wenn Begriffe Doppelt vorkomen (Spalte A in Tabelle A)
dann wird nur einmal markiert. D. h. scheinbar stoppt der Ablauf nach dem
ersten gefunden und die Restlichen werden ignoriert.
Gruss
Peter
AW: vba String im batch suchen
21.03.2007 14:33:08
Hans
Hallo Peter,
in diesem Fall geht das nicht ganz so flott: 

Sub SuchenMarkieren()
Dim col As New Collection
Dim iRowS As Integer, iRow As Integer, iRowT As Integer
col.Add Worksheets("Tabelle1")
col.Add Worksheets("Tabelle2")
col.Add Worksheets("Tabelle3")
iRow = 1
Do Until IsEmpty(col(3).Cells(iRow, 1))
iRowS = 1
Do Until IsEmpty(col(1).Cells(iRowS, 1))
If InStr(col(1).Cells(iRowS, 1).Value, col(3).Cells(iRow, 1).Value) Then
iRowT = iRowT + 1
col(2).Cells(iRowT, 1).Value = col(1).Cells(iRowS, 1).Value
col(1).Cells(iRowS, 1).Interior.ColorIndex = 6
End If
iRowS = iRowS + 1
Loop
iRow = iRow + 1
Loop
End Sub

Gruss hans
--
Vom Frager zum Antworter: https://www.herber.de/news.html
Anzeige
AW: vba String im batch suchen
21.03.2007 14:48:00
Hans
... das ist kein Wunder, wenn Du den Code zum CommandButton auskommentierst und den neuen Code nicht in diesen Rumpf einfügst.
Empfehlung: Arbeite in solchen Fällen mit der Schaltfläche aus der Formular-Symbolleiste und bringe den Code in einem Standardmodul unter.
Gruss hans
---
Fragen ist gut, antworten ist besser
Anzeige
AW: vba String im batch suchen
21.03.2007 15:17:59
Peter
Sorry Hans,
werde mir dies beherzigen.
Läuft auch jetzt.
Gruss
Peter
AW: vba String im batch suchen
22.03.2007 09:10:00
Peter
Hallo Hans,
zu meinem Anliegen von Gestern, vielleicht
noch eine Bitte:
Kann man bei dem Makro es auch so einrichten, dass
beim einem "Fund" in Tabelle 1
der entsprechende Inhalt Spalte A und Spalte B
in Tabelle 2 kopiert wird ?
Gruss
Peter
Anzeige
AW: vba String im batch suchen
22.03.2007 09:17:43
Hans
Hallo Peter,
ungetestet: 
   col(2).Range(col(2).Cells(iRowT, 1), col(2).Cells(iRowT, 2)).Value = _
col(1).Range(col(1).Cells(iRowS, 1), col(1).Cells(iRowS, 2)).Value
Gruss hans
---
Versuch und Irrtum war gestern
Anzeige
AW: vba String im batch suchen
22.03.2007 09:27:07
Peter
Danke,
auf Anhieb richtig...
Schönen Tag noch
Gruss
Peter
AW: vba String im batch suchen
23.03.2007 09:14:16
Peter
Hallo Hans,
habe ne Bitte für o.g. Thema:
Hier nochmals Makro:

Sub SuchenMarkieren()
Dim col As New Collection
Dim iRowS As Integer, iRow As Integer, iRowT As Integer
col.Add Worksheets("Tabelle1")
col.Add Worksheets("Tabelle2")
col.Add Worksheets("Tabelle3")
iRow = 1
Do Until IsEmpty(col(3).Cells(iRow, 1))
iRowS = 1
Do Until IsEmpty(col(1).Cells(iRowS, 1))
If InStr(col(1).Cells(iRowS, 1).Value, col(3).Cells(iRow, 1).Value) Then
iRowT = iRowT + 1
col(2).Range(col(2).Cells(iRowT, 1), col(2).Cells(iRowT, 2)).Value = _
col(1).Range(col(1).Cells(iRowS, 1), col(1).Cells(iRowS, 2)).Value
col(1).Cells(iRowS, 1).Interior.ColorIndex = 6
End If
iRowS = iRowS + 1
Loop
iRow = iRow + 1
Loop
End Sub
Kann man hier was ändern, damit beim Suchen die Gross- und Kleinschreibung ingnoriert wird?
Gruss
Peter
Anzeige
AW: vba String im batch suchen
23.03.2007 09:23:00
Hans
Hallo Peter,
tausche die folgende Zeile aus: 
If InStr(col(1).Cells(iRowS, 1).Value, col(3).Cells(iRow, 1).Value)
gegen: 
If InStr((lCase(col(1).Cells(iRowS, 1).Value), lCase(col(3).Cells(iRow, 1).Value))
Gruss hans
---
Versuch und Irrtum war gestern
Anzeige
AW: vba String im batch suchen
23.03.2007 09:44:00
Peter
Hallo,
habe Zeile eingefügt. Kommt aber
ein Syntaxfehler für die Zeile:
If InStr((lCase(col(1).Cells(iRowS, 1).Value), lCase(col(3).Cells(iRow, 1).Value))
-Fehler beim Kompilieren. Syntaxfehler-
Gruss
Peter
AW: vba String im batch suchen
23.03.2007 09:46:27
Hans
... da hatte sich am Anfang eine Doppelklammer eingeschlichen ...
Gruss hans
Anzeige
AW: vba String im batch suchen
23.03.2007 09:59:00
Peter
Super und vielen Dank.
Schönes Wochenende.....
Gruss
Peter
;

Forumthreads zu verwandten Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Ordner in Explorer-Struktur suchen VBA
andreas

Hallo zusammen,
habe ein Formular mit einem Button "Speichern" und unter anderem ein Feld "Angebotsnr."
Wird der Button Speichern gedrückt soll das Programm den Ordner der im Feld Angebotsnr. eingetragen ist suchen. Dieser Ordner ist zum Zeitpunkt der Erstellung des Formulares im Window...
11.11.2008 08:50:00
Thread-ID: 1023400
2 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
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
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
Anzeige
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Teilstring "was " in Zelle suchen
Werner

VBA-Level: befriedigend
Hallo Freunde,
innerhalb einer Spalte sollen diejenigen Zellen markiert werden, die den Teilstring "was " (einschliesslich der Leerstelle) enthalten, aber nicht,
wenn "was " direkt auf "et" oder direkt auf "nd" folgt. Sinn ist, zwar den Teilstring "was " zu s...
06.04.2009 11:30:35
Thread-ID: 1067067
6 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen
Randolf

Hallo Excel-Gemeinde,
ich habe folgende Aufgabenstellung? Mit der normalen Suchen & Ersetzen-Funktion wird im Anschluss die Anzahl der Ersetzungen mitgeteilt. So weit so gut. Ich habe jetzt das Makro aufgezeichnet und es normal ablaufen lassen. Aber es kommt keine Anzahl der Ersetzungen...
14.05.2009 11:54:34
Thread-ID: 1075089
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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