Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Verknüpfungen bei x-Eingabe erstellen bzw. löschen

Gruppe

Change

Problem

Wenn in Zelle A1 ein "x" eingegeben wird, sollen in Zeile 1 von Tabelle2 Verknüpfungen Zur Zeile 1 in Tabelle1 erstellt werden. Bei Eingabe eines anderen Wertes sollen diese wieder gelöscht werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address <> "$A$1" Then Exit Sub
   If UCase(Target.Value) = "X" Then
      Worksheets("Tabelle2").Range("A1:IV1").Formula = "=Tabelle1!A1"
   Else
      Worksheets("Tabelle2").Rows(1).ClearContents
   End If
End Sub