PDA

Vollständige Version anzeigen : Zellen per Klick kopieren


DieKu
30.08.2017, 14:26
Hallo habe hier zwar schon ähnliche Lösungen gefunden, da ich aber keine Ahnung von VBA habe, kann ich diese nicht anpassen.

Ich benötige ein Makro, das folgendes Leistet:
Wenn im Bereich von B2 bis B30 und von D2 bis D30 eine Zelle angeklickt wird, dann soll deren Inhalt in die Zelle C2 kopiert werde.
Wäre super wenn mir das jemand so erklären könnte, dass ich das ohne viel VBA-Wissen hin bekommen kann.

Schon mal herzlichen Dank!!

Crazy Tom
30.08.2017, 15:27
Hallo

ein Weg

gehört in das Tabellenblattmodul in dem es stattfinden soll

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B30,D2:D30")) Is Nothing Then
Range("C2").Value = Target.Value
End If
End Sub

MfG Tom

DieKu
30.08.2017, 15:54
Super, super vielen Dank........