Supportnet / Forum / Tabellenkalkulation

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

danke, hat sich schon erledigt.
(Workbooks(datei_k).Close False war das Problem)
sry, mein fehler
mfg

• Augen färben oder Stileffekte einfügen mit Photoshop
• Werte Suchen und Werte in Zelle daneben ausgeben
• Hallo ich braucht euer hilfe ich habe in einer tabelle positive und negative werte, wie kann man die werte die sich aufheben filtern vielen dank schon