Hallo liebe Forumteilnehmer,
ich möchte mit VBA eine größere Anzahl Workbooks durchsuchen.
Muß dabei auch Textboxen durchsuchen
For n = 0 To UBound(c)
If InStr(LCase(verWB.Sheets("tabelle1").Textbox1.Text), LCase(c(n))) 0 Then
vTreffer = vTreffer + 1
End If
Next
If vTreffer 0 Then
ThisWorkbook.Sheets("tabelle1").Cells(y,x)= verWB.Sheets("tabelle1").TextBox1.Text
End If
c ist eine Array mit ca. 20 Suchstrings, verWB ist mit verWB = Workbooks.Open .... geöffnet.
Die Textbox enthält Zeilenumbrüche, die mit Chr(13) erzeugt sind.
Wollte der Einfachheit halber, falls ein Suchstring in der Textbox vorkommt, die ganze Textbox auslesen. Leider bekomme ich nur kryptische Zeichen eingelesen, also Vierecke, die wohl Zeilenumbruch bedeuten.
Kann ich die Textbox auch zeilenweise durchsuchen und ggf. nur die Zeile mit dem Suchstring-Treffer übernehmen?
Wäre für Hilfe sehr dankbar
Jörg