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