Hi Leute,

laut VBA habe "End IF"'s zu viel, kann jemand helfen?

Do While i <= k
If Cells(i, 2) = hash Then
i = k + 10
If Cells(i, 3) = "" Then Cells(i, 3) = pDatum Else
If Cells(i, 3) > pDatum Then Cells(i, 3) = pDatum Else
If Cells(i, 4) = "" Then Cells(i, 4) = pDatum Else
If Cells(i, 4) < pDatum Then
Cells(i, 4) = pDatum
End If
End If
End If
End If
Else
i = i + 1
End If
Loop

Erst mal formatiert. Bei den einzeilligen Ifs brauchst du meine ich kein End If !

2 Tips:
- Einrücken(Tabtaste) dann siehst du immer direkt bei welchem if du dich befindest)
- schreibe bei solchen Schleifen das end if direkt am Anfang mit un schreib dahinte rzu welcher schleife es gehört
btw das kann man schöner lösen...

Oder so:

Naja die bessere und schönere Variante is ja wohl die mit Switch Case

MarcoIT schrieb:

die bessere und schönere Variante is ja wohl die mit Switch Case

Da bin ich mir gar nicht so sicher.
Die beiden Varianten liefern unterschiedliche Ergebnisse und vom Gefühl her ist Eierleins Variante logischer.
Kommt natürlich darauf an, was tatsächlich gefordert ist.

Soll ich auch noch eine Variante anbieten?

petaod schrieb:

Soll ich auch noch eine Variante anbieten?

Bin kein Experte in VBA, aber was passiert hier:

Vermutlich wird wie in VB6 der zweite Teil des IF Statements unabhängig vom Resultat des ersten Teils evaluiert. Und was passiert, wenn ich einen leeren String mit einem Datum vergleiche ... WENN pDatum vom Typ Date ist? Dann wäre in VBA in der Tat Eierleins Lösung die einzige Möglichkeit das zu unterbinden. Alternativ ist VBA so typenlos, dass im Zweifel eh alles "Variant" ist

picoflop schrieb:

Und was passiert, wenn ich einen leeren String mit einem Datum vergleiche ... WENN pDatum vom Typ Date ist?

Da ist Excel-VBA tatsächlich ganz leidenschaftslos.
Ein Datum wird intern als Zahl behandelt und der Vergleich mit "" entspricht einem Vergleich mit 0, was dem 1.1.1900 entspricht.
Für "Option Strict On"-Fans ein Graus

Interessant wird es aber, wenn in der Zelle irgendein Text steht, der nicht als Datum interpretiert werden kann.
Aber das wird ja in keinem der Beispiele sauber abgefangen.
Ich wollte nicht soweit gehen, hier noch die Funktionen IsDate und DateDiff zu erklären

Mit Case gehts am besten.

Aber du kannst die ganzen end ifs auch loswerden wen du immer Elseif eingibst.

mfg