VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Eingabe Formel in der Nebenspalte nach unten kopieren

Gruppe

Ereignis

Bereich

Change

Thema

Bei Eingabe Formel in der Nebenspalte nach unten kopieren

Problem

Bei Eingaben in Spalte A sollen die Formeln in Spalte B aus der Zeile über der Eingabezeile in die Eingabezeile kopiert werden.

Lösung

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




ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   On Error GoTo ERRORHANDLER
   Application.EnableEvents = False
   Range(Cells(Target.Row - 1, 2), Cells(Target.Row - 1, 256)).Copy _
      Range(Cells(Target.Row, 2), Cells(Target.Row, 256))
   Application.CutCopyMode = False
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

    


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