If Then & Then

[o0Julia0o]

hi, kann man an eine If-Abfrage 2 Thens anbinden?

Also so geht das mit einem If:

Code:

If Worksheets("Lauf").Range("U43") = 1 Then Worksheets("Rech").Range("F2") = Worksheets("Lauf2").Range("B3")
If Worksheets("Lauf").Range("U43") = 1 Then Worksheets("Rech").Range("F3") = Worksheets("Lauf2").Range("B4")

Das wären aber 2 Anweidungen. Geht das auch so irgendwie:

Code:

If Worksheets("Lauf").Range("U43") = 1 Then Worksheets("Rech").Range("F2") = Worksheets("Lauf2").Range("B3") & Then Worksheets("Rech").Range("F3") = Worksheets("Lauf2").Range("B4")

lieben Dank!

[MisterBurns]

Mach dir doch das Leben nicht selbst so schwer...

Code:

If Worksheets("Lauf").Range("U43") = 1 Then
    Worksheets("Rech").Range("F2") = Worksheets("Lauf2").Range("B3")
    Worksheets("Rech").Range("F3") = Worksheets("Lauf2").Range("B4")
End If

Oder, um es abzukürzen, da ja ein zusammenhängender Bereich angesprochen werden soll:

Code:

If Worksheets("Lauf").Range("U43") = 1 Then
     Worksheets("Rech").Range("F2:F3") = Worksheets("Lauf2").Range("B3:B4")
End If

Schöner wäre allerdings grundsätzlich zu schreiben

Code:

Worksheets("Lauf").Range("U43").Value

[o0Julia0o]

Super, genau so etwas habe ich gesucht. Hier:

Code:

If Worksheets("Lauf").Range("U43") = 1 Then
     Worksheets("Rech").Range("F2:F3") = Worksheets("Lauf2").Range("B3:B4")
End If

müsste doch das abschließende End If gar nicht sein dann, oder?

[MisterBurns]

Versuch es doch einfach mal ohne End If und berichte im Anschluss dein Ergebnis.

[o0Julia0o]

Ich habs ja versucht & es klappt in beiden Fällen. Ist halt die Frage, ob das irgendwie besser ist mit dem End If oder ob das wirklich Wurst ist.

[RPP63]

Ich habs ja versucht & es klappt in beiden Fällen.

Moin!
Dies kann und will ich nicht glauben!

Es gibt den Einzeiler ohne End If:
If Bedingung Then Ergebnis1 Else Ergebnis2

oder den Block mit End If:
If Bedingung Then
   Ergebnis1
Else
   Ergebnis2
End If

Die Benutzung der VBA-Hilfe ist übrigens immer noch nicht verboten:
https://msdn.microsoft.com/de-de/VBA/lan...2147217396

Gruß Ralf

[MisterBurns]

Ich habs ja versucht & es klappt in beiden Fällen.

Mit Sicherheit nicht. Wenn du es exakt so geschrieben hast wie ich, dann ist es ein Mehrzeiler und verlangt ein End If.

Schön übrigens auch, dass mein Hinweis mit dem .Value ignoriert wurde.

[o0Julia0o]

Funzt! - Thx! Das mit Value hast du ja in der Erklärung auch so weggelassen erst einmal. Ich möchte ja nicht zu viel ändern auf einmal, damit ich Fehler ausschließen kann.