Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild vorhanden

Forumthread: Bild vorhanden

Bild vorhanden
Alex
Hallo,
In der Spalte A einer Excel Tabelle stehen Namen, in einem Ordner liegen Bilder die Name.jpg heißen. In der Spalte B soll ein Kreuz hinter den Namen gemacht werden, die im Ordner vorhanden sind.
Danke im Voraus
Alex
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bild vorhanden
14.04.2004 17:43:57
Harry
Hallo Alex,
wie sieht's damit aus:

Sub Abgleich()
Dim strName As String
Dim i As Integer
For i = 1 To 500
strName = Cells(i, 1).Value
If Dir(strName & ".xls") <> "" Then
Cells(i, 2).Value = "Treffer"
End If
Next i
End Sub

Gruß
Harry
Anzeige
AW: Bild vorhanden
14.04.2004 17:48:03
Harry
...halt, statt ".xls" muss es natürlich ".jpg" heißen, und Du musst ev. noch den Pfad für die Dateien angeben :)
;

Beliebteste Forumthreads (12 Monate)

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