VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Zellauswahl Wert aus anderer Zelle eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange