Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Datei nicht gefunden Ersatzbild laden

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten 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
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
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
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
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 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
Wenn-Dann-Abfrage mit mehr als 8 Argumenten
Uwe

Hallo an alle Nutzer dieses Forums,
ich habe folgendes Problem mit einer Wenn-Dann-Abfrage.
Wir haben 15 experimentell ermittelte Zahlenwerte die mit folgenden Werten verbunden sind ( 2,4,6,8,10... bis 30 ).
Wenn Wert 2,dann Wert A,wenn Wert 4, dann Wert B usw. bis Wert 30,dann Wer...
20.04.2009 16:42:20
Thread-ID: 1069883
8 Beiträge
sverweis mit wenn
Karel

Hallo Forum,
wie kann ich unterstehende Formel argänzen mit ein abfrage Wert in zelle C2
Abfrage lautet wenn $C$2 Datumswert = 01.15.09 wenn gleiche wert gefunden im stammdaten dan ausgabe X
wenn datum nicht übereinstimmt dann eben niks
'=WENN((ISTNV(SVERWEIS(C7;stammdaten;7...
23.06.2009 12:59:20
Thread-ID: 1083767
8 Beiträge
Username und Uhrzeit mit Wenn-Dann?
Mario

Hallo zusammen,
ich habe schon so Einiges in Richtung Usernamen ermitteln usw. gelesen, bin aber nicht in der Lage, die Codes auf mein Problem hin anzupassen. Deshalb erhoffe ich mir nun hier Hilfe.
Wir haben im Team eine "offene-Punkte-Liste.xls", in die entsprechende Daten eingetragen...
30.06.2009 18:10:03
Thread-ID: 1085453
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige