Hallo Andrè,
danke für deine Nachfrage, die ich als Anfänger nicht so ganz verstehe. Möglicherweise liegt das an dem inzwischen falschen Betreff vom Thread, der nur am Anfang so richtig war. Inzwischen hat sich ergeben, daß eine If - Then - Abfrage besser geeignet ist, als eine Loop-Do Lösung. Hier das Problem:
Eine (große) Excel-Datei im .xlsm-Format hat in der Spallte A ab A2 bis zu 1000 Dateinamen im .xlsb-Format stehen. Die aktive Zelle soll diese Datei durch den bekannten Pfad in einem bestimmten Ordner suchen. Wenn (
If) die gesuchte (kleine) Datei vorhanden ist, dann
(Then) soll sie geöffnet werden, wenn sie nicht gefunden wird, dann soll zum Ende springen (
End if) und in der großen Tabelle in der Spalte A eine Zelle nach unten es mit einer neuen Datei (
next i) versuchen und falls diese Zelle leer ist, dann eine Meldung ausgeben, daß die Arbeit beendet ist.
Der Strang, wenn bei der Suche die Datei nicht gefunden wird, funktioniert einwandfrei. Ich will keine Fehlermeldung.
Das eigentliche Problem liegt darin, dass bei der Wenn-Abfrage keine Datei gefunden wird und dann den Strang "nicht gefunden" abläuft.
1FIN_N-0322 so schauen die Dateinamen in der Spalte A aus.
1FIN_N-0323
1FIN_N-0324
1FIN_N-0325
1FIN_N-0326
Hast du eine Idee, warum die Datei im Ordner nicht erkennt wird?
Vielen Dank im voraus.
Jorg
Code:
Sub Auswertung()
Dim Wb As Workbook 'die "WbDatei" ist die geöffnete kleine Datei "1FIN_N_0321"
Pfad = "C:\Users\Jorg\Documents\Regina\Excel-Projekt2\.xlsb\" '<<< anpassen >>>"
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Dir(Pfad & Cells(i, 1) & ".xlsb") <> "" Then 'wenn die Datei existiert, dann...
Set Wb = Workbooks.Open(Pfad & Cells(i, 1) & ".xlsb") 'die kleine Datei ist gefunden und geöffnet
Sheets("Statistik").Select 'die kleine Datei öffnet dieses Tabellenblatt
Range("B1:B5").Select 'markiere diese 5 Werte
Selection.Copy 'kopiere die 5 Werte
ThisWorkbook.Activate 'die große Datei
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True 'füge die 5 Werte in die große Datei ein
Wb.Activate 'das ist die geöffnete kleine Datei
Application.CutCopyMode = False 'mit ESC den Copy-Modus entfernen'
Range("A1").Select 'immer noch in der kleiner Datei
Wb.Close 0 ' 1 = schließen mit speichern; 0:= schließen ohne speichern
ActiveCell.Offset(0, -2).Range("A1").Select 'große Datei,gehe wieder zurück zu Spalte A
End If 'die Schleife ist zu Ende
ActiveCell.Offset(1, 0).Select 'gehe in Spalte A eine Zelle nach unten
If ActiveCell = "" Then 'wenn die neue Zelle leer ist, dann...
MsgBox "In dieser Zelle steht kein Dateiname. Daher Abbruch."
Exit Sub 'Makro wird abgebrochen
End If 'Makro wird weiter durchgeführt
Next i 'die Schleife startet wieder von vorne
End Sub
