#1 19. Mai 2006 Moin, moin hänge gerade an einem IF befehl ^^ Also wie die Topic es schon sagt hab ich halt ne TextBox und will per if befehl abfragen ob da eigentlich was drinne steht ... quasi If textbox.(steht was drinne) = True(oder was auch immer) Then blabla Ich denke die Sache ist klar Danke schonmal + Multi-Zitat Zitieren
#4 19. Mai 2006 mach doch einfach nen Leerstring z.B IF text1.text = "" then Befehl else Befehl end if so sagste eben wenn sich in der Textbox nen Leerstring befindet dann ........ und falls sich kein leerstring drinne befindet..also eben ne Zahl oder was auch immer dann ..... + Multi-Zitat Zitieren
#5 19. Mai 2006 Hört sich gut an, genau wie ich das wollte, nur andersrums Danke euch beiden ! 10er sollt ihr auch haben + Multi-Zitat Zitieren
#6 19. Mai 2006 naja kannst ja einfach 2 Abfragen machen IF text1.text = "" then variablenname = true else variablenname = false end if If variablenname = true then ...befehl If variablenname = false then ...befehl End IF so gannse eben entscheiden wie rum du es haben willst + Multi-Zitat Zitieren
#7 19. Mai 2006 So jetzt hab ich aber das Problem trozdem muss jetzt was bestimtes da stehen haben ^^ Also: If combobox.text = not "1" or "2" or "3" or "4" then raglich ob es den Befehl "not" überhaupt gibt und auch ob ich 4 abfragen mit "or" verbinden kann weiß ich nicht Ist halt ne Combobox in der entweder 1 2 3 oder 4 stehen muss von anfang an steht aber nen Text drin ... Was mach ich da falsch ? ^^ //edit: Hatte deinen letzten Post nicht gelesen, damit müsste es auch gehen halt 4 mal if mit 1 2 3 4 + Multi-Zitat Zitieren
#8 19. Mai 2006 Code: If IsNumeric(combo1.texT) Then MsgBox("Da steht ne Zahl drin") end if + Multi-Zitat Zitieren
#9 19. Mai 2006 Jo wäre ne gute Lösung, Problem ist es muss wirklich entweder 1 2 3 oder 4 sein ... 5 geht nicht + Multi-Zitat Zitieren
#10 19. Mai 2006 Code: If (IsNumeric(combo1.texT)) AND (val(combo1.text)>=1)) AND (val(combo1.text)<=4) Then MsgBox("Da steht ne Zahl zwischen 1 und 4 drin") end if + Multi-Zitat Zitieren
#11 19. Mai 2006 kannst auch mit Select Case machen. Code: Private Sub Command1_Click() Select Case Combo1.Text Case "1": MsgBox "Test", vbCritical, "test" Case "2": MsgBox "Test", vbCritical, "test" Case "3": MsgBox "Test", vbCritical, "test" Case "4": MsgBox "Test", vbCritical, "test" Case Else MsgBox "Bitte 1,2,3 oder 4 wählen.", vbCritical, "Fehler" End Select End Sub Private Sub Form_Load() Combo1.AddItem 1 Combo1.AddItem 2 Combo1.AddItem 3 Combo1.AddItem 4 End Sub + Multi-Zitat Zitieren
#12 19. Mai 2006 Code: If Text1.Text <> "" Then 'Wenn ein Text in Text1 steht dann mache_das else 'wenn Text1 leer ist dann mache_dies End If ---------------------------------------------------------------------- Select Case Combo1.Text Case "1" 'wenn 1 in der Combo steht dann MsgBox "1 ausgewhlt" Case "2" 'wenn 2 in der COmbo steht dann MsgBox "2 ausgewhlt" [..] Case Else 'wenn keine Bedingung zutraf dann MsgBox "Bitte einen Gültigen Wert whlen" End Select mfg + Multi-Zitat Zitieren
#14 19. Mai 2006 Dachte ich könnte nichts mehr schreiben wegen diesem Limit ! Also hab die Sache jetzt mit: If (IsNumeric(combo1.texT)) AND (val(combo1.text)>=1)) AND (val(combo1.text)<=4) Then MsgBox("Da steht ne Zahl zwischen 1 und 4 drin") end if gelöst, nur ohne die fette Klammer. Bei mir steht in den msgboxes immer Projekt 1 als Titel weil ich diese 2. Option nicht raffe: MsgBox "Bitte 1,2,3 oder 4 wählen.", vbCritical, "Fehler" kann da jemand nen ganz kurzes Statement zu geben ? Oder schreibe ich da einfach immer vbcritical hin ? Danke für die Hilfe der Aderen 10er sind raus ! + Multi-Zitat Zitieren
#15 19. Mai 2006 das 2te argument bei msgbox ist das wie sie aussehen soll. vbCritical z.b. machtn Ausrufenzeichen rein, vbInformation macht nen Fragezeichen. du kannst das aber auch leer lassen und einfach MsgBox "Muha",,"meintitel" schreiben + Multi-Zitat Zitieren
#16 19. Mai 2006 Ich hoffe ich nerve nicht also ich hab die KLammern weggemacht und dann gehts aufmal MsgBox "Die Frage wurde erfolgreich gelöscht", vbCritical, "mein title" anstatt MsgBox ("Die Frage wurde erfolgreich gelöscht", vbCritical, "mein title") + Multi-Zitat Zitieren