Office: (Office 2010) Gütigkeitsregel mit mehreren Kriterien aus Liste

Hallo,

in einer Exceltabelle möchte ich, dass in einigen Zellen (Tabellenblatt "Eingabe") nur Werte eingegeben werden dürfen, welche im Tabellenblatt "Bereiche" vorkommen.
Mein Problem ist nun, dass es notwendig ist zum Teil mehrere Werte in eine Zelle im Tabellenblatt "Eingabe" zu schreiben, auch dann müssen all diese im Tabellenblatt "Bereiche" vorkommen, sonst sollte eine Fehlermeldung ausgegeben werden.
Ich kann ich das Tabellenblatt "Bereiche" auch nicht alle möglichen Kombinationen von Werten schreiben denn das wären zu viele.

Mit Gültigkeitsregel habe ich es nicht hinbekommen, mit Formeln auch nicht.

Kann mir da Jemand weiterhelfen?

 

Hallo Lernende,

ich glaube nicht, dass Du Dein Ziel mit der Gültigkeitsprüfung oder mit Formeln erreichen kannst. Zumindest wüsste ich absolut nicht wie. ;O)
Ich denke, das ist ein eindeutige Fall für VBA (ein Makro).
Käme das für Dich in Betracht, oder ist das von vornherein ausgeschlossen?

 

Hallo Achim,
wenn's keinen anderen Weg gibt, muss ich diesen einschlagen. Ich kenne mich da nicht gut aus, habe lediglich mal Makros aufgezeichnet und ein klein wenig händisch in diesen geändert. Aber mehr noch nicht. Aber da muss ich wohl durch bzw. darf dann so was dazulernen.

Grüße
Lernende

 

Hallo Lernende,

keine Ahnung ob Du noch Hilfe benötigst, hast Dich ja nicht weiter gemeldet oder weiter gefragt.
Ich hab Dir trotzdem mal eine ganz einfache Eingabemaske gebastelt:
Den Anhang Gütkigkeitsprüfung.xlsm betrachten

Einfach im ersten Blatt in das Feld klicken, wo Du einen Bereich eingeben möchtest (vorher natürlich die Makros erlauben).
Der Rest sollte selbsterklärend sein.

Wenn Du noch fragen haben solltest, erklär ichs Dir gerne ausführlich.

 

Hallo Achim,
vielen Dank! Ich benötige noch Hilfe, war nur die letzten Arbeitstage mit anderen ToDos beschäftigt, muss gleich los in einen Termin, probiere es aber nachher intensiver aus. Auf den ersten Blick sieht es aber sehr gut aus.
Danke!

 

Hallo Achim,

ich habe das nun in meine - etwas umfangreichere - Excel-Datei eingefügt. Ich bekomme nun die angefügte Fehlermeldung und weiss nicht woran es liegt oder wo mein Fehler liegt. .

Gruß Lernende

 

Hallo Lernende,

aus dem Stehgreif würde ich vermuten, dass bei Dir die Steuerelemente anders benannt sind als bei mir.
Deshalb wird die Textbox "txt1_Auswahl" nicht gefunden.

Im Code habe ich auf die folgenden Steuerelemente direkt referenziert:
Textbox = txt1_Auswahl
Combobox = cbo1_Hinzufügen
CommandButton1 = cmd1_Löschen
CommandButton2 = cmd2_Übernehmen
zusätzlich noch das Tabellenblatt: "Bereiche"

Diese Namen müssen übereinstimmen, also entweder unter "Eigenschaften" anpassen oder im Code abändern.
Umbenennen kannst Du die jeweils so:

Fast vergessen:
Die Textbox kannst Du nicht direkt anklicken, weil ich ein Label als "Klickschutz" darüber gelegt habe. Du kannst sie aber im Eigenschaftenfenster mit dem DropDown ganz oben (oberhalb "Name") auswählen.


Zusätzlich habe ich noch zwei Änderungen, die ich vorher vergessen hatte:
Im Modul "DieseArbeitsmappe" folgendenden Code eingefügt:

Code:

Option Explicit

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

    If UF1_BereichEingeben.Visible = True Then UF1_BereichEingeben.Hide

End Sub

Dadurch wird die Maske geschlossen, sobald man das Blatt wechselt. Dadurch sollten eventuelle Probleme vermieden werden.

Und die Eigenschaft "Style" der ComboBox von "0 - fmStyleDropDownCombo" auf "2 - fmStyleDropDownList" ändern. Dadurch können wirklich nur angezeigte Einträge ausgewählt werden. Freie Texteingabe wird damit unterbunden.



Somit findet sich in insgesamt 4 Modulen Code:
"DieseArbeitsmappe"
"Tabelle1 (Eingabefelder)"
"UF1_BereichEingeben"
"BereichEingeben"


Zur besseren Übersicht hier nochmal die geänderte Datei:
Den Anhang Kopie von Gütkigkeitsprüfung.xlsm betrachten


Und wenn Du Kommentare zum Code benötigst, oder etwas nicht verstehst, dann frag ruhig. ;O)

 

Hi,
bin jetzt wieder aus dem Urlaub zurück und werde es demnächst probieren umzusetzen. Melde mich dann wieder.
Aber schonmal Danke imn Voraus!
Gruß
Lernende