Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei nach Begriff durchsuchen

Textdatei nach Begriff durchsuchen
20.11.2003 13:00:51
andy
Hallo,
ich habe ein Problem und hoffe ihr könnt mir weiterhelfen.
Ich möchte gerne das mir Ein Makro aus einem Verzeichniss alle textdateien öffnet(durchsucht) nach einem von mir bestimmten begriff. Wenn das Makro den Begriff in der Textdatei findet soll mir das Makro in ein Tabellenblatt in der ersten Spalt den Textdateinamen schreiben und daneben die gesamte Zeile aus der Textdatei wo der Suchbegriff vorkommt.
Leider habe ich keine Ahnung wie ich das Programmieren soll und hoffe auf eure Hilfe.
Vielen Dank !!

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

Betreff
Datum
Anwender
Anzeige
AW: Textdatei nach Begriff durchsuchen
20.11.2003 13:03:44
Michael Scheffler
Hallo Andy,

ohne VBA-Kenntnisse wird das wohl nix.

Warum nimmst Du nicht die Suchen-Funktion von Windows?

Gruß

Micha
AW: Textdatei nach Begriff durchsuchen
20.11.2003 13:48:34
Nayus
Hallo,
folgendes Makro erledigt, was Du willst.

To Do:
1. Variablen "sSearchPath", "sPath" und "sWord" Deinen Gegebenheiten anpassen
2. Blatt, auf dem die Ergebnisse angezeigt werden anpassen (hier "Recherche")

Viel Erfolg,
Nayus


Sub findWordinTXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
'Wort nach dem gesucht werden soll
sWord = "Desoxyribonukleinsäuremethylester"
'Suche nach allen Textdateien im Verzeichnis c:\temp\xl
sSearchPath = "c:\temp\xl\*.txt"
sPath = "c:\temp\xl\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then
'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
Sheets("Recherche").Cells(AnzFound, 1) = FileName
Sheets("Recherche").Cells(AnzFound, 2) = InputData
End If
Loop
Close #1
'nächste Datei
FileName = Dir
Loop
End If
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

"Text"-Wiedergabe mit Verweis
obelix-xxl

Hallo,
ich wende mich mal wieder an dieser Forum, mit der Bitte ein Lösung oder mir die fehlende Info mitzuteilen.
Eine mit "TEXT" formatierte Zelle C4 wird von nachfolgendem Verweis in Zelle C3 abgefragt und liefert nur die Formel als Text. Nicht den gewünschten Wert.
In der Zelle...
09.09.2008 19:34:37
Thread-ID: 1008571
3 Beiträge
Anzeige
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
Anzeige
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Spalten nach Text durchsuchen
Kall

Hallo zusammen,
ich brächte mal eure Hilfe, in der such habe ich nichts passendes gefunden. Ich nöchte die Spalte A ab Reihe 16 bis zum Ende nach einem Begriff "UA" durchsuchen (den es öfter geben kann), und wenn ich diese gefunden habe die komplette Zeile in die Tabelle 5 kopieren, über VB...
19.01.2009 12:47:13
Thread-ID: 1041382
4 Beiträge
Zahl als ausgeschriebener Text
Dirk

Hallo zusammen!!
Ich habe mal eine etwas knifflige Frage.
Ich möchte verschiedene Zahlen in der Nebenzelle als ausgeschriebenen Text darstellen.
Also zum Beispiel: 1 = eins
1.500 = eintausenfünfhundert
Ich hatte zuerst an einen Sverweis gedacht, aber es handelt s...
24.01.2009 14:47:00
Thread-ID: 1043358
5 Beiträge
Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Sverweis + Verketten mit Zahlenfolge
Thomas

Hallo und guten Tag,
ich habe folgendes Problem:
Ich verkette in der einen Datei aus zwei Felder eine Zahlenfolge:
=A1&B1 (Zelle C1)
A1 beinhaltet 123
B1 beinhaltet 456
Nun wiederum benutze ich die Verkettung in folgendem Sverweis:
=sverweis(c1=123456;Matrix;...)...
28.04.2009 19:23:35
Thread-ID: 1071705
3 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
9
5
6
2
4
3
4
2
2
7
7
7
5
8
2
5
2
8
4
2
8
2
2
1