Excel "Wenn-Denn" mit mehreren ergebnissen im Dropdown anzeigen lassen

Computer: Software & Programmierung Office Software
#1

Hallo ihr vielen. Alleine die Frage zu stellen ist für mich eine Herausforderung. ^^
 Ich sitze an einem Monats-/Tagesbericht, in dem ich Tätigkeiten eintrage. Zu jeder Tätigkeit gibt es mehrere Antworten.
Z.B:  Ich soll „Tischlern“ „Schmieden“ "oder „Backen“ diese habe ich in einem Dropdownfeld eingetragen.

Daneben ein Antwortfeld auch Dropdown. Wo als Erstes in der Formel die Frage gestellt wird „was wurde gemacht?“ Anhand der Antwort z.b „Tischlern“ wird mir im Dopdown die verschiedenen Antworten zu Auswahl angezeigt. (z.b. „Gehobelt“, „Geschliffen“ oder „verleimt“).

Wird aber im ersten Dropdown aus „Tischlern“ - „Backen“ sind die Antworten ja nicht mehr „Wahr“. Soll sich dann also auf einen anderen Teil in der Datenbank beziehen wo die richtigen antworten auszuwälen sind.

Ich denke für einen Fachmann ist das ein leichtes und dauert nur wenige Minuten.
Wenn einer spaß daran hat mit zu helfen bitte ich um Kurze Antwort oder Ein Anruf via Skype (DJ_Castello) wäre nett

#2

Hallo ,

Wird aber im ersten Dropdown aus „Tischlern“ - „Backen“ sind
die Antworten ja nicht mehr „Wahr“. Soll sich dann also auf
einen anderen Teil in der Datenbank beziehen wo die richtigen
antworten auszuwälen sind.

das ist so schlecht beschrieben ,
mach doch ein upload auf einen FileHoster und poste hier den link ,
und vor allem die formeln die du jetzt schon benutzt .

Danke

Gruß TechPech

#3

Hier die komplette Tabelle
http://www.solero-it.de/test.xlsx

Siehe Blatt 1 dort habe ich zwei Testeinträge.

Die Zeille „Status“ muss also das Feld „Autrag“ abfragen um die richtigen möglichen Antworten im Dropdownfeld „Status“ zur Auswahl zu stellen.

#4

Das Problem ist das ich derzeit alle Anwort möglichkeiten sehe und auch auswählen kann. Dadurch entstehen viele fehler. Wenn im Autragsfeld „WiB“ steht kann es nur zwei Antworten geben, Entwerder „WiB“ oder "WiB-NA "

Achtung die Test.xmlx habe ich nochmal hochgeladen, war ein fehler drin ^^

#5

Hallo,

  1. räume mal Deine NAMEN auf, da sind Unmengen an Müll drin!!
  2. vergib einen NAMEN (oder benutze den alten dafür) und setze dort folgende Formel ein:

=INDEX(‚Legende und Formeln‘!$B$32:blush:N$37;1;VERGLEICH(INDEX($B:blush:B;ZEILE());‚Legende und Formeln‘!$B$30:blush:N$30;0)):INDEX(‚Legende und Formeln‘!$B$32:blush:N$37;6;VERGLEICH(INDEX($B:blush:B;ZEILE());‚Legende und Formeln‘!$B$30:blush:N$30;0))

Nun dürfte es passen!

VG

#6

2 Lösungen
Hallo SGHxMaster,

  1. habe ich diese Anleitung gefunden:
    http://www.tabellenexperte.de/dynamische-drop-down-l…

  2. habe ich eine Lösung mit VBA gestrickt. Die fertige Mappe ist hier:
    http://www.file-upload.net/download-9721984/test.xls…
    (ACHTUNG wenn du keinen Werbeblocker im Browser benuzt: Der richtige Downloadbutton ist der blaue mit der weißen Wolke und dem Pfeil).

Falls du dich ein bisschen mit VBA auskennst, kannst du den Code auch selber in deine Mappe einfügen. Du must sie dann mit .xlsm speichern. Hier der Code. Er muss in den Codebereich von „DieseArbeitsmappe“:

Option Explicit

Private Sub Workbook\_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim zeile As Long, von As Long, bis As Long, spalte As Long
 Dim zelle As Range
 Dim gefunden As Boolean
 Dim formel As String

 If Sh.Index 32 Then Exit Sub
 If Intersect(Target, Range("B5:B" & Sh.Rows.Count)) Is Nothing Then Exit Sub
 With Tabelle33
 Set zelle = .Cells.Find("Mögliche Antworten")
 If zelle Is Nothing Then Exit Sub
 zeile = zelle.Row + 1
 spalte = zelle.Column
 gefunden = False
 Do While Not IsEmpty(.Cells(zeile, spalte))
 If Target.Value = .Cells(zeile, spalte).Value Then
 gefunden = True
 Exit Do
 End If
 spalte = spalte + 1
 Loop
 If gefunden Then
 von = zeile + 1
 bis = von + 1
 While Not IsEmpty(.Cells(bis, spalte))
 bis = bis + 1
 Wend
 bis = bis - 1
 formel = "='Legende und Formeln'!" & .Cells(von, spalte).Address & ":" & .Cells(bis, spalte).Address
 Else
 formel = "=atodo"
 End If
 With Sh.Cells(Target.Row, 6).Validation
 .Delete
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= \_
 xlBetween, Formula1:=formel
 .IgnoreBlank = True
 .InCellDropdown = True
 .InputTitle = ""
 .ErrorTitle = ""
 .InputMessage = ""
 .ErrorMessage = ""
 .ShowInput = True
 .ShowError = True
 End With
 Sh.Cells(Target.Row, 6).Value = Range(Mid(formel, 2)).Cells(1, 1)
 End With
End Sub

Gruß, Andreas

#7

Hammer … kein Wunder das ich damit nicht klar gekommen bin ^^
Ihr seit echte Freaks ^^ ich hab fast tränen in den Augen vor Glück

Mit der Formel von 16Bit bin ich nicht klar gekommen aber ich hab meine 50 „Namen“ auf die nötigen 8 Reduziert.

Die Lösung war jetzt echt das VBA Skript welches fast tadellos funktioniert.
Lediglich die KW-FW zeigt noch alles an … aber sonst irre. Ich könnt euch knutschen.

#8

Hi SHGxMaster

Lediglich die KW-FW zeigt noch alles an …

Das liegt daran, dass du die KW-FW nicht bei deinen möglichen Antworten auf dem Blatt „Legende und Formeln“ hast. Wenn du das z.B. in Spalte O noch einträgst, wird das auch gefunden.

Gruß, Andreas

#9

Also bei den Aufträgen beziehst du dich auf B4 bis B16
Wo holt du die Antwortsätze her … sorry für die blöde frage aber ich peil duch VBS so überhaupt nicht durch ^^

#10

Hallo,

klicke mal bitte auf das orange !.
Somit kommst Du in die Forenansicht und antwortest nicht „quer Beet“.

VG

#11

Hallo,

mMn müsste doch nur ein KW-FW aus dem Eintrag in N30 gemacht werden müssen!

VG

#12

Oh Gott … die Foren werden auch immer komplizierter ^^

#13

Jo geht … hatte ich mir fast gedacht und eben schon einmal geändert leider ohne erfolg. Jetztgeht es … WAHNSINN … ich grinse gerade über alle vier backen.

Vielen Dank für deine sehr professionelle Hilfe. Ich hab eben dein Foto gesehen. Kommst du aus dem Bereich Schaumburg? Du kommst mir bekannt vor

#14

Hä??
kann es sein, dass du im falschen Thread geantwortet hast?

Andreas

#15

Mit wem redstn du?
Falls du mich meinst,

nö, bin aus Hanau.

Gruß, Andreas

#16

Dann gäb’s doch keinen KW-FWS mehr.

#17

Ja mit dir … ok dann verwechslung… danke dir 1000 mal