Hallo Leute,
ich habe mal wieder einen "Gehirnknoten" und benötige Eure Hilfe ...
Im Ablauf eines Makros werden die Dateien eines Verzeichnissen ausgelesen und gewünschte Werte in einem neuen Tabellenblatt zusammengeführt. Das läuft prächtig.
Nun ist aber das Problem dazugekommen, dass die bisher alle gleich aufgebauten Quelldateien in zwei unterschiedlichen Layouts bereitgestellt werden.
Ich habe daher versucht eine Abfrage zu integrieren, die mir dann den nachfolgenden Ablauf wieder in den bisher bekannten "Rahmen" bringt. In der Quelldatei muss der Inhalt der Zelle A18 Kunde sein, wenn dem so ist, wird eine definierte Variable ein Wert X gegeben, sonst der Wert Y.
Aber schon beim Beginn der gebauten if then else Schleife wird mir der Fehler 13 - Typen unverträglich ausgeworfen. Die erse Datei wird geöffnet und dann soll dieser String in die Schleife einleiten:
If Workbooks(objDatei).Sheets("Report_1").Range("a18") = "Kunde" Then
Die definierte objDatei wird geöffnet aber dann halt der Fehler ausgeworfen. Warum?
Danke für Eure Hinweise
Ron