Gruppe
Ereignis
Problem
Wie kann ich erreichen, daß bei Eingabe einer 1 ein Bereich aus Tabelle "Maske1", bei Eingabe einer 2 ein Bereich aus Tabelle "Maske2" in das aktuelle Blatt kopiert wird?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
If Target.Value = 1 Then
Worksheets("Maske1").Range("C5:G18").Copy Range("C5:G18")
ElseIf Target.Value = 2 Then
Worksheets("Maske2").Range("C5:G18").Copy Range("C5:G18")
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub