ich bin gerade mal dabei, gepflegt zu verzweifeln.
Ich habe eine Arbeitsmappe erstellt, in der Tabelle1 als "Dateneingabe" fungiert und Tabelle3 als "Liste".
Nun habe ich in Tabelle1 folgenden VBA-Code eingefügt, der mir aber in jeder Zeile "Laufzeitfehler 1004: Anwendungs- oder objektorientierter Fehler" ausgibt. Was mache ich falsch?
Gruß, Paul
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "F7"
Range("F7").Copy Destination:=Worksheets("Liste").Range("A" & Worksheets("Liste").[A65536].End(x1Up).Row + 1)
Case "B7"
Range("B7").Copy Destination:=Worksheets("Liste").Range("B" & Worksheets("Liste").[B65536].End(x1Up).Row + 1)
Case "B1"
Range("B1").Copy Destination:=Worksheets("Liste").Range("C" & Worksheets("Liste").[C65536].End(x1Up).Row + 1)
Case "H11"
Range("H11").Copy Destination:=Worksheets("Liste").Range("D" & Worksheets("Liste").[D65536].End(x1Up).Row + 1)
Case "J11"
Range("J11").Copy Destination:=Worksheets("Liste").Range("E" & Worksheets("Liste").[E65536].End(x1Up).Row + 1)
Case "B13"
Range("B13").Copy Destination:=Worksheets("Liste").Range("F" & Worksheets("Liste").[F65536].End(x1Up).Row + 1)
Case "E13"
Range("E13").Copy Destination:=Worksheets("Liste").Range("G" & Worksheets("Liste").[G65536].End(x1Up).Row + 1)
Case "H13"
Range("H13").Copy Destination:=Worksheets("Liste").Range("H" & Worksheets("Liste").[H65536].End(x1Up).Row + 1)
Case "B15"
Range("B15").Copy Destination:=Worksheets("Liste").Range("I" & Worksheets("Liste").[I65536].End(x1Up).Row + 1)
Case "B20"
Range("B20").Copy Destination:=Worksheets("Liste").Range("J" & Worksheets("Liste").[J65536].End(x1Up).Row + 1)
Case "B22"
Range("B22").Copy Destination:=Worksheets("Liste").Range("K" & Worksheets("Liste").[K65536].End(x1Up).Row + 1)
Case "B24"
Range("B24").Copy Destination:=Worksheets("Liste").Range("L" & Worksheets("Liste").[L65536].End(x1Up).Row + 1)
Case "B26"
Range("B26").Copy Destination:=Worksheets("Liste").Range("M" & Worksheets("Liste").[M65536].End(x1Up).Row + 1)
Case "B28"
Range("B28").Copy Destination:=Worksheets("Liste").Range("N" & Worksheets("Liste").[N65536].End(x1Up).Row + 1)
End Select
End Sub