Laufzeitfehler 12 Typen unverträglich Excel 2016

Hallo Andreas,

herzlichen Dank für deine Mühe

Lt Hersteller wird das Dazugehörige Programm. Ichr mehr gepflegt

Es gäbe jetzt einen passenden Drucker??

Wünsche ein schönes Wochenende

Und wo kommt da jetzt der Fehler? Wie soll ich das ohne Importdatei nachstellen?

Andreas.

Lade die Datei (möglicherweise mit anonymisierten Daten) auf einen Online-Datei-Hoster wie www.dropbox.com hoch und veröffentliche den Download-Link hier.

Ein Makro zur Anonymisierung von Daten in ausgewählten Zellen kann hier heruntergeladen werden:

https://www.dropbox.com/s/rkfxuh85j5wyj9y/modAnonymize.bas?dl=1

Andreas.

Okay, ich sehe den Fehler, aber ich habe keine guten Nachrichten:

Die Textdatei ist nicht mit dem Code (der Exceldatei) kompatibel, bzw. dafür geschrieben. Das hat nichts mit Excel zu tun sondern liegt außerhalb, wahrscheinlich an dem Programm mit dem diese Datei erzeugt wurde, das hat sich geändert oder das System auf
dem die das Programm läuft.

Der entscheidende Codepart ist dieser

--- schnipp ---

Open file2open For Input As #1

pos1 = 0

Do While (Not EOF(1)) And (pos1 = 0) ' Schleife bis Dateiende

DoEvents

Line Input #1, e1

Debug.Print e1

pos1 = InStr(e1, "3030")

Loop

endflag = False

Do While Not EOF(1) ' Schleife bis Dateiende

DoEvents

If pos1 = 0 Then

Line Input #1, e1

Else

e1 = VBA.Mid(e1, pos1)

pos1 = 0

End If

--- schnapp ---

Die Datei wird als Textdatei geöffnet und in der ersten WHILE Schleife wird solange eine Zeile eingelesen bis diese "3030" enthält.

Soweit so gut, schaut man sich die Textdatei mit Notepad an, dann sieht man sofort das diese nur eine einzige Zeile hat... in der kommt auch 3030 vor.

Die 2te WHILE Schleife prüft nun sofort mal ob das Dateiende erreicht wurde und das ist bei nur einer Zeile der Fall, daher wird die ganze Auswertung innerhalb übersprungen und am Ende der Schleife kommt es dann zu

Cells(2, 5).Value = DateValue(iDay & sDlm & iMonth & sDlm & iYear) + TimeValue(VBA.Mid(Cells(1, 2).Value, 9, 8))

Und weil die Zellen, bzw. Variablen alle leer sind entsteht der Fehler, d.h. er ist nur ein Symptom für ein anderes Problem.

Wenn man die Codeausführung nach der ersten Schleife manuell in die 2te zwingt, dann läuft der Rest des Codes ohne Fehler durch.

Quick and dirty könnte man die 2te DO WHILE (und das LOOP dazu) einfach auskommentieren. Wenn es aber Textdateien gibt die mehrere Zeile enthalten, dann funktioniert es da nicht mehr.

Also:

Die Ursache ist das Format der Textdatei, da würde ich ansetzen.

(Technisches Detail: Das ist eine Unix-Datei im UTF-8 Format, der Code ist aber für eine Windows Datei. Theoretisch ist es denkbar diese zu konvertieren... aber ob es danach noch mehr Probleme gibt kann ich nicht sagen)

Wenn es da nicht weitergeht, dann den Autor der Datei kontaktieren und fragen.

Wenn das auch nicht geht: In meinem Profil steht meine Mailadresse, aber kostenfrei kann ich da nicht helfen, das ist zu aufwendig.

Andreas.

Hier die dazugehörige Textdatei

https://www.dropbox.com/s/dzxbss8zm32dxyp/Test Kürschi.txt?dl=0