VBA If Anweisung
29.12.2020 14:43:48
Florian
erstmal noch frohe und besinnliche Feiertage an alle :)
Ich bin hier eher der passive User, aber heute habe ich mal eine Frage bei der ich direkt eure Hilfe brauche. Irgendwie springt mein Programm immer in eine If rein, obwohl die Bedingung eigentlich nicht erfüllt ist. Der Else Zweig sollte laufen, wird aber daher nicht ausgeführt.
Kurz zur Erklärung.
Es werden beliebige Files aus einem Ordner geladen und in "PicList" als Ort abgelegt. Aus dieser Liste ziehe ich nun die Variable VarZF. Das ist ein String und stellt die Endung einer Pfadangabe dar, beispielsweise "png".
Aufgrund dieses "Schalters" soll entweder der If Strang angesteuert werden, oder der Else Zweig.
Falls "VarZF" eine der genannten Video Endungen enthält, dann soll einfach ein Bild als Dummy eingeblendet werden, andernfalls das Bild. Jedoch überfährt er mir hier immer die If Auswahl. An was kann das liegen? Hat hier jemand bitte einen Rat?
Hier mal der Code:
VarZF = Right(PicList(lLoop), 3)
If VarZF = "MP4" Or "MOV" Or "AVI" Or "MPEG" Or "MPG" Then
Set sShape = Sheets("Bilder").Shapes.AddPicture("S:\test\Video.png", msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
Else
Set sShape = Sheets("Bilder").Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
End If
VG
Florian