Gruppe
Allgemein
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.
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