Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1712to1716
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
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aus excel Worddatei nach Wert durchsuchen

aus excel Worddatei nach Wert durchsuchen
01.10.2019 07:40:16
Peter
Guten Morgen,
als Controlling benötige ich, dass die in einem Ordner befindlichen Worddateien, aufgelistet in Tabelle Worddaten SpalteC durchsucht werden. Es soll dort geprüft werden, ob ein bestimmter Wert vorhanden ist.
Ist dieser vorhanden soll ein Button deaktiviert werden und eine Meldung in Label Wert bereits benutzt. Andernfalls soll Makro ausgeführt werden.
Am besten wäre es, wenn hierbei die Worddateien nicht geöffnet werden sondern die geschlossenen Dateien überprüft werden.
Könnt ihr mir bitte hierbei helfen.
Besten Dank
Gruss
Peter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 08:33:11
Regina
Moin, ohne Öffnen geht das m.E. nicht.
Der folgende Code arbeitet alle Dateien ab, die mit Dateierweiterung in der Spalte A des Blattes Tabelle1 untereinander stehen. Der zu suchende Begriff steht dabei im gleichen Blatt in C1. Beides kann im Code angepasst werden. Im Code steht der Pfad C:\Test, auch der muss angepasst werden.
Wenn der Suchwert in einer der Dateien gefunden wird, wird eine Info ausgegeben, hier können dann natürlich auch weitere Aktionen erfolgen.
Falls Du noch Fragen hast, melde Dich gerne.
Gruß Regina
Public Sub Suche_Wert()
Dim obj_word As Object
Dim lng_zeile As Long
Dim myRange As Object
Set obj_word = CreateObject("Word.Application")
lng_zeile = 1
With obj_word
Do Until Worksheets("Tabelle1").Cells(lng_zeile, 1) = ""
.Documents.Open "C:\Test\" & Worksheets("Tabelle1").Cells(lng_zeile, 1)
Set myRange = .activedocument.Content
myRange.Find.Execute FindText:=Worksheets("Tabelle1").Range("C1")
If myRange.Find.Found = True Then
MsgBox "Schon verwendet"
End If
.activedocument.Close
lng_zeile = lng_zeile + 1
Loop
End With
Set obj_word = Nothing
End Sub

Anzeige
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 10:11:11
Peter
Hallo Regina,
besten Dank für Deine Hilfe.
Ich habe den Code für meine Bedürfnisse abgeändert. Bis auf einen Faktor läuft er einwandfrei.
<pre>Public Sub Suche_Wert2()
Dim obj_word As Object
Dim lng_zeile As Long
Dim myRange As Object
Set obj_word = CreateObject("Word.Application")
'lng_zeile = 1
lng_zeile = 2
With obj_word
' Do Until Worksheets("Tabelle1").Cells(lng_zeile, 3) = ""
Do Until Worksheets("Tabelle1").Cells(lng_zeile, 3) > ""
' .Documents.Open "C:\Test\" & Worksheets("Tabelle1").Cells(lng_zeile, 1)
.Documents.Open "C:\Users\xxxx\Desktop\xxxx" & "\" & Worksheets("Worddaten").Cells(lng_zeile, 3)
Set myRange = .ActiveDocument.Content
myRange.Find.Execute FindText:=Worksheets("Tabelle1").Range("C1")
If myRange.Find.Found = True Then
MsgBox "Schon verwendet"
End If
.ActiveDocument.Close
lng_zeile = lng_zeile + 1
Loop
End With
Set obj_word = Nothing
End Sub</pre>
~f~
Wenn die letzte beschriebene Zeile durchlaufen ist, wird der Loop nochmals ausgeführt und hängt sich dann bei der 6. Zeile auf, da diese ja nicht mehr existiert bzw. leer ist.
Müsste hier evtl bevor dieses Workbook.open eingesteuert wird eine If eingefügt werden etwa in der Form
~f~
If Worksheets("Worddaten").Cells(lng_zeile, 3)= "" then exit Sub
elseIf Worksheets("Worddaten").Cells(lng_zeile, 3)> "" then
weiter mit den weiteren Zeilen ab Workbook.Open...
Gruss
Peter
Anzeige
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 10:18:44
Regina
Hallo Peter,
Du hast "meine" Abbruchbedingung für die Schleife geändert, hier mus = "" stehen und nicht größer ""
Gruß
Regina
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 10:24:52
Peter
Hallo Regina,
besten Dank nochmals für die Hilfe.
Der Fehler liegt bei mir, da es bei mir nicht Tabelle1 sondern Worddaten heissen muss. Damit funktioniert natürlich Deine Abbruchbedingung.
Wünsche Dir noch einen schönen Tag.
Gruss
Peter
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 10:42:34
Peter
Hallo Regina,
jetzt benötige ich doch nochmals Deine Hilfe.
Wenn das erste Mal der Wert gefunden wird, dann soll ein Button deaktivert und ein Abbruch erfolgen.
Dabei soll dann auch Word beendet werden.
Kannst Du mir bitte dies noch mitteilen, wie ich das Ändern kann.
Besten Dank für Deine Hilfe.
Gruss
Peter
Anzeige
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 12:57:11
Regina
Rückfrage:
Abbruch und Word beenden habe ich verstanden, aber wo ist das Button und wie "heißt" es?
gruß
regina
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 13:45:09
Peter
Hallo Regina,
wenn ich das Ganze in eine Userform einbaue, dann soll, wenn der gesuchte Wert gefunden wurde, die Worddatei geschlossen, Word beendet werden und ein CommandButton(z.B. CmdBtn1)enabled=false gesetzt werden und der Code beendet werden.
Wir bereits z. B. in der 1. oder 2. Worddatei der Wert gefunden muss der Rest nicht mehr durchlaufen werden.
Ich hoffe Du hast meine Erläuterung verstanden.
Gruss
Peter
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 13:49:54
Regina
ok, dann setze mal unter die Msgbox die folgenden zeilen:

me.CmdBtn1.enabled = false   'hier den Namens des Buttons anpassen
.ActiveDocument.close        ' hier den "." vor ActiveDocument nicht vergessen!
.quit                        ' ' hier den "." vor Quit nicht vergessen, beendet Word
exit do                       ' beende die Schleife vorzeitig
Gruß
regina
Anzeige
AW: aus excel Worddatei nach Wert durchsuchen
01.10.2019 17:20:20
Peter
Hallo Regina,
besten Dank für Deine Hilfe.
Jetzt funktioniert es.
Gruss
Peter

304 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton Label

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