Auswertung / Zuordnung

Hallo Excel-Profis,
ich habe mal wieder eine Frage, da mich Google nicht wirklich weiter gebracht hat oder ich die falsche Frage gestellt habe.
Vorab hier mal die Excel-Datei: https://www.herber.de/bbs/user/150668.xlsx
Nun zu den Herausforderungen:
Erste Frage:
Im Tabellenblatt: Auswertung würde ich gerne in C4 nur die Stalllevel angezeigt bekommen die passend zur Auswahl in C3 sind. Im Moment bekomme ich halt alle angezeigt.
Beispiel: In C3 wird Eis ausgewählt, dann soll in C4 nur die Auswahl: Eis 0, Eis 1 u.s.w. erscheinen. Die Level sind im Tabellenblatt: Terrain hinterlegt.
Danach sollen in D4 alle Tiere zum passenden Stalllevel angezeigt werden. Diese sind auch im Tabellenblatt: Tierinfo zu finden.
Auch hier wieder ein Beispiel. Auswahl C3 Eis, Auswahl C4: Eis 3, Tiere die in D4 angzeigt werden sollten/müssten: Kanadischer Luchs, Kaiserpinguin, Moschusochse u.s.w.
Als i-Tüpelchen:
Sollen dann in E4 die Level der Tiere angezeigt werden die das Clubmitglied hat. Diese sind im Tabellenblatt: Clubmitgliederlevel zu sehen.
Als Beispiel für eine Auswahl:
A4: Caro, B4: Eis, C4: Eis 3, Anzeige in D4: Kanadischer Luchs, Kaiserpinguim, Moschusochse, Yak, E4 die passenden Level von Caro zu diesen Tieren. In diesem Beispiel müsste dann überall "0" stehen, da sie im Tabellenblatt: ClubmitgliederLevel bei diesen Tieren überall eine 0 hat.#
Ich hoffe ich habe es diesmal einigermaßen vernünftig ausgedrückt.
Danke im voraus für Eure Hilfe / Tipps / Anregungen
Gruß
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also das bitte im Modul einfügen:


Sub Auswahl_anpassen_Stalllevel(Terrain As String)
Dim Stalllevel As String
Dim rng As Range
Dim lvl As Range
'Zusammenstellung Stalllevel
Set rng = Range("tab_stall").Resize(, 1)
For Each lvl In rng
If InStr(lvl, Terrain) > 0 Then Stalllevel = Stalllevel & lvl & ","
Next lvl
Auswahl_anpassen Sheets("Auswertung").Range("C4"), Stalllevel
End Sub
Sub Auswahl_anpassen_Tiere(Stalllevel As String)
Dim Tiere As String
Dim rng As Range
Dim lvl As Range
'Zusammenstellung Tierinfo
Set rng = Sheets("Tierinfo").Range("G:G").SpecialCells(xlCellTypeConstants)
For Each lvl In rng
If InStr(lvl, Terrain) > 0 Then Tiere = Tiere & lvl.Offset(0, -4) & ","
Next lvl
Auswahl_anpassen Sheets("Auswertung").Range("D4"), Tiere
End Sub
Sub Auswahl_anpassen(Zelle As Range, Werte As String)
Zelle.ClearContents
With Zelle.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Werte
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

und das im code von Tabelle2


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.AddressLocal(0, 0) = "B4" Then Auswahl_anpassen_Stalllevel (Target)
If Target.AddressLocal(0, 0) = "C4" Then Auswahl_anpassen_Tiere (Target)
End Sub

Gruß, MCO

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread