VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Liste in Abhängigkeit einer Gültigkeitsauswahl aktualisieren

Gruppe

Allgemein

Bereich

Liste

Thema

Liste in Abhängigkeit einer Gültigkeitsauswahl aktualisieren

Problem

Die in der Kopfzeile von Tabelle2 stehenden Team-Namen sollen in einem Gültigkeitsfeld in Zelle A1 zur Auswahl gestellt werden. Bei Auswahl eines Teams, soll die Crew dieses Teams in Spalte A angezeigt werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   Dim iCol As Integer
   If IsEmpty(Target) Then Exit Sub
   If Target.Column <> 2 Or Target.Row > 20 Then Exit Sub
   With Worksheets("Tabelle1")
      var = Application.Match( _
         Target.Offset(0, -1).Value, .Columns(1), 0)
      If Not IsError(var) Then
         iCol = WorksheetFunction.CountA(.Rows(var)) + 1
         .Cells(var, iCol).Value = Target.Value
      End If
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Liste