Thema: Bei Eintrag Übernahme der Formel aus Nebenzelle

Home

Gruppe

Ereignis

Problem

Bei einer Eingabe in Spalte E soll die in der Parallelzelle in Spalte D hinterlegte Formel eingetragen werden.

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strFormula As String
   If Target.Column <> 5 Or IsEmpty(Target) Then Exit Sub
   strFormula = Target.Offset(0, -1).Formula
   strFormula = WorksheetFunction.Substitute(strFormula, ".", ",")
   Application.EnableEvents = False
   Target.Value = "'" & strFormula
   Application.EnableEvents = True
End Sub

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim sFormula As String
   If Target.Column <> 5 Or IsEmpty(Target) Then Exit Sub
   sFormula = Target.Offset(0, -1).Value
   sFormula = Application.Substitute(sFormula, ",", ".")
   Application.EnableEvents = False
   If Left(sFormula, 1) = "+" Then
      Target.Value = "=" & sFormula
   Else
      Target.Value = sFormula
   End If
   Application.EnableEvents = True
End Sub

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

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Worksheet_Change auf 2 Zellen anwenden	Mit Change() o. Calculate() Filtern und Drucken
Grafik nach Change in Exceltabelle laden	Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis	Namen definiert- in Ereignis verwenden?
Mail Exchange Server	Workbook_SheetChange löscht Zwischenspeicher ...
On Worksheet Change - simulieren?!	ChangeFileAccess
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen	Worksheet_SelectionChange
Ereignisprozedur f. Multipage-Reiter	Frage zum Change ereignis
Fehler bei Changelink	Worksheet_SelectionChange bzw. Interior
Change	Kein Change in Combobox erlauben(wenn false)
Überprüfung von Zellen mit Worksheet change	SheetChange_Endlosschleife
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Bei "Worksheet_Change" aktuelles Datum in J3
Worksheet_Activate() / Worksheet_Change()	Warum kann ich nicht Worksheet_Change
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
Workcheet-Change / Schleife.....	change-ereignis bei dynamisch erstellten Controls
Worksheet_Change auf Spalten beschränken	Worksheet_Change ohne aktive Zelleingabe
Private Sub Worksheet_Change(ByVal Target As Range	For Each CheckBox, Change Value
Change(ByVal Target as range	ComboBox.Change - ComboBox.Load Problem
Zwei Mal If inersect Ranges nach Worksheet change	Schaltfläche - Ereignis erst nach Bestätigung ausl
SelectionChange - Change - Reihenfolge?	Schleife bei Worksheet_Change
Objekt_Error - Ereignis in UserForm	"Private Sub Worksheet_Change" deaktivieren