Zelle kopieren +auf 2.Tabellenblatt einfügen
06.11.2018 10:28:02
Robert
ich benötige eure Hilfe bei meinem kleinen VBA Problem.
Was soll passieren?
Bei jedem Klick auf die Zellen G3 : EB100 soll je der Wert aus der ersten Zelle in Tabellenblatt 2 Zelle E3 kopiert werden
Bsp.: Klick auf Zelle G15 - Kopiert Wert G1 in Tabellenblatt 2 Zelle E3
Klick auf Zelle AA7 - kopiert Wert AA1 in Tabellenblatt 2 Zelle E3
usw...
Leider wird bei meinem Code immer nur die Zelle G1 kopiert und eingefügt egal ob ich G17 oder AC99 anklicke. Hoffe es kann mir hierbei jemand helfen.
Hier mein Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
Set bereich = Range("G3:EB100")
If Intersect(Target, bereich) Is Nothing Then Exit Sub
Worksheets("Tabelle2").Range("E3").Value = Range("G1:EB1").Value
End Sub