2 Fragen zu VBA Code

[MichaLauterbach]

Hallo 

ich hab da zwei kleine Probleme.
1.

Ich benutzte diese 3 zeilen um via VBA ein anderes File zu öffnen, daten zu kopieren und dann wieder schließen.
Funktioniert soweit ohne Probleme. Aber jetzt gibt es ein Fall  (A.csv), wo ich immer gefragt werde , ob ich die datei beim schließen speichern möchte. 

  Workbooks.Open Filename:="\\bla.com\out\A.csv", UpdateLinks:=0, Notify:=False, ReadOnly:=True
  ThisWorkbook.Sheets("1").Range("A1:P20000").Value = ActiveWorkbook.Sheets(1).Range("A1:P20000").Value
  Workbooks("A.csv").Close

Bei diesem bsp kommt die frage nicht.

  Workbooks.Open Filename:=""\\bla.com\out\B.csv", UpdateLinks:=0, Notify:=False, ReadOnly:=True
  ThisWorkbook.Sheets("2").Range("A1:L200").Value = ActiveWorkbook.Sheets(1).Range("A1:L200").Value
  Workbooks("B.csv").Close


Warum wird in den 3 Zeilen bei A.csv was verändert und bei B.csv nicht ??? Wie kann ich die Speicherfrage umgehen?


Und zweite Frage,

Ich bekomm bei...

lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

j = 3
For t = lz To 2 Step -1

    If Cells(t, 14).Value Like "*BLA*" Then


... immer die fehlermeldung "Runtime error 13, type mismatch" und Die zeile "If Cells.." wird gelb markiert. Ich meine aber das ging letztens noch ohne Probleme.
Wo liegt da der Fehler? Ich meine es doch nirgends versucht eine String in eine Long zu schreiben oder ähnliches. Wird doch nur was geprüft.

Vielen Dank

[Lutz Fricke]

Hallo MichaLauterbach,

dein erstes Problem löst du, indem du dem Code sagst, dass er ohne Speichern schließen soll:

Code:

    Workbooks("A.csv").Close savechanges:=False

Das zweite Problem schaut aus, als würde die Daten-Typen nicht zusammenpassen, evtl ist der Wert Cells(t, 14).Value eine Zahl...
Für Details fehlt allerdings eine Beispieldatei...

Gruß,
Lutz

[MichaLauterbach]

Hallo Lutz

ich danke dir. Beides behoben.

an dem Fehler 13 war ein "#NAME?" schuld. Lasse jetzt Spalte N vorher nach "#" suchen und ersetzen, dann geht es.

Daher kommt auch das Speicherproblem der ersten Frage. beim öffen beginnt eine Zelle in N mit einem "=", und beim schließen will er wohl eine Formel draus machen.

Vielen Dank!