Thema Datum  Von Nutzer Rating
Antwort
29.12.2014 09:57:09 kLEINB
NotSolved
Blau Fehlende Bilder kopieren
 30.12.2014 18:17:28 gROSSA
NotSolved
31.12.2014 11:55:04 Kleinb
NotSolved
31.12.2014 11:58:36 Gast39701
NotSolved
31.12.2014 11:59:26 Kleinb
NotSolved

Ansicht des Beitrags:
Von:
gROSSA		 Datum:
30.12.2014 18:17:28		 Views:
732		 Rating:
     
Antwort:
  Ja
Thema:
Fehlende Bilder kopieren		 
Option Explicit

Sub TryIt()
Const Spalte As Long = 1            'Spalte wo Nummern
Const Pfad As String = "C:\Temp\"   'Bilddateien
Dim x As Long, Treffer As Long
Dim strFile As String
x = 1
Do
   If Left(Cells(x, Spalte).Value, 1) = "r" Then
      strFile = Mid(Cells(x, Spalte).Value, 2, 5) & "*.jpg"
      strFile = Pfad & strFile
      '
      If Len(Dir(strFile)) > 0 Then  'hier die action
         'MsgBox "Treffer " & strFile
         Treffer = Treffer + 1
         Cells(x, Spalte).Interior.Color = xlColorIndexAutomatic 'oder was auch immer
      Else
         Cells(x, Spalte).Interior.Color = 65535 ''oder was auch immer
      End If
   End If
   x = x + 1
Loop Until Cells(x, Spalte).Value = ""
MsgBox "Anzahl  " & Treffer
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.12.2014 09:57:09 kLEINB
NotSolved
Blau Fehlende Bilder kopieren
 30.12.2014 18:17:28 gROSSA
NotSolved
31.12.2014 11:55:04 Kleinb
NotSolved
31.12.2014 11:58:36 Gast39701
NotSolved
31.12.2014 11:59:26 Kleinb
NotSolved