Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

it then and, and, and

it then and, and, and
27.04.2013 11:51:05
Dani
Hallo zusammen
hätte da eine kleine Frage:
ist es möglich eine if then Anweisung mit mehreren Bestimmungen zu erstellen?
zb
v1 = aktueller Wochentag
V2 = 5
V3 = 1
V4 = 25
if V1 = 1 then V2 = V2 and V3 = V3 and V4 = V4
if V1 = 2 then V2 = 5+1 and V3+17 = 25 and V4 = 25+23
Danke und Gruss

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hast Du es schon probiert?
27.04.2013 12:07:43
Matthias
Hallo
Was ist/sind V1,V2, V3 ... ?
Sind das Variablen oder Zelladressen?
Was macht das für Sinn?
if V1 = 1 then V2 = V2 and V3 = V3 and V4 = V4
Das geht gar nicht
if V1 = 2 then V2 = 5+1 and V3+17 = 25 and V4 = 25+23
Sollten es Variablen sein 
Option Explicit
Sub Dani()
Dim V1&
Dim V2&
Dim V3&
Dim V4&
V1 = Weekday(Date)
MsgBox "Wochentag = " & V1
If V1 = 1 Then
V2 = V2
V3 = V3
V4 = V4
Else
V2 = 5 + 1
V3 = 17 = 25
V4 = 25 + 23
End If
MsgBox "V1=" & V1 & vbLf & "V2=" & V2 & vbLf & "V3=" & V3 & vbLf & "V4=" & V4
End Sub
Erklär mal genauer was Du vorhast!
evtl eine Bsp.Mappe hochladen.
Gruß Matthias

Anzeige
AW: hast Du es schon probiert?
27.04.2013 12:34:21
Dani
Hallo
Bin ich ein Dödel...
es funktioniert!
Sollte heissen:
if V1 = 2 then V2 = 5+1 and V3 = 17 +v2 and V4 = 25+23
Danke und Gruss

Kurios
27.04.2013 13:15:23
Erich
Hi Dani,
meinst du vielleicht so etwas? 

Sub Beisp()
Dim V1 As Long, V2 As Long, V3 As Long, V4 As Long
V1 = 2           ' zum Testen
If V1 = 2 Then
V2 = 5 + 1
V3 = 17 + V2
V4 = 25 + 23
End If
' oder
If V1 = 2 Then V2 = 5 + 1:   V3 = 17 + V2:   V4 = 25 + 23
End Sub
Wenn du schreibst:
If V1 = 2 Then V2 = 5 + 1 And V3 = 17 + V2 And V4 = 25 + 23
dann bekommt die Variable V2 den Wert des Ausdrucks "5 + 1 And V3 = 17 + V2 And V4 = 25 + 23", also
If V1 = 2 Then V2 = (5 + 1 And V3 = 17 + V2 And V4 = 25 + 23)
Das wirst du wohl kaum wollen...
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige