Worksheet_Change auf zwei Zellbereichen

Hallo liebe Excel-Freunde,
ich habe folgendes Problem:
Ich möchte gerne eine Excel To-Do-Liste erstellen mit mehreren Datenblättern. Die Datenblätter beeinflussen sich teilweise gegenseitig. Dies soll bei Eintragungen in bestimmten Zellbereichen geschehen.
Nun möchte ich , dass aus Tabelle1 Zellinhalte in Tabelle2 kopiert werden und zwar dann, wenn ich in einer Zelle der Spalte J etwas eintrage. Mein Code ursrpünglicher Code dazu sah folgendermassen aus:
Die Worksheet_Change in Tabelle 1:


Private Sub Worksheet_Change(ByVal Target As Range)
Wert = Target.Row
If Intersect(Target, Range("J2:J500")) Is Nothing Then Exit Sub
Call Übertragung
End Sub

und im Modul 1:


Public Wert, Reihe As Integer
Public JCItem As Integer
Public MM As String
Public Produkt As String
Public Thema As String

Die Sub im Modul 1:

Sub Übertragung()
JCItem = Tabelle1.Cells(Wert, 1).Value
MM = Tabelle1.Cells(Wert, 4).Value
Produkt = Tabelle1.Cells(Wert, 5).Value
Thema = Tabelle1.Cells(Wert, 9).Value
Tabelle2.Range("A1").End(xlDown).Offset(1, 0).Value = JCItem
Tabelle2.Range("C1").End(xlDown).Offset(1, 0).Value = MM
Tabelle2.Range("D1").End(xlDown).Offset(1, 0).Value = Produkt
Tabelle2.Range("E1").End(xlDown).Offset(1, 0).Value = Thema
End Sub

Das haut auch bestens funktioniert.
Nun soll aber auch wenn eine Eintragung in einer Zelle der Spalte K gemacht wird Zellinhalte aus der Zeile in Tabelle 3 kopiert werden. Dazu habe ich den Code in Tabelle 1 angepasst und eine zusätzliche Sub im Modul 1 eingefügt:


Private Sub Worksheet_Change(ByVal Target As Range)
Wert = Target.Row
Spalte = Target.Column
If Spalte = 10 Then
If Intersect(Target, Range("J2:J500")) Is Nothing Then
Exit Sub
Else
Call Übertragung
End If
End If
If Spalte = 11 Then
If Intersect(Target, Range("K2:K500")) Is Nothing Then
Exit Sub
Else
Call Tooling
End If
End If
End Sub

Zweite Sub im Modul 1:

Sub Übertragung2()
JCItem = Tabelle1.Cells(Wert, 1).Value
MM = Tabelle1.Cells(Wert, 4).Value
Produkt = Tabelle1.Cells(Wert, 5).Value
Thema = Tabelle1.Cells(Wert, 9).Value
Tabelle5.Range("A1").End(xlDown).Offset(1, 0).Value = JCItem
Tabelle5.Range("C1").End(xlDown).Offset(1, 0).Value = MM
Tabelle5.Range("D1").End(xlDown).Offset(1, 0).Value = Produkt
Tabelle5.Range("E1").End(xlDown).Offset(1, 0).Value = Thema
End Sub

Das Ganze funktioniert für die erste Sub auch weiterhin in der zweiten Sub bekomme ich in dieser Zeile:

Tabelle5.Range("A1").End(xlDown).Offset(1, 0).Value = JCItem

folgende Meldung: "Laufzeitfehler 1004: Anwendungs- oder Objektdefinierter Fehler.
Kann mir jemand erklären warum?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ist weiter oben im Beitrag. Die heißt Sub Übertragung() und unterscheidet sich nur durch die Tabelle, die damit beschrieben wir. Da _ ist es dann Tabelle2. Hier ist sie nochmal: Sub Übertragung() Reihe = Wert JCItem = Tabelle1.Cells(Reihe, 1).Value MM = Tabelle1.Cells(Reihe, 4).Value Produkt = Tabelle1.Cells(Reihe, 5).Value Thema = Tabelle1.Cells(Reihe, 9).Value Tabelle2.Range("A1").End(xlDown).Offset(1, 0).Value = JCItem Tabelle2.Range("C1").End(xlDown).Offset(1, 0).Value = MM Tabelle2.Range("D1").End(xlDown).Offset(1, 0).Value = Produkt Tabelle2.Range("E1").End(xlDown).Offset(1, 0).Value = Thema End Sub wie gesagt hier funktioniert auch alles. Einziger Unterschied ist, dass hier die Spalten 2 und 3 vorher schon händisch befüllt waren. Schönen Gruß Marcel

Hey Piet,
stimmt darüber habe ich gar nicht nachgedacht! Vielen Dank!!!!
Das Programmieren an und für sich ist mir nicht allzu fremd. VBA allerdings schon. Ich habe leider immer nur leichte in verschiedenen Sprachen gemacht.
Ich habe dadurch halt immer Schwierigkeiten bei Objektfunktionen oder anderen integrierten Funktionen. Aber ich lerne gerne dazu und habe Spaß daran.
Du hast ja vorher geschrieben:
......ich habe nur eine Vermutung, und zwar bei diesem Teil. Wenn Zelle A1 "leer" ist geht das schief!!
Tabelle5.Range("A1").End(xlDown).Offset(1, 0).Value = JCItem xlDown steht in der letzten Zeile, und Offset(1,0) will eine Zeile über das Blatt hinausschieben!! Ist das Blatt LEER?......
Nur um sicher zu gehen, dass heisst also, dass Offset(1,0) eine weitere Zeile nach unten erzeugt werden soll? Wenn ja verstehe ich jetzt nämlich nicht mehr, wie mein Code bisher funktioniert.
Durch das kleine Test Makro sieht man ja, dass man mit xlDown in die aller letzte Zeile springt. Mit Offset(1,0) springe ich noch einen runter.
Warum funktioniert mein Code denn eigentlich, warum lande ich in Zelle A3 wenn in A2 was steht? Ich komme da noch nicht ganz hinter.
Ich hoffe es ist verstänlich ;-)
Vielen Dank an dich!

Sub VBA_Grundkurs() 'Kleine Offset und Cells Übung über Msgbox 'Cells: steuert direkt die Zelle an, die in () definiert ist! 'Dabei gilt: (z,s) z=Zeile nach unten, s=Spalte nach rechts 'bei - Zahl: (z,s) z=Zeile nach oben, s=Spalte nach links For j = 6 To 10 Cells(j, 1).Select MsgBox ActiveCell.Address Next j For j = 6 To 10 Cells(1, j).Select MsgBox ActiveCell.Address Next j 'Offset: verschiebt die Zelle, die Range angegeben wurde! 'Dabei gilt: (z,s) wie oben bei Cells!! 'wichtiger Unterschied zwischen Cells und Offset, wird oft NICHT verstanden! 'Bei Cells(1,1) ist A1 gemeint!! 1.Zeile, 1.Spalte '** Cells(0,0) für A1 geht in die Hose, Rückwaertssprung!! 'Bei Offset(1,1) verschiebt sich Zelle Diagonal 'Bei Offset(0,0) bleibt die Zelle auf Range stehen!! 'Diesen Unterschied zwischen Cells und Offset kapieren viele NICHT For j = 6 To 10 Range("D4").Offset(j, 0).Select MsgBox ActiveCell.Address Next j For j = 6 To 10 Range("D4").Offset(0, j).Select MsgBox ActiveCell.Address Next j For j = 6 To 10 Range("D4").Offset(j, j).Select MsgBox ActiveCell.Address Next j End Sub

Beliebteste Forumthreads (12 Monate)

Worksheet_Change auf zwei Zellbereichen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread