Zwei "If-Abfragen" hintereinander
21.04.2006 06:34:56
Ralf-Eckhard
Der bisherige (funktionierende) Code der ersten Abfrage sieht so aus:
----------
Private Sub Workbook_Open()
'{107} = Plus-Taste im Ziffernblock
'{109} = Minus-Taste im Ziffernblock
Application.OnKey "{107}", "Plus"
Application.OnKey "{109}", "Minus"
Application.OnKey "{F1}", "goto_WG1"
Application.OnKey "{F2}", "goto_WG2"
Application.OnKey "{F3}", "goto_WG3"
Application.OnKey "{F4}", "goto_WG4"
Application.OnKey "{F5}", "goto_WG5"
Application.OnKey "{F7}", "F7_blank"
Application.OnKey "{F8}", "goto_Übersicht"
Application.OnKey "{F9}", "goto_Übersicht_s"
Sheets("Artikel nicht über Kasse").Select
ActiveSheet.Unprotect
Range("A1:D1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("I29").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Gästeübersicht").Select
Range("M30").Select
If Worksheets("Artikel nicht über Kasse").Cells(28, 1).Value = "" Then Exit Sub
Sheets("Artikel nicht über Kasse").Select
Select Case MsgBox("Im Blatt 'Artikel nicht über Kasse' befinden sich noch Einträge." & Chr(10) & " Sollen diese Einträge jetzt gelöscht werden?", vbYesNo)
Case vbYes
Call Tagesabschluss_start
End Select
Sheets("Gästeübersicht").Select
Range("M30").Select
End Sub
----------
Nun dachte ich mir dass ich hinter "End Select" einfach folgenden Code einfügen kann:
----------
Sheets("Preise").Select
ActiveSheet.Unprotect
Range("AD4").Select
If Worksheets("Preise").Cells(1, 32).Value = "" Then Exit Sub
Sheets("Preise").Select
Select Case MsgBox("Es ist noch eine Rabattaktion aktiv." & Chr(10) & " Soll diese jetzt gelöscht werden?", vbYesNo)
Case vbYes
Call clear_rabatt
End Select
----------
Leider funktioniert das wegen dann erscheinender obiger Fehlermeldung nicht. Was ist falsch?
Wichtig ist dabei noch, dass die zweite Abfrage natürlich unabhängig davon durchgeführt werden soll, ob die erste Abfrage mit "Ja" oder "Nein" beantwortet wird. Kann mir jemand helfen?
Danke im voraus,
Ralf-Eckhard