hilfe von profi benötigt (bildnamen variable)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

21.07.2005 14:33:20

profi

Änderung link

21.07.2005 14:35:44

Tales

AW: ööö Tales! ( @beide)

21.07.2005 15:39:39

MichaV

AW: ööö Tales! ( @beide)

21.07.2005 15:43:20

Tales

@ Tales

21.07.2005 15:47:26

MichaV

AW: @ Tales

21.07.2005 15:49:16

Tales

klär mich mal auf

21.07.2005 15:51:40

MichaV

AW: klär mich mal auf

21.07.2005 15:57:25

Tales

AW: klär mich mal auf

21.07.2005 16:03:58

MichaV

AW: klär mich mal auf

21.07.2005 16:12:12

Tales

21.07.2005 21:35:23

rocketfox

21.07.2005 21:35:29

rocketfox

Lösung für Tales: Nix VBA, nur (fast) reines Excel

21.07.2005 23:27:47

MichaV

Lösung mit VBA

21.07.2005 23:32:44

MichaV

AW: Lösung mit VBA

22.07.2005 08:23:18

Tales

AW: Lösung mit VBA

22.07.2005 08:34:48

MichaV

AW: Lösung mit VBA

22.07.2005 10:19:39

Tales

AW: Lösung mit VBA

22.07.2005 10:45:39

rocketfox

AW: Lösung mit VBA

22.07.2005 10:50:33

MichaV

AW: Lösung mit VBA

22.07.2005 11:32:39

rocketfox

AW: Lösung mit VBA

22.07.2005 23:33:58

MichaV

AW: Lösung mit VBA

23.07.2005 09:20:16

rocketfox

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.

Beliebteste Forumthreads (12 Monate)

hilfe von profi benötigt (bildnamen variable)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

hilfe von profi benötigt (bildnamen variable)

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

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread