Office: mehrere Befehle nach "Then"

Helfe beim Thema mehrere Befehle nach "Then" in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Sorry, dass ich euch mit meinen Anfänger-Fragen nerven muss... also wie realisiert man es, mehrere Anweisungen zwischen z.B. Then und Else zu... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von ähM_Key, 21. Dezember 2003.

Seite 1 von 2

äHM_KEY

ähM_Key

mehrere Befehle nach "Then"

Sorry, dass ich euch mit meinen Anfänger-Fragen nerven muss...

also wie realisiert man es, mehrere Anweisungen zwischen z.B. Then und Else zu bekommen?
In Delphi geht es über "begin" und "end" ...und hier?

MK

:)

ähM_Key, 21. Dezember 2003

#1
JMC

jmc

Hi

wie wär's, wenn du mal die OL-Hilfe bemühen würdest ? Stichwort
If ... Then ... Else

hier aus der (bei mir eben englischen) Help:

If...Then...Else Statement

Conditionally executes a group of statements, depending on the value of an expression.

Syntax

If condition Then [statements] [Else elsestatements]

Or, you can use the block form syntax:

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

The If...Then...Else statement syntax has these parts:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jmc, 23. Dezember 2003

#2
äHM_KEY

ähM_Key

Sorry, aber in meiner billigen deutschen Version kommt da immer nur: "Ich verstehe ihre Eingabe nicht...."

Ja und wenn ich's so schreibe:

Code:

If Bedingung Then
Anweisung1
Anweisung2
Else Anweisung3
Anweisung4
End if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kommt:"Compilierungsfehler! Else ohne If!

???

MK

ähM_Key, 23. Dezember 2003

#3
JMC

jmc

mehrere Befehle nach "Then"

Hi

Ich verstehe ihre Eingabe nicht...."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

da würde ich mal Access nochmals installieren, bzw. nach-installieren. Du hast vermutlich ein paar Optionen weggelassen was VBA angeht ...

ääähm .... um dir aber gleich auf die Sprünge zu helfen:

If Bedingung1 Then
Anweisung1
ElseIf Bedingung2 Then
Anweisung2
Anweisung3
Else
Anweisung4
End If

Wenn man mein Copy/Paste genau anschaut, dann ist's eigentlich schon dort so ...

jmc, 23. Dezember 2003

#4
äHM_KEY

ähM_Key

Also müsste ich bei Bedingung1 und 2 das selbe hinschreiben, oder?

MK

PS: ich habe bestimmt alles ordentlich installiert...

ähM_Key, 23. Dezember 2003

#5
TOBILOH

Tobiloh

Hallo MK

Was möchtest Du eigentlich?

Wenn Bed.1 zutrifft sollen die Anweisungen 1+2 ausgeführt erden und wenn Bed. 2 zutrifft sollen die Anweisungen 3+4 ausgeführt werden.

Sehe ich das richtig?

Gruß
Tobi

Tobiloh, 23. Dezember 2003

#6
JMC

jmc

Hi ähm

Also müsste ich bei Bedingung1 und 2 das selbe hinschreiben, oder?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe ich es so unverständlich geschrieben ???
ich weiss ja nicht, was du eigentlich machen willst, schreib das doch mal hin, und zwar mit konkreten Befehlen ...

jmc, 23. Dezember 2003

#7
äHM_KEY

ähM_Key

mehrere Befehle nach "Then"

Doch du hast verständlich geschrieben, un daraus geht hervor, dass Bedingung 1=Bedingung2 damit ich mehrere Anweisungen nach einer Bedinung machen kann!
Code siehe oben...

...aber zu Weihnachten will ich mich da jetzt eigentlich nicht über so was streiten *Smilie

Grüße; ähM_Key

ähM_Key, 23. Dezember 2003

#8
JMC

jmc

Hi

also das versteh ICH jetzt nicht:

...daraus geht hervor, dass Bedingung 1=Bedingung2 damit ich mehrere Anweisungen nach einer Bedinung machen kann
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also ich beschreibe mal verbal:
Wenn eine Variable den Inhalt 1 hat, dann
mache das, was Anweisung1 sagt (z.b. strText = "Bedingung1 trifft zu")
Andernfalls, wenn die Variable den Inhalt 2 hat, dann
führe Anweisung2 und Anweisung3 aus.
In den übrigen Fällen
führe Anweisung 4 aus.

so und daraus ergibt sich dann der Code:
Code:

If intX = 1 Then
strText = "Bedingung 1 trifft zu"
ElseIf intX = 2 Then
strText = "Bedingung 2 trifft zu"
intX = intX * 2
Else
strText = "keine von beiden"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist es jetzt klar ???

jmc, 23. Dezember 2003

#9
äHM_KEY

ähM_Key

Ja klar klar!

Aber ich möchte:

Wenn Bedingung 1 ist wahr dann mache Anweisung 1 und Anweisung 2
ansonsten mache Anweisung 3!

Und da müsste der Code so:
Code:

If A=1 then B=1
elseif A=1 then C=1
D=1
else B=2
C=2
D=2
end if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aussehen, oder?

MK

ähM_Key, 24. Dezember 2003

#10
OBERSCHLUMPF

oberschlumpf

Original geschrieben von ähM_Key
Ja klar klar!

Aber ich möchte:

Wenn Bedingung 1 ist wahr dann mache Anweisung 1 und Anweisung 2
ansonsten mache Anweisung 3!

Und da müsste der Code so:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If A=1 then B=1
elseif A=1 then C=1
D=1
else B=2
C=2
D=2
end if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aussehen, oder?

MK

grins...

Hallo Ihr zwei Streithammel...tztz *biggrin.gif*

Ich versuch auch mal mein Glück *happy

Also...Du möchtest

Anweisung1 UND Anweisung2 ausführen,
wenn Bedingung1 wahr ist.

wenn Bedingung1 NICHT wahr ist,
dann soll Anweisung3 ausgeführt werden?

Wenn ich Dich so also richtig verstanden habe, dann Versuch mal dies hier:

Code:

Sub Makro()
If Bedingung1 = True then 'wenn Bedingung1 Wahr, dann
Ausführung1 'Ausführung1 und
Ausführung2 'Ausführung2 ausführen
Else 'wenn Bedingung1 NICHT Wahr (also falsch ;) ), dann
Ausführung3 'Ausführung3 ausführen
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe, ich konnte Dir helfen und hiermit einen konstruktiven Beitrag leisten *Smilie (mit Seitenblick auf Jean*wink.gif* )

Wenn aber AUCH ich auf dem Holzweg bin, dann versteck ich mich am besten ganz schnell...hihi *biggrin.gif*

Ciao
Thorsten

oberschlumpf, 24. Dezember 2003

#11
äHM_KEY

ähM_Key

[qoute]Ja und wenn ich's so schreibe:

Code:
If Bedingung Then
Anweisung1
Anweisung2
Else Anweisung3
Anweisung4
End if

kommt:"Compilierungsfehler! Else ohne If!
[/qoute]

...so hab ich's oben schon geschrieben...

MK

ähM_Key, 24. Dezember 2003

#12
NOUBA

Nouba

mehrere Befehle nach "Then"

dann lasse doch einmal das Else alleine in einer Zeile und führe alle Anweisungen darunter auf.
Code:

If Bedingung Then
Anweisung1
Anweisung2
Else
Anweisung3
Anweisung4
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nouba, 24. Dezember 2003

#13
JMC

jmc

Hi Nouba

wenn der ähm nur richtig lesen könnte - das habe ich doch die ganze Zeit so geschrieben. Und der Oberschlumpf Thorsten hat ja noch nachgedoppelt.
Und da man ja bislang nur mit beispielhaftem 'Bedingung' und 'Anweisung' operiert hat, sollte es doch eigentlich möglich sein, das ganze zu abstrahieren und auf seine Bedürfnisse umzusetzen...

Aber eben, scheinbar ist VBA doch etwas anspruchsvoller als Delphi

So - und damit wünsche ich trotzdem ein schönes und friedliches Weihnachtsfest !!

jmc, 24. Dezember 2003

#14
äHM_KEY

ähM_Key

da man ja bislang nur mit beispielhaftem 'Bedingung' und 'Anweisung' operiert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...hättest du das denn nicht eher sagen können *wink.gif* !

Es ist schon schwer ein Problem zuu lösen, wenn man an der falschen Stellen anfängt...

Also; Asche auf mein Haupt...jetz geht's!

...mehr oder weniger...aber das gehört in ein anderes Thema...wir wollen ja hier nicht noch mehr Unruhe/Ordnung stiften...

Grüße; ähM_Key

PS: Für alle sie es interessiert, bzw. die die mich auslachen wollen ;-):
ein simples "End With" hat gefehlt..VERDAMMT!!!

ähM_Key, 24. Dezember 2003

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

mehrere Befehle nach "Then"

Die Seite wird geladen...

mehrere Befehle nach "Then" - Similar Threads - Befehle Then
Benötige Hilfe bei SQL-Befehl
in Microsoft Access Hilfe
Benötige Hilfe bei SQL-Befehl: Hallo zusammen und alles Gute für 2025 Es ist mal wieder Sale-Zeit und jetzt müssen bei vielen Artikel zu eine festgesetzten Zeit die VK-Preise geändert werden. Man kann das in unserem...
Der Befehl "Speichern und Senden"
in Microsoft Word Hilfe
Der Befehl "Speichern und Senden": funktioniert nicht. Offenbar muss ich irgendwo das Konto eintragen. Aber wo? Wie geht das?
cmd Befehl kopiert keine Ordner
in Sonstiges
cmd Befehl kopiert keine Ordner: Guten Morgen. copy "c:\Test\Sammel" "d:\Sicherung" Einzelne Dateien werden zuverlässig kopiert, aber ein Ordner mit Inhalt nicht. Kann hier jemand helfen? Ich möchte beides: Quasi ALLES von...
Makro Befehl läuft auf Mac nicht
in Microsoft Excel Hilfe
Makro Befehl läuft auf Mac nicht: Sheets("Ausschreibungsdeckblatt - " & CStr(id)).Select ActiveWorkbook.SaveAs FileName:=sPath & Application.PathSeparator & sSupplierPrefix & CStr(id) & " " & sFirma & " WS " &...
Hausaufgabenheft aus Serienbrief?
in Microsoft Word Hilfe
Hausaufgabenheft aus Serienbrief?: Hallo, ich möchte ein Hausaufgabenheft erstellen. Seite 1: Titelblatt Seite 2, 3, 4: Text Ab Seite 5: zwei Seiten pro Woche: - Wochennummer, "Montag den xy - Freitag den yz" - darunter pro Tag...
Excel 2016 Befehl =Eindeutig
in Microsoft Excel Hilfe
Excel 2016 Befehl =Eindeutig: Hallo User, ich habe eine Musterdatei aus dem Internet heruntergeladen, in dieser datei ist der Befehl =Eindeutig in einer Matrixformel. Leider fuktoniert diese Funktion in 2016 nicht. Weiss...
Hilfe bei Text Befehl
in Microsoft Excel Hilfe
Hilfe bei Text Befehl: Hallo, und zwar würde ich gerne mehrere Tabellen miteinander logisch „verbinden“. Ich habe quasi mehrere Tabellenblätter. In dem einen Tabellenblatt gebe ich an, ob etwas Bar oder per Karte...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden