Wie suche ich mittels VBA nach einem Wert in einer anderen Datei?

... komplette Frage anzeigen

1 Antwort

Hier ein paar Zeilen aus einem Projekt von hier:

    MappeSchonGeöffnet = False
Set Mappe = Nothing
For j = 0 To Workbooks.Count - 1
If Workbooks(j + 1).Name = AndereDateinamen(i) Then 'sch... Offset
MappeSchonGeöffnet = True
Set Mappe = Workbooks(j + 1)
Exit For
End If
Next j

If Not MappeSchonGeöffnet Then
Set Mappe = Workbooks.Open(EigenerPfad + AndereDateinamen(i))
End If

WorksheetLog "Open/Activate", EigenerPfad, Mappe.Name

'jetzt die einzelnen Arbeitsblätter durchgehen
For k = 0 To Mappe.Sheets.Count - 1

Set Mappe_Blatt = Mappe.Sheets.Item(k + 1) 'Sch...-Offset
Mappe_Blattname = Mappe_Blatt.Name
WorksheetLog "Activate", EigenerPfad, Mappe.Name, Mappe_Blattname
'Mappe_Blatt.Activate

...

WorksheetLog "Close/Deactivate", EigenerPfad, Mappe.Name
If Not MappeSchonGeöffnet Then
Mappe.Close
End If

Die Zeilen durchgehen geht vermutlich besser mit einer For-Schleife:

zeilennrMax = Arbeitsmappe.Tabellenblatt.Cells.SpecialCells(xlLastCell).Row
for zeilennr = 1 to zeilennrMax
...
Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?