nochmal das gleiche Problem. Fehlermeldung: index ausserhalb des gültigen Bereichs. Alle Blätter sind 100%ig so benannt.
Funktion allgemein: Er nimmt eine Spalte aus Mappe1 schreibt sie in Mappe 2 in Tabelle 1. Nun ein Makro. Danach Mappe2 Tabelle 2. Kopiert Spalte A in Mappe 1 Tabelle 2.
Private Sub CommandButton1_Click()
Workbooks.Open "H:\FT13\BERICHTE\artikeldatenbank\datenbank\datenrechner.xls"
Workbooks("datenrechner.xls").Worksheets("Altdaten").Range("A:A").Clear
Workbooks("Datenbank Sai112.xls").Worksheets("berechnung").Range("B:B").Copy
Workbooks("datenrechner.xls").Worksheets("Altdaten").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.Run "datenrechner.xls!vergleichen"
Workbooks("datenrechner.xls").Worksheets("neudaten").Range("A:A").Copy
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks("datenbank sai112.xls").Worksheets("Stammdaten").Range("A6").PasteSpecial Paste:=xlPasteValues
End Sub
Die Fehlermeldung tritt in Zeile 5 bei Datenbank Sai112 auf. Ich hab keinen Plan warum das nicht geht.
Gruß Slugger