HERBERS Excel-Forum - das Archiv

Thema: Inhalt einer bestimmten Zelle übertragen | Herbers Excel-Forum

Inhalt einer bestimmten Zelle übertragen
Karsten

Hallo,
mir hat jemand folgendes Beispiel geschrieben:
https://www.herber.de/bbs/user/66396.xls
Ich möchte diesen Code gern anpassen, aber weiß nicht wie. Der in Tabelle2 in C6 stehende Inhalt sollte in "Lehrbericht" C1 angezeigt werden. Kann mir jemand dabei helfen?
Danke
Gruß
Karsten

AW: Inhalt einer bestimmten Zelle übertragen
hary

Hallo Karsten
soll der Bereich auch so bleiben? dann so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim actZelle As Range
Set actZelle = Intersect(ActiveCell, Range("A1:C6", Cells(Rows.Count, 1).End(xlUp)))
If Not actZelle Is Nothing Then UebergebeActiveZelle actZelle
End Sub

gruss hary
AW: Inhalt einer bestimmten Zelle übertragen
Karsten

Hallo Hary,
Danke.
Gruß
Karsten