Hi,
also mein Makro soll folgendes können:
eine Datei soll geöffnet werden, dann soll der Wert einer Variablen in bestimmte Zellen geschrieben werden (2 verschieden Dateien).
Problem:
Bei einer Datei (datei_u) funktioniert es, bei der anderen (datei_k) nicht...
Vielleicht hat ja jemand eine Lösung für mich, Code anbei:

Public Sub Copy_sch_WB()
datei_k = "sch_WB.xls"

Workbooks.Open Filename:=Pfad_k & datei_k
zl = zl + 1
zl_k = zl_k + 1

Workbooks(datei_k).Worksheets("Eintrag").Unprotect
Workbooks(datei_k).Worksheets("Eintrag").Cells(3, 1).Value = zl
Workbooks(datei_k).Worksheets("Eintrag").Protect

Workbooks(datei_u).Worksheets("Hilfe").Unprotect
Workbooks(datei_u).Worksheets("Hilfe").Cells(zl_k, 1).Value = zl
Workbooks(datei_u).Worksheets("Hilfe").Protect

Do
Workbooks(datei_k).Worksheets("Werte").Cells(1, sp_k).Copy
Workbooks(datei_u).Worksheets("Werte").Cells(zl, sp_k).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
sp_k = sp_k + 1
Loop Until sp_k > Firmen
sp_k = 1
Workbooks(datei_k).Close False

End Sub