VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Einen von einer Schlüsselziffer abhängigen Bereich kopieren

Gruppe

Ereignis

Bereich

Change

Thema

Einen von einer Schlüsselziffer abhängigen Bereich kopieren

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?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


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