Workbook_Change-Ereignis
03.04.2007 15:59:00
Christian
mit diesem Makro kann ich Werte in Tabelle2 durch Eingabe von Werten in Tabelle1 im Bereich B2:IV65536 aktualisieren, indem der eingegebene Wert in derselben Zelle in Tabelle2 addiert wird.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim gZe, gSp ' Zeile und Spalte der geänderten Zelle
gZe = Target.Row
gSp = Target.Column
If (gSp > 1) And gZe > 1 Then
With Sheets(1)
Sheets(2).Cells(gZe, gSp) = Sheets(2).Cells(gZe, gSp) _
+ .Cells(gZe, gSp)
End With
End If
End Sub
Funktioniert super, aber ich möchte natürlich nicht jede Zelle einzeln eingeben müssen, da diese in einer anderen Datei schon vorhanden sind. Wenn ich mir die Daten aus der anderen Datei aber in Tabelle1 hole, dann versagt mir das Change-Ereignis seinen Dienst, weil die kopierten und einzufügenden Bereiche nicht gleich sind.
Wie kann ich es trotzdem bewerkstelligen, dass ich mir die Daten aus der anderen Datei hole und trotzdem das Chenge-Ereignis stattfindet.
Komme gerade nicht weiter und bin für jede Hilfe dankbar.
Gruß
Christian