Thema: Bei Zellauswahl Wert aus anderer Zelle eintragen

Home

Gruppe

Ereignis

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

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ??	Ereignis Arbeitsblatt sperren abfangen
Worksheet_SelectionChange	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	Worksheet_SelectionChange bzw. Interior
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Ereignis von Laufzeit-Checkbox	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	SelectionChange - Change - Reihenfolge?
Objekt_Error - Ereignis in UserForm	selectionchange nicht, wenn before rightclick
change ereigniss auf userform.	Click-Ereignis für Checlbox nicht ausführen?
Speichern einer Kopie durch Ereigniss Workbook_bef	Reagieren auf Tastaturereignisse
Ausnahmen für Exit-Ereignis	Exit-Ereignis SetFocus
select Ereigniss UF Show	Ereignis zeitweise mit Fehler
Ereignismakro	Selectereigniss in Spalte
doppeltes Klick-Ereignis	Doppelklick-Ereignis
VBA Ereignis: Änderung der Hintergrundfarbe	Ereigniscode aus zwei Teilen fnk. nicht
Exit Ereignis einer Textbox im Frame	Change-Ereignis bei Auswahllisten
Worksheet_Change Ereignis erweitern	Exit Ereignis springt nicht an
Exit-Ereignis	Ereignis "BeforeSave" - ".Find" geht nic
change ereigniss nicht ausführen Userform	Worksheet_SelectionChange
Worksheet_SelectionChange	Exit Ereignis