Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen in zwei Dateien

Suchen in zwei Dateien
15.06.2004 10:35:15
Sandra
Hallo User,
ich bräuchte mal Hilfe.
Ist es möglich z.B. über eine CheckBox eine Zahl in zwei Dateien zu suchen?
Ich habe eine Datei (Test1.xls) und eine Datei (Test2.xls) in dem Daten stehen.
Nun möchte ich wie über das normale Suchen nach einer Zahl suchen die aber
sowohl in Test1.xls oder Test2.xls stehen kann.
Geht sowas, und wie könnte das aussehen?
Dankeschön für die Hilfe
Sandra

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen in zwei Dateien
andreas
hallo sandra,
dieser code durchsucht alle geöffneten mappen nach dem suchbegriff und markiert dann die entsprechenden Zellen.
hoffe das hilft weiter .

Sub TextInArbeitsmappenSuchenUndFärben()
Dim i As Integer
Dim Blatt As Worksheet
Dim suchbegriff As String
Dim s As String
Dim Zelle As Range
suchbegriff = InputBox("Geben Sie den Suchbegriff ein!")
For i = 1 To Application.Workbooks.Count
For Each Blatt In Workbooks(i).Worksheets
Blatt.Activate
Set Zelle = Blatt.Cells.Find(suchbegriff)
If Not Zelle Is Nothing Then
s = Zelle.Address
Do
Zelle.Activate
Zelle.Interior.ColorIndex = 3
Set Zelle = Cells.FindNext(After:=ActiveCell)
On Error Resume Next
If Zelle.Address = s Then Exit Do
Zelle.Interior.ColorIndex = 3
Loop
End If
Next Blatt
Workbooks(i).Activate
Next i
End Sub

gruß
andreas e


http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige

301 Forumthreads zu ähnlichen Themen

Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Anzeige
Zellinhalt in geschlossen Dateien suchen..
Uwe

Guten Tag an Alle,
ist folgendes möglich?
wenn ich z.b. in Zelle A1 als Beispiel "ABC123" eingebe und auf enter drücke, dass dann in
C:Testordner mit jede Menge Unterordner die dann Paul;Hans;Klaus u.s.w. heißen in den geschlossenen Dateien geschaut wird ob das selbe auch in Zelle A...
06.08.2010 12:27:07
Thread-ID: 1170893
16 Beiträge
Verzeichnis + Dateien nach Zellinhalt durchsuchen
Patrick

Hallo,
ich benötige bitte eure Hilfe.
Folgendes Problem treibt mich um:
Ich möchte ein festes Verzeichnis (c:\test - enthält nur xls.-Dateien) durchsuchen.
Und zwar möchte ich das bei allen enthaltenen Dateien überprüft wird, ob auf dem
Worksheet "Daten" in der Zelle G6 "DE"...
10.05.2011 14:57:44
Thread-ID: 1213837
4 Beiträge
Anzeige
Bitte um Hilfe einen Hyperlink zu erstellen
Peter

Hallo,
Ich möchte ein Makro schreiben, dass sobald eine neue Datei erstellt ist, in einem anderen Tabellenblatt einen Hyperlink erstellt.
Das Problem vor dem ich stehe, ist folgendes: Wie schreibe ich einen Hyperlink, desen Namen erst in der Zukunft festgelegt wird, aber der Pfad scho...
20.03.2012 08:11:33
Thread-ID: 1255593
2 Beiträge
In Dateien suchen und ersetzen, einschl. Unterverz
guebla

Hallo Leute!
ich suche eine Routine die mir in den Excel-Dateien Inhalte (Wort) sucht und dieses dann durch _
ein anderen Inhalt (Wort) ersetzt. Beim Stöbern im Forum habe ich folgende VBA-Routine _ gefunden: Sub DateienÄndern() Dim blnGeändert As Boolean Dim lngZähler As Long Dim r...
11.06.2014 15:52:50
Thread-ID: 1365461
3 Beiträge
Dateien in Pfad suchen und nacheinander öffnen
Robin

Hallo Leute,
ich habe ein Programm geschrieben, wo manuell Dateien geöffnet und dann Daten importiert werden.
Nun will ich das Öffnen und Verarbeiten automatisieren.
Im Quellpfad soll nach Dateien mit dem Namensinhalt *Benutzer* gesucht werden.
Dann sollen alle Dateien nacheinan...
28.07.2014 09:36:43
Thread-ID: 1372657
3 Beiträge
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
Hyperlink auf Vorlagen in anderen Ordnern
MB12

Hallo zusammen,
erst mal ein großes Lob an die Kompetenz, die sich in diesem Forum zusammengefunden hat. Egal welches Excel-Problem ich habe: Am Schluss lande ich hier.
Problem Hyperlink:
Alle Ordner befinden sich auf unserem Abteilungs-Laufwerk.
Ordner (insg. 8), z.B.:
A ge...
11.10.2014 10:40:49
Thread-ID: 1386108
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox InputBox

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
8
3
15
3
3
1
2
2
6
2
2
9
2
1
2
1
14
17
1
1
3
2
7
21
2