Worksheet_Change + Tabelle füllen
17.02.2009 10:47:00
schneewittchen123
ich möchte in einer Tabelle mit Worksheet_Change Ereignis mehrere andere Tabellenblätter füllen (in Abhängigkeit, in welcher Spalte das Ereignis ausgelöst wurde). Das funktioniert auch, solange ich den zu füllenden Bereich mit einem festen Range-Befehl anspreche. Wenn ich nun die zu füllenden Tabellenblätter fortschreiben, also nicht immer nur die Zelle A1 überschreiben möchte, dann funktioniert das nicht. Hat jemand eine Erklärung für mich?
DANKE FÜR EURE HILFE....
LG,
Melanie
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERRORHANDLER
If Target.Column = 9 Then
Worksheets("Spalte 9 ändern").Range("A1").Value = Cells(Target.Row, 2).Value
Worksheets("Spalte 9").Cells(2, 1).End(xlDown).Offset(1, 0).Value = _
Cells(Target.Row, 9).Value
End If
If Target.Column = 4 Then
Worksheets("Spalte 4 ändern").Range("A1").Value = Cells(Target.Row, 2).Value
Worksheets("Spalte 4 ändern").Range("B1").Value = Cells(Target.Row, 4).Value
End If
ERRORHANDLER: Application.EnableEvents = True
End Sub