PDA

Vollständige Version anzeigen : Bilder aus Verzeichnis in Excel


SabineLinz
02.04.2012, 12:19
Guten Tag, ich habe in einem Verzeichnis Bilder und in einer Tabelle1 eine Liste (in der Spalte K) mit den Dateinamen dieser Bilder. Funktioniert gut solange nicht Bilder im Verzeichnis sind die nicht in der Liste sind. Dann bringt er mir den Fehler 91 (Objektvariable oder With-Blockvariable nicht festgelegt - ABER erst beim zweiten Bild das er nicht findet!?
Egentlich soll er da einfach nix tun und zum nächsten gehn...

Sheets("Tabelle1").Select
Range("A1").Select


Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String

strVerzeichnis = "C:\daten\Portrait_2011"
StrTyp = "*.jpg"
Dateiname = Dir(strVerzeichnis & StrTyp)

Do While Dateiname <> ""
On Error GoTo 100

Sheets("Tabelle1").Select
Columns("K:K").Select

If Selection.Find(What:=Dateiname, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate = False Then


Else
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = "Bild vorhanden"

End If
100 Dateiname = Dir



Loop


Kann mir da wer weiter helfen?? Danke

Beverly
02.04.2012, 13:11
Hi Sabine,

versuche es mal so:
Sub BilderVergleichen()
Dim strVerzeichnis As String
Dim StrTyp As String
Dim Dateiname As String
Dim rngZelle As Range
strVerzeichnis = "C:\daten\Portrait_2011\"
StrTyp = "*.jpg"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname <> ""
With Worksheets("Tabelle3").Columns("K")
Set rngZelle = .Find(What:=Dateiname, LookAt:=xlPart)
If Not rngZelle Is Nothing Then rngZelle.Offset(0, 1) = "Bild vorhanden"
Dateiname = Dir
End With
Loop
Set rngZelle = Nothing
End Sub

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/" onclick="window.open(this.href);return false"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

SabineLinz
02.04.2012, 16:07
So funktionierts super.