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

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

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
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 :)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige