Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dropdown mit Bedingung VBA

Dropdown mit Bedingung VBA
06.07.2020 14:37:03
Christian
Hallo
Ich benötige wieder einmal Hilfe
im Moment verwende ich zur Erstellung von DropDown Feldern folgende Formel
=WENN($B9="";"";WENN(C$8="Sa";"";WENN(C$8="So";"";Einträge!$Z$9:$Z$15))) ~f~
Im Makro sieht es so aus
~f~=IF($B9="""","""",IF(C$8=""Sa"","""",IF(C$8=""So"","""",Einträge!$Z$9:$Z$15)))" ~f~
Das funktioniert auch Wunderbar
Nun möchte ich die Formel so erweitern
~f~=WENN($B9="";"";WENN(C$8="Sa";"";WENN(C$8="So";"";WENN(ZÄHLENWENN(Feiertage!$L$2:$L$20;C$7)>0;"";Einträge!$Z$9:$Z$15))))
Gruß Christian

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown mit Bedingung VBA
06.07.2020 14:58:51
ChrisL
Hi Christian
Die Formel mal abgekürzt:
=WENN(ODER($B9="";C$8="Sa";C$8="So";"";ZÄHLENWENN(Feiertage!$L$2:$L$20;C$7)>0);""; Einträge!$Z$9:$Z$15)
M.E. kann das Ergebnis aber nicht einen ganzen Bereich sein: Einträge!$Z$9:$Z$15
"=IF(OR($B9="""",C$8=""Sa"",C$8=""So"","""",COUNTIF(Feiertage!$L$2:$L$20,C$7)>0),"""",Einträge!$Z$9:$Z$15)"
cu
Chris
AW: Dropdown mit Bedingung VBA
06.07.2020 15:08:11
Christian
Hallo
Ich habe es ausprobiert
Leider erhalte ich immer einen Debuggen
Gruß Christian
AW: Dropdown mit Bedingung VBA
06.07.2020 15:14:05
ChrisL
Hi
Kann ich nicht nachvollziehen. Die Zeile funktioniert fehlerfrei.
ActiveCell.Formula = "=IF(OR($B9="""",C$8=""Sa"",C$8=""So"","""",COUNTIF(Feiertage!$L$2:$L$20,C$7)>0),"""",Einträge!$Z$9:$Z$15)"
cu
Chris
Anzeige
AW: Dropdown mit Bedingung VBA
06.07.2020 15:20:46
Christian
Hallo
So sieht das bei mir aus
Range("C9:NP63).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=IF(OR($B9="""",C$8=""Sa"",C$8=""So"","""",COUNTIF(Feiertage!$L$2:$L$20,C$7)>0),"""",Einträge!$Z$9:$Z$15)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Funktioniert leider nicht
Bitte daran denken das ich Anfänger bin
Gruß Christian
Anzeige
AW: Dropdown mit Bedingung VBA
06.07.2020 15:27:29
Christian
Hallo
So funktioniert es jetzt bei mir
Formula1:="=IF(OR($B9="""",C$8=""Sa"",C$8=""So""),"""",IF(COUNTIF(Feiertage!$L$2:$L$20,C$7)>0,"""",Einträge!$Z$9:$Z$15))"
Vielen Dank
Gruß Christian
AW: Dropdown mit Bedingung VBA
06.07.2020 15:31:13
ChrisL
Sorry, der fett markierte Teil ist aus der ursprünglichen Formel hängen geblieben (löschen)
"=IF(OR($B9="""",C$8=""Sa"",C$8=""So"","""",COUNTIF(Feiertage!$L$2:$L$20,C$7)>0),"""",Einträge!$Z$9:$Z$15)"

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige