hilfe von profi benötigt (bildnamen variable)

profi · 2005-07-21T14:13:54+00:00

hallo ich habe in Spalte A artikel nummern stehen und in ordner c:\bilder sind die bild dateien die zu den artikel nr gehöhren in den namen ist irgendwo immer die artikel nr vorhanden zb artikel nr 4566455 C:\bilder\herstellerx4566455irgendwas.jpg kann mir einer von euch profis helfen ? das dann in spalte B der name des bildes steht?

Hallo Tales,
von wegen, das ist kein Excel- Problem. Kann man völlig ohne Makros lösen.
Wenn Du Lust hast, kannst Du es ja mal nachbauen:
1.) Wähle Einfügen-Namen-festlegen und erstelle einen Namen, der "Dat" heißt und sich auf "=DATEIEN(Tabelle1!$D$4)" bezieht.
2.) Schreibe:

Tabelle1

	A	B	C	D	E	F	G
2				Spalten ggf. Ausblenden			Bei Änderungen im Verzeichnis Neuberechnung mit Strg+Alt+F9 erzwingen!
3	Artikel- Nr.	Bild		Pfad zu den Bildern	Bilder
4	123	Bild1.jpg		d:\Micha\Excel\tmp\*.jpg	bbla345776Bild3.jpg
5	124	Bild2.jpg		(anpassen!)	bla123Bild1.jpg		http://www.excelformeln.de/formeln.html?welcher=37
6	345776	Bild3.jpg			blabla124Bild2.jpg		http://www.excelformeln.de/formeln.html?welcher=126
7	555	Art.-Nr. nicht gefunden
8

Formeln der Tabelle

B4 : =WENN(A4>0;WENN(ISTNV(VERGLEICH("*"&A4&"*";E:E;0));"Art.-Nr. nicht gefunden";RECHTS(INDEX(E:E;VERGLEICH("*"&A4&"*";E:E;0));LÄNGE(INDEX(E:E;VERGLEICH("*"&A4&"*";E:E;0)))-FINDEN(A4;INDEX(E:E;VERGLEICH("*"&A4&"*";E:E;0)))-LÄNGE(A4)+1));"")
E4 : {=WENN(ISTFEHLER(INDEX(Dat;ZEILE(A1)));"";INDEX(Dat;ZEILE(A1)))}
B5 : =WENN(A5>0;WENN(ISTNV(VERGLEICH("*"&A5&"*";E:E;0));"Art.-Nr. nicht gefunden";RECHTS(INDEX(E:E;VERGLEICH("*"&A5&"*";E:E;0));LÄNGE(INDEX(E:E;VERGLEICH("*"&A5&"*";E:E;0)))-FINDEN(A5;INDEX(E:E;VERGLEICH("*"&A5&"*";E:E;0)))-LÄNGE(A5)+1));"")
E5 : {=WENN(ISTFEHLER(INDEX(Dat;ZEILE(A2)));"";INDEX(Dat;ZEILE(A2)))}
B6 : =WENN(A6>0;WENN(ISTNV(VERGLEICH("*"&A6&"*";E:E;0));"Art.-Nr. nicht gefunden";RECHTS(INDEX(E:E;VERGLEICH("*"&A6&"*";E:E;0));LÄNGE(INDEX(E:E;VERGLEICH("*"&A6&"*";E:E;0)))-FINDEN(A6;INDEX(E:E;VERGLEICH("*"&A6&"*";E:E;0)))-LÄNGE(A6)+1));"")
E6 : {=WENN(ISTFEHLER(INDEX(Dat;ZEILE(A3)));"";INDEX(Dat;ZEILE(A3)))}
B7 : =WENN(A7>0;WENN(ISTNV(VERGLEICH("*"&A7&"*";E:E;0));"Art.-Nr. nicht gefunden";RECHTS(INDEX(E:E;VERGLEICH("*"&A7&"*";E:E;0));LÄNGE(INDEX(E:E;VERGLEICH("*"&A7&"*";E:E;0)))-FINDEN(A7;INDEX(E:E;VERGLEICH("*"&A7&"*";E:E;0)))-LÄNGE(A7)+1));"")
E7 : {=WENN(ISTFEHLER(INDEX(Dat;ZEILE(A4)));"";INDEX(Dat;ZEILE(A4)))}
B8 : =WENN(A8>0;WENN(ISTNV(VERGLEICH("*"&A8&"*";E:E;0));"Art.-Nr. nicht gefunden";RECHTS(INDEX(E:E;VERGLEICH("*"&A8&"*";E:E;0));LÄNGE(INDEX(E:E;VERGLEICH("*"&A8&"*";E:E;0)))-FINDEN(A8;INDEX(E:E;VERGLEICH("*"&A8&"*";E:E;0)))-LÄNGE(A8)+1));"")
E8 : {=WENN(ISTFEHLER(INDEX(Dat;ZEILE(A5)));"";INDEX(Dat;ZEILE(A5)))}
F8 : =WENN(ISTFEHLER(INDEX(Dat2;ZEILE(A7)));"";INDEX(Dat2;ZEILE(A7)))
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
3.) Die Formeln in Spalte B und E kannst Du bis Zeile 260 runterziehen, danach machts leider keinen Sinn mehr, weil das Ganze nur bis 256 Dateien funzt. Schade eigentlich!
Gruß- Micha
PS: Rückmeldung wäre nett.

Hallo,
hier noch die VBA- Variante. Meine Dateien sehen übrigens so aus: Userbild

Also, füge im Modul des Tabellenblattes folgenden Code ein:

Option Explicit
Function BildName(ArtNr, Pfad, Dateityp) As String
Dim i%
On Error GoTo Hell
If ArtNr = "" Then BildName = "": Exit Function
With Application.FileSearch
  .LookIn = Pfad
  .Filename = Dateityp
  .Execute

  For i = 1 To .FoundFiles.Count
    If InStr(.FoundFiles(i), ArtNr) > 0 Then
      BildName = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStr(.FoundFiles(i), ArtNr) - Len(ArtNr) + 1)
      Exit Function
    End If
  Next
End With
BildName = "Art.-Nr. nicht gefunden"
Exit Function
Hell:
BildName = "Fehler " & Err.Number & ": " & Err.Description
End Function
Dann schreibe in der Tabelle:

Tabelle2

A B C D E
2
3 Artikel- Nr. Bild Pfad zu den Bildern
4 123 Bild1.jpg d:\Micha\Excel\tmp
5 124 Bild2.jpg (anpassen!)
6 345776 Bild3.jpg
7 555 Art.-Nr. nicht gefunden Dateityp
8 *.jpg
9
Formeln der Tabelle
B4 : =BildName(A4;$D$4;$D$8)
B5 : =BildName(A5;$D$4;$D$8)
B6 : =BildName(A6;$D$4;$D$8)
B7 : =BildName(A7;$D$4;$D$8)
B8 : =BildName(A8;$D$4;$D$8)
B9 : =BildName(A9;$D$4;$D$8)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download
Pfad und Dateityp kannst Du natürlich auch ins Makro oder in den Funktionsaufruf einbauen.
Gruß- Micha
PS: Rückmeldung wäre nett.

hilfe von profi benötigt (bildnamen variable)

Forumthread: hilfe von profi benötigt (bildnamen variable)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

hilfe von profi benötigt (bildnamen variable)

Forumthread: hilfe von profi benötigt (bildnamen variable)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread