in Word Zahlen suchen und nach XLS übertragen
18.03.2015 06:04:03
stef26
ich hab da ein Problem, bei dem ich Unterstützung bräuchte.
Hab hier ein Makro, welches mir in xls Zahlenwerte aus einer Zelle ausliest und diese dann in einer Word Datei sucht. Wird die Zahl gefunden so wird ein Vermerk in die entsprechende Zeile gemacht.
Sub Wordsuchen()
Dim i As Integer
With CreateObject("Word.application")
'Starten der Word-Instanz und eine neues Dokument öffnen
.Visible = True
With .documents.Open("c:\test.doc")
With .Content.Find
For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
.Execute Trim(Cells(i, 4).Text), Wrap:=1
If .Found Then Cells(i, 2) = "im AP vorhanden"
Next i
End With
'Word-Dokument schließen
.Close
End With
'Word-Anwendung beenden
'.Quit
End With
End Sub
Zum Beispiel Word Text:
bla bla 12345 bla bla 23456 bla bla 123456789 bla bla...
Sollte dann in xls folgendes stehen
12345
23456
123456789
Ich hoffe ich habs nicht zu kompliziert erklärt.
Liebe Grüße
Stefan