Variablen zurücksetzen und Select Case-Anweisung
10.11.2003 19:36:28
Jorainbo
heute habe ich gleich zwei Fragen auf einmal :-)
Mit folgendem code prüfe ich aus einer Artikelliste, ob unter der Artikelnummer (Nr) in einem bestimmten Verzeichnis ein Bild vorhanden ist. Ist das der Fall, so gibt die Prozedur in Spalte K die Erweiterung(en) der Bilddatei(en) zurück. Funktioniert bestens. Meine Frage: gibt es zum Zurücksetzen der Variablen "Pics" eine elegantere Lösung, einen Befehl? Und wäre statt der vielen if's eine select case-Anweisung gscheiter, ich find mich in das Ding nicht so recht rein. Danke schonmal jenen, die sich Zeit nehmen und antworten, bis bald
Tom
Sub BildSuchen()
Dim Pfad, Nr, Pics
For Each Nr In Range("B2:B1000")
Pics = ""
Pfad = Range("J1").Value & "\" & Nr.Value & ".pdf"
If dir(Pfad) <> "" Then
Pics = "PDF "
End If
Pfad = Range("J1").Value & "\" & Nr.Value & ".bmp"
If dir(Pfad) <> "" Then
Pics = Pics & "BMP "
End If
Pfad = Range("J1").Value & "\" & Nr.Value & ".jpg"
If dir(Pfad) <> "" Then
Pics = Pics & "JPG "
End If
Cells(Nr.Row, 10).Value = Pics
Next Nr
End Sub