Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren

Gruppe

Change

Problem

Bei Einträgen in Spalte A von Tabelle1 soll der Eintrag automatisch in Tabelle2 übernommen werden. Beide Tabellen sind zu sortieren.

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
   Worksheets("Tabelle2").Range(Target.Address).Value = Target.Value
   Range("A1").Sort key1:=Range("A2"), order1:=xlAscending, header:=xlYes
   With Worksheets("Tabelle2")
      .Range("A1").Sort key1:=.Range("A2"), order1:=xlAscending, header:=xlYes
   End With
End Sub