Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

if then else

if then else
18.01.2013 18:32:42
emma
hy ihr lieben,
ich stehe wieder mal vor einem vba problem...
ich habe mehrere comboboxen und möchte das man aufs nächste userform komme auch wenn nicht alle boxen gefüllt sind...
hab es jetzt mit if then else gemacht...
aber was kann ich bei else programmieren um keine fehlermeldung zu bekommen...
ich sag schon einmal danke!!!
emma

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if then else
18.01.2013 18:36:23
Hajo_Zi
Hallo Emma,
keine Ahnung, das liegt wohl daran das ich den Code nicht sehe.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.

AW: if then else
18.01.2013 19:30:06
emma
die ganze datei war leider zu groß um sie her hoch zuladen.
ich hoffe, dass es so reicht..
wie gesagt, bei else hab ich jetzt immernoch msgbox stehen, ich möchte aber das auch wenn die box nicht gefüllt ist, ich trotzdem ins nächste userform komme..
If Box100 = "hole" Then
preisA = 29.99
art1 = 301
ElseIf Box100 = "orange" Then
preisA = 15.99
art1 = 302
ElseIf Box100 = "stone" Then
preisA = 25.99
art1 = 303
ElseIf Box100 = "black" Then
preisA = 27.99
art1 = 304
ElseIf Box100 = "red" Then
preisA = 19.99
art1 = 305
ElseIf Box100 = "chino" Then
preisA = 12.99
art1 = 306
ElseIf Box100 = "lightblue" Then
preisA = 29.99
art1 = 307
ElseIf Box100 = "grey" Then
preisA = 25.99
art1 = 308
Else
MsgBox ("Wählen Sie eine hose aus!")
End
UserForm.Show
End If
If box200 = "hole" Then
preisB = 29.99
art2 = 301
ElseIf box200 = "orange" Then
preisB = 15.99
art2 = 302
ElseIf box200 = "stone" Then
preisB = 25.99
art2 = 303
ElseIf box200 = "black" Then
preisB = 27.99
art2 = 304
ElseIf box200 = "red" Then
preisB = 19.99
art2 = 305
ElseIf box200 = "chino" Then
preisB = 12.99
art2 = 306
ElseIf box200 = "lightblue" Then
preisB = 29.99
art2 = 307
ElseIf box200 = "grey" Then
preisB = 25.99
art2 = 308
MsgBox ("Wählen Sie eine hose aus!")
End
UserForm.Show
End If
If box300 = "hole" Then
preisC = 29.99
art3 = 301
ElseIf box300 = "orange" Then
preisC = 15.99
art3 = 302
ElseIf box300 = "stone" Then
preisC = 25.99
art3 = 303
ElseIf box300 = "black" Then
preisC = 27.99
art3 = 304
ElseIf box300 = "red" Then
preisC = 19.99
art3 = 305
ElseIf box300 = "chino" Then
preisC = 12.99
art3 = 306
ElseIf box300 = "lightblue" Then
preisC = 29.99
art3 = 307
ElseIf box300 = "grey" Then
preisC = 25.99
art3 = 308
Else
MsgBox ("Wählen Sie eine hose aus!")
End
UserForm.Show
End If
If box400 = "hole" Then
preisD = 29.99
art4 = 301
ElseIf box400 = "orange" Then
preisD = 15.99
art4 = 302
ElseIf box400 = "stone" Then
preisD = 25.99
art4 = 303
ElseIf box400 = "black" Then
preisD = 27.99
art4 = 304
ElseIf box400 = "red" Then
preisD = 19.99
art4 = 305
ElseIf box400 = "chino" Then
preisD = 12.99
art4 = 306
ElseIf box400 = "lightblue" Then
preisD = 29.99
art4 = 307
ElseIf box400 = "grey" Then
preisD = 25.99
art4 = 308
Else
MsgBox ("Wählen Sie eine hose aus!")
End
UserForm.Show
End If
If box500 = "hole" Then
preisE = 29.99
art5 = 301
ElseIf box500 = "orange" Then
preisE = 15.99
art5 = 302
ElseIf box500 = "stone" Then
preisE = 25.99
art5 = 303
ElseIf box500 = "black" Then
preisE = 27.99
art5 = 304
ElseIf box500 = "red" Then
preisE = 19.99
art5 = 305
ElseIf box500 = "chino" Then
preisE = 12.99
art5 = 306
ElseIf box500 = "lightblue" Then
preisE = 29.99
art5 = 307
ElseIf box500 = "grey" Then
preisE = 25.99
art5 = 308
Else
MsgBox ("Wählen Sie eine hose aus!")
End
UserForm.Show
End If
preis1 = preisA * textbox20
preis2 = preisB * textbox40
preis3 = preisC * textbox60
preis4 = preisD * textbox80
preis5 = preisE * textbox100

Anzeige
AW: if then else
18.01.2013 19:31:48
Hajo_Zi
schreibe für
MsgBox ("Wählen Sie eine hose aus!")
Userform100.show

AW: if then else
18.01.2013 19:45:23
emma
ich habe deinen rat befolgt, aber leider bekomme ich immernoch eine fehlermeldung...
If Box100 = "hole" Then
preisA = 29.99
art1 = 301
ElseIf Box100 = "orange" Then
preisA = 15.99
art1 = 302
ElseIf Box100 = "stone" Then
preisA = 25.99
art1 = 303
ElseIf Box100 = "black" Then
preisA = 27.99
art1 = 304
ElseIf Box100 = "red" Then
preisA = 19.99
art1 = 305
ElseIf Box100 = "chino" Then
preisA = 12.99
art1 = 306
ElseIf Box100 = "lightblue" Then
preisA = 29.99
art1 = 307
ElseIf Box100 = "grey" Then
preisA = 25.99
art1 = 308
Else
Userform100.Show
End If

Anzeige
AW: if then else
18.01.2013 19:46:42
Hajo_Zi
da kann ich nichts anderes schreiben als in meinem ersten Beitrag, das brauche ich nicht zu wiederholen.
Gruß Hajo

AW: if then else
18.01.2013 19:53:26
emma
hajo, besteht die Möglichkeit, dass ich dir die Datei per Mail schicke und du guckst mal drüber..
Ich hab einfach keine Idee mehr dazu

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige