VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eingaben in B:D automatisch mit 6 multiplizieren

Gruppe

Ereignis

Bereich

Change

Thema

Eingaben in B:D automatisch mit 6 multiplizieren

Problem

Wie kann ich erreichen, dass Eingaben in den Spalten B:D automatisch mit 6 multipliziert werden?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column > 2 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   If Not IsNumeric(Target.Value) Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   Target.Value = Target.Value * 6
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

    


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