Combobox mit 2x Case

Forumthread: Combobox mit 2x Case

31.03.2025 17:10:14

Thorsten

Hallo zusammen,
komme mal wieder nicht weiter und hoffe, dass Ihr mir helfen könnt.
Uns zwar habe ich eine Combobox wo je nach Auswahl gewisse Zeilen im Worksheet „Eingabe“ ein- bzw. ausgeblendet sein sollten. Klappt auch ganz gut.
Jetzt soll aber bei einer dieser Auswahlmöglichkeiten (hier „KAUFEN“) noch eine weitere Abfrage stattfinden. Und zwar im Worksheet „Einkaufen“ in der Zelle „E34“ soll je nachdem ob dort 1 oder 2 steht, weiter Zeilen ein- bzw ausgeblendet werden.
Diese doppelte Auswahl klappt bei mir nicht.

Hier mal die 2 Codes mit denen ich es versuche (aber auch kläglich scheiter):



Select Case CB1

  Case "KAUFEN"

         Worksheets("Eingabe").Rows("2:3").EntireRow.Hidden = False

          Worksheets("Eingabe").Rows("13:15").EntireRow.Hidden = False



‘ ab hier die Abfrage, die nicht funktioniert

          Case Range("E34")

            Case 1

             Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = False

            Case 2

             Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = True

            Case Else

….

Als zweite Alternative hab ich auch folgenden Code versucht:



Select Case CB1

  Case "KAUFEN"

         Worksheets("Eingabe").Rows("2:3").EntireRow.Hidden = False

          Worksheets("Eingabe").Rows("13:15").EntireRow.Hidden = False



‘ ab hier die Abfrage, die auch nicht funktioniert

        If Worksheets(“Eingabe”).Range("E34").Value = "1" Then

            Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = False

        Else

           Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = True

        End If

…..

Mal sehen, ob einer von Euch eine Idee hat.

Vielen Dank im voraus
Thorsten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Combobox mit 2x Case

31.03.2025 17:24:25

daniel
AW: Combobox mit 2x Case

31.03.2025 22:07:42

Thorsten

AW: Combobox mit 2x Case

31.03.2025 17:24:25

daniel

HI
bei deinem zweiten Versuch mit dem IF könnte das Problem darin liegen, dass die Zahl 1 nicht das gleiche ist wie die der Text "1"

Select Case funktioniert auch, man muss es nur vollständig schreiben.

auch solltest du mal genau die Tabellenblattnamen prüfen.
in der Beschreibung schreibst du Worksheet „Einkaufen“ in der Zelle „E34“
im Code verwendest du dann aber mit 34 entweder kein Tabellenblatt (dann dass, das zufälligerweise aktiv ist), oder "Eingabe".
vielleicht liegt auch hier ein Fehler.

also hier der Code für das Select:

Select Case CB1

  Case "KAUFEN"

         Worksheets("Eingabe").Rows("2:3").EntireRow.Hidden = False

          Worksheets("Eingabe").Rows("13:15").EntireRow.Hidden = False



‘ ab hier die Abfrage, die nicht funktioniert

          Select Case Worksheets("Einkaufen").Range("E34").Value

                Case 1

                     Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = False

                Case 2

                     Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = True

                Case Else

         End Select

….

beim IF eben schauen, ob das Worksheet stimmt und und prüfen, ob in der Zelle E34
eine Zahl steht, dann ... = 1 Then
oder ein Text, dann: ... = "1" Then

btw, dieser Sachverhalt:

        If Worksheets(“Eingabe”).Range("E34").Value = "1" Then

            Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = False

        Else

           Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = True

        End If

lässt sich in einer Zeile ausrücken:

Worksheets("Eingabe").Rows("29:32").EntireRow.Hidden = Worksheets(“Eingabe”).Range("E34").Value > "1"

Gruß Daniel

AW: Combobox mit 2x Case

31.03.2025 22:07:42

Thorsten

Vielen Dank Daniel, für Deine Antwort.

ich muss es mir aber mal genauer angucken, denn irgendwo hakt es noch.
Mal sehen, ob ich sehe woran es liegt.
Ich gebe dann Bescheid

Danke nochmals
Thorsten

Forumthread: Combobox mit 2x Case

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread