Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Then... And... ??

If Then... And... ?
27.08.2004 13:43:16
Andy
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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Then... And... ?
WernerB.
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 !
Anzeige
AW: If Then... And... ?
27.08.2004 14:19:35
Ándy
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
Anzeige
AW: If Then... And... ?
P@ulchen
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 !
Vielen Dank
27.08.2004 14:30:37
Andy
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
AW: If Then... And... ?
WernerB.
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.
Anzeige
AW: If Then... And... ?
27.08.2004 14:03:07
Basti
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
Anzeige
AW: If Then... And... ?
P@ulchen
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


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
Problem gelöst
27.08.2004 14:37:31
Andy
DAnke nochmals an due Helfer.
Das Problem ist gelöst. siehe oben Antwort an P@ulchen: "vielen Dank"
Gruß
Andy

300 Forumthreads zu ähnlichen Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Anzeige
If then else für Anfänger
Gunter

Hallo Zusammen,
wenn ich eine If then else Abfrage habe z.B:
If ComboBox2.Value = "Trailer" And TextBox10.Value = "" Then _
Label36.Visible = True
TextBox10.BackColor = &HFF&
If ComboBox2.Value = "Spot" And TextBox11.Value = "" Then _
Label37.Visible = True
T...
30.11.2008 12:49:00
Thread-ID: 1029010
9 Beiträge
IF/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 Beiträge
If und else in Label.caption
Leon

Hi Zusammen
Was mache da falsch, daß Range I11 immer angezeigt wird obwohl nichts drin steht. Falls Range I11 grösser als 0 dann I11 zeigen ansonsten H11.
Private Sub userform_initialize() If Sheets("Wesentlichkeit").Range("I11") >= 0 Then Label20.Caption = Sheets("Wesentlichkeit")...
31.01.2009 22:28:06
Thread-ID: 1045773
3 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
3
5
5
8
4
2
3
1
3
8
1
3
4
4
9
3
5
7
12
2
4
8
9