ich möchte den wert einer zelle mit der formatierung dieser zelle von
tabelle 1 in tabelle 2 übernehmen. geht das?
besten dank
hansjoerg
in den Code der Tabelle1:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range
Set rng1 = [A1]
Set rng2 = Sheets("Tabelle2").[B2]
If Intersect(Target, rng1) Is Nothing Then Exit Sub
rng1.Copy rng2
End Sub
oder in den Code der Tabelle2:
Option Explicit
Private Sub Worksheet_Activate()
Dim rng1 As Range, rng2 As Range
Set rng1 = Sheets("Tabelle1").[A1]
Set rng2 = [B2]
rng1.Copy rng2
End Sub
Der erste Code reagiert nur auf Wert- nicht aber auf Formatänderungen in A1 der Tab. 1.