|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Auswahlmöglichkeiten über UserForm |
22.11.2010 11:30:32 |
. |
|
|
|
22.11.2010 12:02:18 |
Severus |
|
|
|
22.11.2010 14:48:57 |
. |
|
|
|
22.11.2010 15:13:39 |
Severus |
|
|
|
23.11.2010 07:22:45 |
. |
|
|
|
23.11.2010 11:03:36 |
Severus |
|
|
|
23.11.2010 11:12:39 |
Severus |
|
|
|
23.11.2010 13:05:07 |
. |
|
|
Von:
. |
Datum:
22.11.2010 11:30:32 |
Views:
1867 |
Rating:
|
Antwort:
|
Thema:
Auswahlmöglichkeiten über UserForm |
Hallo zusammen!
Ich habe eine Userform erstellt mit 8 Checkboxen. Eine Checkbox entspricht jeweils einem Produkt (P1-P8).
Gleichzeitig habe ich eine Datei erstellt in der jedes Tabellenblatt einem Produkt entspricht, also 8 Tabellenblätter.
Je nach dem welches Produkt markiert ist, soll nur das dazugehörige Tabellenblatt angezeigt werden, der Rest soll ausgeblendet sein. Jetzt habe ich das schon alles begonnen, jedoch ist es auf meinem Weg uferlos, da auch alle möglichen Kombinationen ermöglicht werden sollen.
Z.B. P1 und P2 und P5 und P8 oder alle Produkte ausgewählt usw...
Da gibt es ja einen Haufen an Möglichkeiten. Gibt es eine Chance das Alles zu vereinfachen ohne, dass ich wirklich JEDE Kombi einzeln betrachten muss?
Hier nur ein Teil meinies bisherigen Codes, den ich dann abgebrochen habe, weil es so zu langatmig ist:
Sub Tabellenblätter_ausblenden()
If cbxP8.Value = True Then
Sheets("P1").Visible = False
Sheets("P2").Visible = False
Sheets("P3").Visible = False
Sheets("P4").Visible = False
Sheets("P5").Visible = False
Sheets("P6").Visible = False
Sheets("P7").Visible = False
Sheets("P8").Visible = True
End If
If cbxP1.Value And cbxP2.Value = True Then
Sheets("P3").Visible = False
Sheets("P4").Visible = False
Sheets("P5").Visible = False
Sheets("P6").Visible = False
Sheets("P7").Visible = False
Sheets("P8").Visible = False
Sheets("P1").Visible = True
Sheets("P2").Visible = True
End If
End Sub
usw. (So müsste ich eben wirklich alles Kombinationen durchmachen und das würde ein unendlich langer Code werden) Kann mir da jemand bitte weiterhelfen?
DANKE |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Auswahlmöglichkeiten über UserForm |
22.11.2010 11:30:32 |
. |
|
|
|
22.11.2010 12:02:18 |
Severus |
|
|
|
22.11.2010 14:48:57 |
. |
|
|
|
22.11.2010 15:13:39 |
Severus |
|
|
|
23.11.2010 07:22:45 |
. |
|
|
|
23.11.2010 11:03:36 |
Severus |
|
|
|
23.11.2010 11:12:39 |
Severus |
|
|
|
23.11.2010 13:05:07 |
. |
|
|