.find funktioniert nicht aber wieso?

Set xlAnw = CreateObject("excel.application") With xlAnw .Workbooks.Open FileName:="g:\Makros\test.xls" 'Anpassen .Visible = True With .Sheets("Tabelle1") ''''''''''''''''''''''''''Fehlermakierung Set LZ = .Columns("o").Find(what:="29974", lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True) _ If Not rngCell Is Nothing Then MsgBox LZ.Address End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim LZ As Variant With Sheets("Tabelle1") Set LZ = .Columns("O").Find(what:="29974", lookat:=xlWhole, LookIn:=xlValues, MatchCase:= _ True) _ If Not LZ Is Nothing Then MsgBox LZ.Address End If End With

Dim xlAnw As Object, objWB As Workbook Dim rng As Range Set xlAnw = CreateObject("excel.application") With xlAnw Set objWB = .Workbooks.Open(Filename:="g:\Makros\test.xls") 'Anpassen .Visible = True With objWB.Sheets("Tabelle1") ''''''''''''''''''''''''''Fehlermakierung Set rng = .Columns("o").Find(what:="29974", lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True) _ ''''''''''''''''''''''''''''''' If Not rng Is Nothing Then MsgBox rng.Address End If

Sub test() Dim xlAnw As Object, objWB As Workbook Dim rng As Range Set xlAnw = CreateObject("excel.application") With xlAnw Set objWB = .Workbooks.Open(FileName:="g:\Makros\test.xls") 'Anpassen .Visible = True With objWB.Sheets("Tabelle1") Set rng = .Columns("o").Find(what:="29974", lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True) If Not rng Is Nothing Then MsgBox rng.Address End If End With End With End Sub

Sub test() Dim xlAnw As Object, objWB As Object Dim rng As Object Set xlAnw = CreateObject("excel.application") With xlAnw Set objWB = .Workbooks.Open(Filename:="g:\Makros\test.xls") 'Anpassen .Visible = True With objWB.Sheets("Tabelle1") Set rng = .Columns("o").Find(what:="29974", lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True) If Not rng Is Nothing Then MsgBox rng.Address End If End With '.Quit End With Set xlAnw = Nothing Set onjwb = Nothing Set rng = Nothing End Sub

Hallo Sepp

LookAt:=1, LookIn:=-4163

das war anscheinend der Ausschlaggebende Punkt
es läuft.
der Vollständigkeitshalber aber
Ich habe mehrere Worddokumente mit einer unbekannten Anzahl an Tabellen
Alle Tabellen, aus einer Worddatei werden in ein Array eingelesen und anschließen der Dateiname, der dazügehührigen Exceldatei ermittelt.
Im Anschluss daran muss die entsprechende Exceldatei mit den Informationen aus dem Worddokument befüllt werden.
Hier sind aber bereits etliche Informationen eingetragen, sodass nicht einfach runtergelistet werden.
Daher brauchte ich unbedingt die .Find funktion, um den eintrag überhaupt erstmal zu finden.
Mit dem Ergebniss der .Find funktion ist nun die Erste Zeile und die Anzahl der zur verfügung Stehenden Zeilen bekannt. (Verbundene Zellen)
Ich denke der Rest sollte jetzt relativ Problemlos von statten gehen.
Vielen Dank für deine Hilfe.
wie bist du eigendlich auf die einträge

LookAt:=1, LookIn:=-4163

gekommen?
Gruß
Dirk

Beliebteste Forumthreads (12 Monate)

.find funktioniert nicht aber wieso?

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

.find funktioniert nicht aber wieso?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread