HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Select Case mit zwei Bedingungen

Forumthread: Select Case mit zwei Bedingungen
17 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Select Case mit zwei Bedingungen

26.11.2024 12:10:44

Chris

Hallo Forum,

ich habe in einer Userform einen ToggleButton. Ist dieser aktiv (Value = True) und in der dazugehörigen Textbox steht nichts drin, soll eine Messsage-Box erscheinen.
Bei dem unten stehendem Makro erscheint die Msg-Box auch dann, wenn die Textbox gefüllt ist. Was muss geändert werden?

Vielen Dank.
Chris



With Userform1

Select Case .ToggleButton1.Value = True

Case .TextBox1.Value = "": MsgBox "Bitte ein einmaliges Datum angeben!", vbCritical, "Hinweis"

Case Else

Sheets("Tabelle1").Cells(ActiveCell.Row, 10).Value = .TextBox1.Value

Call KDnr

End Select

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Select Case mit zwei Bedingungen

26.11.2024 12:25:23

MCO
AW: Select Case mit zwei Bedingungen

26.11.2024 12:26:17

Onur
AW: Select Case mit zwei Bedingungen

26.11.2024 12:30:50

Oberschlumpf
AW: Select Case mit zwei Bedingungen

26.11.2024 12:34:15

Onur
AW: Select Case mit zwei Bedingungen

26.11.2024 12:39:52

Oberschlumpf
AW: Select Case mit zwei Bedingungen

26.11.2024 12:44:55

Onur
AW: Select Case mit zwei Bedingungen

26.11.2024 12:58:39

Oberschlumpf
AW: Select Case mit zwei Bedingungen

26.11.2024 12:59:44

Onur
AW: Select Case mit zwei Bedingungen

26.11.2024 12:27:33

Oberschlumpf
AW: Select Case mit zwei Bedingungen

26.11.2024 13:38:00

daniel
und du darfst auch gern mal antworten owT

26.11.2024 14:27:03

Oberschlumpf
AW: und du darfst auch gern mal antworten owT

26.11.2024 15:52:21

Chris
Haken bei "Frage noch offen" nur wenn Frage noch offen ist.

26.11.2024 17:53:03

Yal
AW: Select Case mit zwei Bedingungen

26.11.2024 12:31:28

Onur
AW: Select Case mit zwei Bedingungen

26.11.2024 12:35:47

Onur
AW: Select Case mit zwei Bedingungen

26.11.2024 12:36:51

Oberschlumpf
AW: Select Case mit zwei Bedingungen

26.11.2024 14:07:53

Der Steuerfuzzi

AW: Select Case mit zwei Bedingungen

26.11.2024 12:25:23

MCO

Moin!

So sollte es klappen:

With Userform1

Select Case .ToggleButton1.value ' welcher Fall wird bewertet?

Case True 'Bewertung 1

    If .TextBox1.value = "" Then MsgBox "Bitte ein einmaliges Datum angeben!", vbCritical, "Hinweis"

Case Else 'Bewertung 2

    Sheets("Tabelle1").Cells(ActiveCell.Row, 10).value = .TextBox1.value

    Call KDnr

End Select

Gruß, MCO

AW: Select Case mit zwei Bedingungen

26.11.2024 12:26:17

Onur

Lies mal zuerst die Gebrauchsanweisung:

https://www.akademie.de/de/wissen/vba-select-case-bessere-if-funktion
https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/select-case-statement
https://www.excel-vba-lernen.de/17-select-case

AW: Select Case mit zwei Bedingungen

26.11.2024 12:30:50

Oberschlumpf

Hi,

und mich würd interessieren, welche Gründe dich dazu bewogen haben, viele Lerntexte = viele Fehl-Interpretationsmöglichkeiten bei Anfängern zu zeigen, ohne, dass du beschreibst, wieso erst mal "Anleitungen" gelesen werden sollen.

Danke.

Ciao
Thorsten

AW: Select Case mit zwei Bedingungen

26.11.2024 12:34:15

Onur

Weil ich es für unentschuldbar finde, dass Jemand irgend welche Funktion oder Befehle benutzt, OHNE sich vorher drüber zu informieren.
WAS machst du ? Du kaust ihm die Lösung einfach vor. Lerneffekt ? Null.

AW: Select Case mit zwei Bedingungen

26.11.2024 12:39:52

Oberschlumpf

lol
na, wenn DU meinst^^...*koppschüttel*

ob du's glaubst oder nich, aber es gibt auch die lernmöglichkeit, anhand einer...äähh...hihi..."vorgekauten" Lösung zu lernen, zu verstehen, demnächst selbstständig anzuwenden - aber ok, es scheint so, als ob für dich alle gleich sind...

AW: Select Case mit zwei Bedingungen

26.11.2024 12:44:55

Onur

Deswegen hast du ja auch so viele Kommentare im Code, damit er von dir was lernen kann. Jetzt verstehe ich es erst. Sorry.
Kopfschüttel - BlinkBlink- LOL- OMG - Smiley . Äähh Hihi . Hab ich was vergessen ?

AW: Select Case mit zwei Bedingungen

26.11.2024 12:58:39

Oberschlumpf

ja, hast was vergessen...aber..pssst..ich verrats nich weiter

AW: Select Case mit zwei Bedingungen

26.11.2024 12:59:44

Onur

Stimmt: WTF.
:)

AW: Select Case mit zwei Bedingungen

26.11.2024 12:27:33

Oberschlumpf

Hi Chris,

vielleicht auch so (aber ungetestet):



With Userform1

    Select Case True

        Case .ToggleButton1.Value, .TextBox1.Value = ""

            MsgBox "Bitte ein einmaliges Datum angeben!", vbCritical, "Hinweis"

        Case Else

            Sheets("Tabelle1").Cells(ActiveCell.Row, 10).Value = .TextBox1.Value

            Call KDnr

    End Select

End With

Hilfts?

Ciao
Thorsten

AW: Select Case mit zwei Bedingungen

26.11.2024 13:38:00

daniel

Hi
manchmal gehts dann doch einfacher mit IF:
wie genau, hängt aber davon ab, was passieren soll, wenn der Haken nicht gesetzt ist und die Textbox einen Wert enthält

a) Text trotzdem in die Zelle schreiben:

IF ToggleButton1.Value = True AND Textbox1.Text = "" Then 

    Msgbox "dein Hinweistext"

Else

    Sheets("Tabelle1").Cells(ActiveCell.Row, 10).Value = .TextBox1.Value

End if

b) Text nur schreiben, wenn Haken gesetzt ist

if ToggleButton1.Value = True Then

    if Texgtbox1.Value = "" Then

       Msgbox "Dein Hinweistext"

    else

        Sheets("Tabelle1").Cells(ActiveCell.Row, 10).Value = .TextBox1.Value

    end if

end if

Gruß Daniel

und du darfst auch gern mal antworten owT

26.11.2024 14:27:03

Oberschlumpf

AW: und du darfst auch gern mal antworten owT

26.11.2024 15:52:21

Chris

Hallo zusammen,

danke an alle für die Vorschläge. Daniels und die von MCO funktionieren!
In Sachen Anleitungen im Netz: Die meisten Anleitungen sind für mich wenig bis gar nicht hilfreich, da ich sie meist nicht/kaum verstehe.
Das Forum ist für mich viel besser geeignet, da man (kommentierte) Lösungen(vorschläge) enthält, die ich im Nachgang selbst anpassen kann.

Nochmals Danke

Chris

Haken bei "Frage noch offen" nur wenn Frage noch offen ist.

26.11.2024 17:53:03

Yal

Wer lesen kann, kommt besser durchs Leben.

VG
Yal

AW: Select Case mit zwei Bedingungen

26.11.2024 12:31:28

Onur

Bei

Select Case

muss die Variable genannt werden - z. B.

Select Case Var

Dann kommen die Werte für diese Variable und die Anweisungen für diese Fälle

Case 5

  Mach Dies

Case 6

   Mach Das

End Select

AW: Select Case mit zwei Bedingungen

26.11.2024 12:35:47

Onur

WENN die Lösung überhaupt mal funktionieren würde .....

AW: Select Case mit zwei Bedingungen

26.11.2024 12:36:51

Oberschlumpf

guckst du!
https://www.herber.de/bbs/user/173824.xlsm

AW: Select Case mit zwei Bedingungen

26.11.2024 14:07:53

Der Steuerfuzzi

Hi Onur,

vielleicht solltest Du mal die Anleitungen studieren, z. B. diese hier:
https://www.automateexcel.com/de/vba/select-case-anweisung/

SCNR

Gruß
Michael

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!