Zellbezug statt Zellinhalt
02.12.2004 09:37:01
Sebastian
Ich habe gestern hier schon Hilfe bekommen und zwar durch folgendes Makro:
Sub Sebastian4()
Dim Anz As Long, acR1 As Long, i As Long
Application.ScreenUpdating = False
Sheets("LK-DB").Select
Anz = (Len(Selection.Address) - _
Len(Selection.Address(False, False))) / 2
Sheets("SK-DB").Select
acR1 = ActiveCell.Row
For i = 1 To Anz
Rows(acR1).Insert Shift:=xlDown
Next i
Sheets("LK-DB").Select
Selection.Copy
Sheets("SK-DB").Range("A" & acR1).PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Das kopiert mir markierte Zeilen aus Tabelle LK-DB in Tabelle SK-DB.
Ich stehe nun vor folgender Herausforderung hierzu:
Wenn ich eine Zeile, die ich kopiert habe, in LK-DB geändert habe, sollte diese Änderung auch in SK-DB übernommen werden. Es sollten also Zellbezüge kopiert werden statt nur Inhalte. Kann mir jemand (WernerB. :-) ) weiterhelfen?
Grüße Sebastian