Gruppe
Ereignis
Bereich
SelectionChange
Thema
Bei Zellauswahl Wert aus anderer Zelle eintragen
Problem
Bei Auswahl einer oder mehrerer Zellen im Bereich A5:A31 soll in die Zellauswahl der Wert aus Zelle U5 eingetragen werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$A$5:$A$31")) Is Nothing Then
Selection.Value = Range("U5").Value
End If
End Sub