Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Datei nicht gefunden Ersatzbild laden

Wenn Datei nicht gefunden Ersatzbild laden
15.12.2005 16:42:42
egon
Hallo habe noch ein Problem!
Wer kann dabei helfen?
Mit diesem Code hole ich Bilder aus einem bestimmten Ordner.
Wenn das passende Bild nicht gefunden wird soll ein leeres weisses Bild geladen werden.Bild heisst: Leer.jpg.
name = Worksheets("Tabelle3").Range("Ivnr").Value & ".jpg"
Worksheets("Tabelle3").Image1.Picture = LoadPicture("D:\Daten\Harald\Prüfblätter\" & name)
Gruß und Dank im Voraus
Egon

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Datei nicht gefunden Ersatzbild laden
15.12.2005 16:49:16
Matthias
Hallo Egon,

Dim fn As String
name = Worksheets("Tabelle3").Range("Ivnr").Value & ".jpg"
If Dir("D:\Daten\Harald\Prüfblätter\" & name) = "" Then
'nicht gefunden:
fn = "D:\Daten\Harald\Prüfblätter\leer.jpg"
Else
fn = "D:\Daten\Harald\Prüfblätter\" & name
End If
Worksheets("Tabelle3").Image1.Picture = LoadPicture(fn)

Gruß Matthias
AW: Wenn Datei nicht gefunden Ersatzbild laden
15.12.2005 16:50:25
UweD
Hallo
so dürfte es gehen (ungetestet)

Sub bild()
Dim N$, Pfad$
Pfad = "D:\Daten\Harald\Prüfblätter\"
N = Worksheets("Tabelle3").Range("Ivnr").Value & ".jpg"
If Dir(Pfad & N) <> "" Then 'Datei ist da
Worksheets("Tabelle3").Image1.Picture = LoadPicture(Pfad & N)
Else
Worksheets("Tabelle3").Image1.Picture = LoadPicture(Pfad & "Leer.jpg")
End If
End Sub

Tipp: verwende keine Variablenname, die VBA Befehle sind (hier: Name)
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Wenn Datei nicht gefunden Ersatzbild laden
15.12.2005 17:09:32
egon
Hallo, Dank euch beiden!
Klappt perfekt.
Schneller besser gehts nicht mehr.
Habe weiter unten im Forum geschrieben dass das Bilder einfügen nur mit Haltepunkt setzen funktioniert. Dann kann ich schnell weiterklicken und die Bilder werden richtig eingefügt.
Woran kann das liegen.
Habe mit Application.wait 3 Sek verzögerung eingebaut. Geht nicht.
Schönen Abend noch
Egon
AW: Wenn Datei nicht gefunden Ersatzbild laden
15.12.2005 19:46:11
egon
Hallo!
Habs selbst gefunden.
War simples Doevents nötig.
dann war die Verarbeitung des Codes normal.
Schönen Abend Gruß
Egon

303 Forumthreads zu ähnlichen Themen

Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
Wort austauschen mit "wenn dann"
Ingo

Hallo
Ich stehe hier gerade auf dem Schlauch und wollte Euch darum um Hilfe bitten.
Ich möchte, dass in Zelle D automatisch das gleiche erscheint, wie in Zelle A.
Mit folgender Ausnahme:
Wenn ich Zelle A unter anderem das Wort "Hund" vorkommt, soll in Zelle D an gleicher Stelle...
29.11.2008 16:50:00
Thread-ID: 1028864
3 Beiträge
Anzeige
Wenn/Dann mit vielen Bed. & je Bed. zwei Lösungen
Joerschi

Hallo Excel-Fans,
ich hänge grad ein einem Wenn/Dann-Problem.
Es sollen mehrere Bedingungen geprüft werden (also wahrscheinlich Einbindung der UND-Funktion) und wenn diese alle erfüllt sind, dann gibts ein Ergebnis A. Wenn nicht erfüllt, dann Ergebnis B.
Soweit klingts einfach - der...
12.02.2009 12:28:00
Thread-ID: 1050000
5 Beiträge
SVERWEIS mit WENN
Cordula

Hallo Forum,
stehe gerade völlig auf dem Schlauch. Habe folgende Formel, die ich um eine weitere WENN-Abfrage erweitern muss. Nur wo?
=WENN(ISTFEHLER(D2-SVERWEIS(B2;Tabelle1;3;FALSCH));"Nicht vorhanden";D2-SVERWEIS(B2;Tabelle1;3;FALSCH))
Jetzt soll noch rein: Wenn die Zelle D2 in T...
14.02.2009 21:27:00
Thread-ID: 1050798
7 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge
Wenn Sheet nicht vorhanden, dann Abbruch..
Mandy

Hi zusammen,
wie kann ich denn folgende Abfrage machen:
Wenn sheet("data") NICHT VORHANDEN, dann Abbruch
Danke
Mandy
31.03.2009 08:32:23
Thread-ID: 1065486
5 Beiträge
Schleife mit WENN, DANN
Mandy

Hi,
wie kann ich denn eine Schleife machen die die Spalte duchläuft und überprüft:
Wenn B5 und C5 nicht leer ist, dann A5 = "100" `Startwert
Wenn B6 und C6 nicht leer ist, dann A5 * 1,25
Wenn B7 und C7 nicht leer ist, dann A6 * 1,25
Wenn B8 und C8 nicht leer ist, dann A8...
05.04.2009 10:32:59
Thread-ID: 1066896
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
9
2
3
4
6
2
4
4
7
7
3
2
13
4
4
1
40
5
1
6
6
4
2