Code modifizieren
05.01.2009 20:22:11
Franz
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Hallo Zusammen
Habe von Sepp diese Code erhalten. D.h. ohne Bereich. Diesen habe ich zusätzlich eingebaut mit der Hoffnung es würde funktionieren.
Sobal ich aber Target.Adress von "$A$1" zu "$A$1:$A$5" erweitere geht der Code nicht mehr.
Oder liegt es am Range?
Kann mir jemand dabei behilflich sein?
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo ErrExit
Application.EnableEvents = False
If Sh.Name = "Tabelle1" And Target.Address = "$A$1:$A$5" Then
Sheets("Tabelle2").Range("B1:B5") = Target.Value
ElseIf Sh.Name = "Tabelle2" And Target.Address = "$B$1:$B$5" Then
Sheets("Tabelle1").Range("A1:A5") = Target.Value
End If
ErrExit:
Application.EnableEvents = True
End Sub
Gruss
Franz