Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

If Then... And... ??

Betrifft: If Then... And... ?? von: Andy
Geschrieben am: 27.08.2004 13:43:16

Hallo!

Ich habe eine If Then Else Anweisung. Wenn die bedingun erfüllt ist sollen 2 codezeilen ausgeführt werden. Code siehe unten. Wenn ich "And" zwischen die Anweisungen schreibe erscheint eine Fehlermeldung.
Lasse ich das "And" weg, wird die prozedur MsgBox auf jeden Fall ausgeführt.
Wie sollte ich den Code ändern?

If Sheets("Grunddaten").Range("C4").Value <> "" And Sheets("Grunddaten").Range("C6").Value <> "" And Sheets("Grunddaten").Range("C11").Value <> "" And _
Sheets("Grunddaten").Range("C12").Value <> "" And Sheets("Grunddaten").Range("C13").Value <> "" And Sheets("Grunddaten").Range("C14").Value <> "" _
Then Sheets("Prozesse").Select And MsgBox "Wählen Sie.."

DAnke!
Andy

  


Betrifft: AW: If Then... And... ?? von: WernerB.
Geschrieben am: 27.08.2004 14:00:23

Hallo Andy,

meinst Du so:
Sub Andy()
    If Sheets("Grunddaten").Range("C4").Value <> "" And _
        Sheets("Grunddaten").Range("C6").Value <> "" And _
        Sheets("Grunddaten").Range("C11").Value <> "" And _
        Sheets("Grunddaten").Range("C12").Value <> "" And _
        Sheets("Grunddaten").Range("C13").Value <> "" And _
        Sheets("Grunddaten").Range("C14").Value <> "" Then
      Sheets("Prozesse").Select
      MsgBox "Wählen Sie.."
    End If
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


  


Betrifft: AW: If Then... And... ?? von: Ándy
Geschrieben am: 27.08.2004 14:19:35

Hallo Werner!
Ich habe es so versucht. es erscheint leider eine Meldung "End If ihne If-Block"
Liegt es evtl daran, dass dieses IF Abfrage mit dem Else-Befehl darüber zusammenhängt?

...Else _
If Sheets("Grunddaten").Range("C4").Value <> "" And _
Sheets("Grunddaten").Range("C6").Value <> "" And _
Sheets("Grunddaten").Range("C11").Value <> "" And _
Sheets("Grunddaten").Range("C12").Value <> "" And _
Sheets("Grunddaten").Range("C13").Value <> "" And _
Sheets("Grunddaten").Range("C14").Value <> "" Then _
Sheets("Prozesse").Select
MsgBox "Wählen Sie.."
End If

Gruß
Andy


  


Betrifft: AW: If Then... And... ?? von: P@ulchen
Geschrieben am: 27.08.2004 14:23:01

Schau Dir mal den Code von Werner und Deinen an...dann siehst Du, dass Werner hinter "Then" keinen '_' mehr stehen hat...



Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: Vielen Dank von: Andy
Geschrieben am: 27.08.2004 14:30:37

Ich habe noch mal nachgeschaut. du hast recht. außerdem hatte ich auch nach dem "Else" ein " _"
Es funktioniert jetzt super.

Danke euch allen
Andy


  


Betrifft: AW: If Then... And... ?? von: WernerB.
Geschrieben am: 27.08.2004 14:30:40

Hallo Andy,

dann wäre eine richtige Syntax wohl diese:
Sub Andy()
    If Range("A1").Value = "" Then
      'Dein Code
    Else
      If Sheets("Grunddaten").Range("C4").Value <> "" And _
          Sheets("Grunddaten").Range("C6").Value <> "" And _
          Sheets("Grunddaten").Range("C11").Value <> "" And _
          Sheets("Grunddaten").Range("C12").Value <> "" And _
          Sheets("Grunddaten").Range("C13").Value <> "" And _
          Sheets("Grunddaten").Range("C14").Value <> "" Then
        Sheets("Prozesse").Select
        MsgBox "Wählen Sie.."
      End If
    End If
End Sub

Gruß
WernerB.


  


Betrifft: AW: If Then... And... ?? von: Basti
Geschrieben am: 27.08.2004 14:03:07

If Sheets("Grunddaten").Range("C4").Value <> "" then
if Sheets("Grunddaten").Range("C6").Value <> "" then
if Sheets("Grunddaten").Range("C11").Value <> "" then
if Sheets("Grunddaten").Range("C12").Value <> "" then
if Sheets("Grunddaten").Range("C13").Value <> "" then
if Sheets("Grunddaten").Range("C14").Value <> "" then
Then Sheets("Prozesse").Select And MsgBox "Wählen Sie.."
end if
end if
end if
end if
end if
end if

mach das mal lieber so:
-Überischtlicher
-Erkennst die Fehler leichter
-du weisst bei welcher bedingung der fehler auftritt


  


Betrifft: AW: If Then... And... ?? von: P@ulchen
Geschrieben am: 27.08.2004 14:07:37

Hi Andy,

hier mein Vorschlag:



With Sheets("Grunddaten")
    If [C4].Value <> "" And [C6].Value <> "" And [C11].Value <> "" And _
        [C12].Value <> "" And [C13].Value <> "" And [C14].Value <> "" Then
        Sheets("Prozesse").Select
        MsgBox "Wählen Sie.."
    End If
End With

     Code eingefügt mit Syntaxhighlighter 2.5




Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: Problem gelöst von: Andy
Geschrieben am: 27.08.2004 14:37:31

DAnke nochmals an due Helfer.
Das Problem ist gelöst. siehe oben Antwort an P@ulchen: "vielen Dank"

Gruß
Andy