ich fummle mich gerade mal wieder blöde und komme nicht dahinter warum
es nicht funktioniert.
Ich brauche ein Change-Event:
Wenn sich in Datei 1/Tabelle 1/Zelle A1 etwas ändert (Change-Event)
Soll der Wert aus Datei 1 / A1 (Partition C)
nach Datei2/Paritiion D/ erste leere Zelle in spalte B eingetragen werden.
Momentan stehe ich hier:
Public Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim workbook1 As Workbook
Dim workbook2 As Workbook
Dim worksheet1 As Worksheet
Dim worksheet2 As Worksheet
Verz = "D:\Excel-Module\"
Set workbook1 = Application.Workbooks("Mappe1.xlsm")
Set worksheet1 = workbook1.Worksheets("Tabelle1")
Set worksheet2 = Verz & Workbooks("Mappe2.xlsm").Worksheets("Tabelle1")
worksheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = worksheet1.Cells(1, 1).Value
End Sub
Ich bekomme immer Laufzeitfehler 9: Index außerhalb des gültigen Bereiches.
Ich glaube, es ist ein Anfängerfehler. Kennt jemand die Lösung?
Danke,
Born